Format()

[eda]

Помогите, пожалуйста! у меня даты вводятся в формате: dd.mm.yyyy. Мне нужно из записать в Mysql в формате yyyy-mm-dd. Проблема в том, что:
date_t = 27.08.2008
date_t = format(date_t, "yyyy-mm-dd")
и теперь date_t = 27.08.2008. Как можно это исправить?

[VictorM]

date_t = "27.08.2008"
date_t = Format(date_t, "yyyy-mm-dd")

на выходе получим date_t = 2008-08-27
или я что-то не понял?

[дмидми]

eda, где описание типа данных для переменной date_t?
Это переменная типа date, или типа string, "или где?"
Заодно уж раскройте страшную тайну: что именно Вы хотите исправить?

VictorM, в VBA константы типа date берутся не в кавычки, а в совсем другие символы (здесь уместно #08/27/2008#). Для преобразования в тип date из типа string всеми нежно любимый Билл Гейтс предусмотел функцию CDate.

[eda]

Сообщение от VictorM

date_t = "27.08.2008"
date_t = Format(date_t, "yyyy-mm-dd")

на выходе получим date_t = 2008-08-27
или я что-то не понял?

в том и проблема, что я получаю дату в том же формате, ничего не изменяется.

[eda]

Сообщение от дмидми

eda, где описание типа данных для переменной date_t?
Это переменная типа date, или типа string, "или где?"
Заодно уж раскройте страшную тайну: что именно Вы хотите исправить?

date_t типа Date.

[VictorM]

Sub дата_Date() 'так не получается
Dim date_t As Date
date_t = #8/27/2008#
date_t = Format(date_t, "yyyy-mm-dd")
MsgBox date_t
End Sub

Sub дата_String() 'а это работает
Dim date_t As String
date_t = "27.08.2008"
date_t = Format(date_t, "yyyy-mm-dd")
MsgBox date_t
End Sub

можно было бы написать так, если исходный тип даты - Date

Sub дата_Date() 
Dim date_t As Date
date_t = #8/27/2008#
date_tt = Year(date_t) & " - " & Month(date_t) & " - " & Day(date_t)
MsgBox date_tt
End Sub

но date_tt все равно будет String, а если сделать
date_tt = CDate(date_tt) то дата опять примет 27.08.2008

[eda]

VictorM, спасибо большое! но вот можно я еще озадачу? в MySQL, к примеру, дата 2008-08-11 записывается как 2011-08-20. Как это можно исправить?