Проблема со стандартом формата даты

[Aent]

Столкнулся с проблемой. У клиента какая то программа изменила
региональный стандарт для краткого формата даты.
Было dd.MM.yyyy стало dd-MMM-yyyy
В результате в VBA коде функция CDate(s) при s="15.01.2012" стала
создавать ошибку преобразования типа
Есть ли идеи как защититься от подобных ситуаций кроме как:
1) Парсить s и использовать DateSerial
2) Преобразовывать s к формату "yyyy-MM-dd" (который VBA понимает вроде бы всегда независимо от локали)
3) Изменять параметр sShortDate ключа реестра
HKEY_CURRENT_USER\Control Panel\International
или сформировать системную политику
4) Делать как написано здесь: http://vbnet.mvps.org/index.html?cod...localeinfo.htm

Я пока склонился к варианту 1)

[IgorGO]

с помощью RegExp можно строки типа дд-мм-гггг, дд.мм.гггг, дд/мм/гггг и подобные привести к принятому в системе виду записи дат.

[Aent]

Боюсь, что в общем случае использовать RegExp будет несколько нетривиально.
Игорь, вы обратили внимание какой формат даты оказался у меня установлен?
Т.е мне надо бы было преобразовать 15.01.2012 в 15-янв-2012 ...
Тогда уж лучше получить формат даты и просто воспользоваться Format$(...).....

[R Dmitry]

Я использую так

Sub test()
g = DataSql2("12-янв-2010")
End Sub
Function DataSql2(dt_sql) As Date
DataSql2 = CDate(Format(dt_sql, "mm\/dd\/yy hh\:mm\:ss"))
End Function