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
Annonceindlæg fra HP
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