VPF::Проверка системной даты - Форум программистов

REVOLT

Дата 3.10.2004, 09:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет

Код


Private Function CompareAndMove() 'ф-ия сравнить_и_переместить
   Dim ans As VbMsgBoxResult
   Dim s1$, s2$
   s1 = List3.List(List3.ListIndex)
   s2 = List4.List(List4.ListIndex)
   If IsDate(data.Text) Then
      If CDate(Date$) <= CDate(data.Text) Then
         ans = MsgBox("Авто " & s1 & " (" & s2 & ") " & " прибыло в автомагазин, добавляем его?", vbQuestion + vbYesNo, "Внимание!")
         If ans = vbYes Then
            ProgData.Recordset.AddNew
            ProgData.Recordset!Part = s1
            ProgData.Recordset!Name = s2
            ProgData.Recordset!Site = SiteText1.Text
            ProgData.Recordset!License = data.Text
            ProgData.Recordset!Note = NoteText1.Text
            ProgData.Recordset.Update
            SiteData.Database.Execute "DELETE FROM Sites WHERE Model='" & s2 & "';"
            UpdateProgList "", ""
            UpdateSiteList "", ""
         End If
         Else
            MsgBox "Авто " & s1 & " " & s2 & " " & " ещё не прибыл.", vbInformation, "Авто не прибыло!"
            
      End If
   End If
End Function

Думаю функция в обяснение не нуждается есть data (текстовое поле) и системная дата, почему-то в сентябре эта функция прекрассно работала, а в октябре не хочет. Почему такое происходит? В текстовом поле дата имеет такой формат например 02.10.2004, пробывал и 2.10.2004. Всё равно не работает

Guest

Дата 3.10.2004, 21:10 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А как насчет 9 и 09 ?

Staruha

Дата 3.10.2004, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27

В прошлом месяце было 09 Извините забыла представиться

--------------------

Возмездие настигнет

-Mikle-

Дата 4.10.2004, 08:14 (ссылка)

(нет голосов)

Загрузка ...

Невидимка Vingrad'а

Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59

REVOLT, сорри что ошибся... вместо if CDate(Date$)... тебе надо написать просто if CDate(Date)..., Date без знака доллар, и все будет работать

--------------------

Если тебе плюют в спину, значит ты впереди...

REVOLT

Дата 4.10.2004, 11:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет

-Mikle-, пасиб тебе!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »