11. april 2007 - 20:50
Der er
2 kommentarer
Time NOW & DATE
Nogen der kan hjælpe med at ændre denne timedato kode, så tiden altid skrives korrekt.
Function doMysqlDateTime ()
dtDateTime = Now()
dtDateTime = DatePart("YYYY", dtDateTime) & "-" & DatePart("M", dtDateTime) & "-" & DatePart("D", dtDateTime) & " " & DatePart("H", dtDateTime) & ":" & DatePart("N", dtDateTime) & ":" & DatePart("S", dtDateTime)
doMysqlDateTime = dtDateTime
End Function
Som det er nu mangler der et nul når værdien er under 10
11. april 2007 - 20:57
#1
Function MyDatePart(interval, date)
MyDatePart = Right("0" & DatePart(interval, date), 2)
End Function
Function doMysqlDateTime ()
dtDateTime = Now()
dtDateTime = DatePart("YYYY", dtDateTime) & "-" & MyDatePart("M", dtDateTime) & "-" & MyDatePart("D", dtDateTime) & " " & MyDatePart("H", dtDateTime) & ":" & MyDatePart("N", dtDateTime) & ":" & MyDatePart("S", dtDateTime)
doMysqlDateTime = dtDateTime
End Function