Вот к примеру у меня есть текстовое поле, туда я ввожу дату. как мне проверить что я ввел еммено сегодняшную дату а не вчерашную или завтрашную?
Первый вопрос!!
Сообщений: 3
• Страница 1 из 1
- FaKk2
- El rebelde gurú
-
- Сообщения: 2031
- Зарегистрирован: 09.03.2003 (Вс) 22:10
- Откуда: Los Angeles
Первый вопрос!!
FaKk2 » 09.03.2003 (Вс) 22:49
Вот к примеру у меня есть текстовое поле, туда я ввожу дату. как мне проверить что я ввел еммено сегодняшную дату а не вчерашную или завтрашную?
Для получения ответа надо продемонстрировать качества, позволяющие стать компетентным — внимательность, вдумчивость, наблюдательность, желание активно участвовать в выработке решения.
- corgi
- ToyMan
- Сообщения: 1367
- Зарегистрирован: 01.10.2002 (Вт) 9:59
- Откуда: Россия, Москва
corgi » 09.03.2003 (Вс) 23:27
ну например так:
- Код: Выделить всё
Dim d1 As Date
d1 = Sheets(1).Cells(1, "a")
If Day(d1) = Day(Now) And Month(d1) = Month(Now) And Year(d1) = Year(Now) Then
MsgBox "ok"
Else:
MsgBox "error"
End If
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 45