При запуске программы создаётся ini файл в котором записывается дата, например 10.04.2004. Как сделать так, чтобы при последующем запуске программы данные файла ini, т.е 10.04.2004 сравнивалась с системной датой, и есле дата в ini файле равна или меньше системной, то тогда происходит определённое действие.
Дополнительно: В файле ini всего одна строчка. И если можно, покажите пример по проще.

Зарание спасибо!

Вот, должно работать, а вообще обзаведись MSDN!

Код

Private Sub Command1_Click() Dim MyDate As Date Dim IniData As Date MyDate = Date ' прочитал твою строку из ini IniData = "10.04.04" If IniData <= MyDate Then    ' что-то происходит End If End Sub

Как работать с ini написано здесь:
http://forum.vingrad.ru/index.php?showtopic=16498

Вопрос такой. Есть два лейбла и при загрузке формы в 1 загружается данные из ini файла, а во второй системная дата. Как сравнить цифры из лейблов и вымолнить определённые действия. Не выполняються действия которые отмеченные курсивым. Подскажие где ошибка, и в чём проблема.


Option Explicit
Dim A As Long
Dim F As Long

Private Sub Form_Load()
'// фыва
A = FreeFile
Open "c:\system.ini" For Output As A
Print #A, "8"
Close #A
''''''''''''''''''''''
F = FreeFile
Open "c:\system.ini" For Input As F
Day2.Caption = Input(LOF(F), F)
Close F
End Sub

Private Sub Timer1_Timer()
Dim Day_1 As Variant
Day_1 = Now
Day1.Caption = Format(Day_1, "d")
End Sub

Private Sub Timer2_Timer()
'//фыва
If Day1.Caption < Day2.Caption Then MsgBox "Действие 1"
If Day1.Caption > Day2.Caption Then MsgBox "Действие 2"
End Sub

Мда, что на этот вопрос мне не кто не ответит. Подскажите пожалуйста, мож есть другой вариант!

Цитата

Не выполняються действия

Запустил у себя твой код - все прекрасно работает
Только вместо :
If Day1.Caption < Day2.Caption Then MsgBox "Действие 1"
If Day1.Caption > Day2.Caption Then MsgBox "Действие 2"

сделай:
If Int(Day1.Caption) < Int(Day2.Caption) Then MsgBox "Действие 1"
If Int(Day1.Caption) > Int(Day2.Caption) Then MsgBox "Действие 2"

Это сообщение отредактировал(а) bom - 11.4.2004, 18:44

Пасиб за помошь! А объясни, для чего нужен Int

Не за что.
Ты пытался сравнивать текстовые строки, оператор int переводит их в в целочисленные значения..