Как определить является ли строка датой?

[Gmp]

Собственно вопрос. Дата в формате дд.мм.гггг

[DirectXManiac]

Если текущей датой, тогда просто сравнить строку и Date

[keks-n]

Сделать CDate и ловить ошибку.

[Gmp]

DirectXManiac
Нет даты разные.
keks-n
А более цивилизованые методы есть?

[Antonariy]

Есть менее цивилизованные, потому что даже метод отлова ошибки cdate может не проканать. Пример: CDate("2343423") = 27.01.8316

Вот так будет правильнее:

Код: Выделить всё

On Error Resume Next
r=(Format(CDate(s), "dd.mm.yyyy") = s)
If Err.Number = 0 and r Then 'это таки дата


[Antonariy]

Хотя я вспомнил, существует же функция IsDate...

[Gmp]

Antonariy
Во IsDate то что нужно! Спасибо.

[uhm]

На всякий случай - автору топика IsDate, видимо, подойдет. Но в общем случае эта функция считает датами некоторые весьма сомнительные строки, например, IsDate("12.31")=True (и IsDate("31.12")=True).

[Dummiel]

В дополнение к предыдущему посту:
Вот я один раз жестко обжегся с этой IsDate: как она определяет 12.13.2006 и 13.12.2006? И то, и то = True.

[Oxygen]

Она считает датами все, что к датам можно преобразовать.
2Dummiel В твоем случае IsDate узрела во втором варианте дату в американском формате.

Как вариант все же проверять дату ручками, хотя бы на количество месяцев перед тем, как скармливать ее IsDate.

[Antonariy]

В общем 100% правильный результат дает только мой способ.

[uhm]

Ну, про "только" - это ты загнул, конечно...

[Antonariy]

Альтернативы?

[uhm]

Альтернатива - геморные проверки подстрок, отвечающих за день, месяц и год - являются ли они таковыми. Я не говорю, что есть вариант лучше, во всяком случае, я такой пока не придумал, но твой вариант точно не единственный. А вообще, это я так, к слову придрался

[tyomitch]

Она считает датами все, что к датам можно преобразовать.
2Dummiel В твоем случае IsDate узрела во втором варианте дату в американском формате.

В американском формате -- это 12/13/2006
Впрочем, про неё IsDate тоже говорит True.
Как и про 13/12/2006, которая совсем в неведомом формате.

[Ennor]

Как и про 13/12/2006, которая совсем в неведомом формате.

Будете смеяться, но такой формат действительно существует и вполне себе ведом. Это Хиджри - 131 формат функции Convert() в T-SQL .

На самом же деле, конечно, достаточно было посмотреть определение понятия date expression, чтобы все стало понятно:

Any expression that can be interpreted as a date, including date literals, numbers that look like dates, strings that look like dates, and dates returned from functions. A date expression is limited to numbers or strings, in any combination, that can represent a date from January 1, 100 – December 31, 9999.

Болд мой. Так что, если нужно строгое определение, с учетом допустимых разделителей и различением порядка перечисления частей, то только вручную.

[Andrey Fedorov]

На всякий случай - автору топика IsDate, видимо, подойдет. Но в общем случае эта функция считает датами некоторые весьма сомнительные строки, например, IsDate("12.31")=True (и IsDate("31.12")=True).

Что в них сомнительного? Я так дату и ввожу. Ибо нафига текущий год каждый раз набирать?

[uhm]

Для некоторых случаев - "1.1" - это не "первое января текущего года", а "одна целая одна десятая" Или даже "пункт 1.1".

[vvs_adm]

Для некоторых случаев - "1.1" - это не "первое января текущего года", а "одна целая одна десятая" Или даже "пункт 1.1".

Ну так если пользователь в поле для даты ввел "одну целую, одну десятую", то это смело можно рассматривать как первое января. Иначе, если он введет в поле для даты 05.05.2005, то он скажет, что он хотел ввести не пятое мая, а Пункт 05.05... и тут уж никакая IsDate не поможет.

[uhm]

Не спорю Но пользователь - это не единственное "устройство ввода"...

[Nicky]

Не спорю Но пользователь - это не единственное "устройство ввода"...

Зато самое недокументированное