Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Сверка системного времени

Автор: REVOLT 7.4.2004, 17:00

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

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

Автор: cardinal 7.4.2004, 18:25

Вот, должно работать, а вообще обзаведись 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

Автор: REVOLT 9.4.2004, 15:51

Вопрос такой. Есть два лейбла и при загрузке формы в 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

Автор: REVOLT 10.4.2004, 13:19

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

Автор: bom 11.4.2004, 18:11

Цитата

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

Запустил у себя твой код - все прекрасно работает

Только вместо :
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"

Автор: REVOLT 12.4.2004, 13:21

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

Автор: bom 12.4.2004, 14:08

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