Function timeFormat()
dim mm, dd, hh, mi, ss
If Month(Date)>9 Then mm = Month(Date) Else mm = "0"& Month(Date)
If Day(Date)>9 Then dd = Day(Date) Else dd = "0"& Day(Date)
If Hour(Now)>9 Then hh = Hour(Now) Else hh = "0"& Hour(Now)
If Minute(Now)>9 Then mi = Minute(Now) Else mi = "0"& Minute(Now)
If second(Time)>9 Then ss = Second(Time) Else ss = "0"& Second(Time)
timeFormat = Year(Date) &"-"& mm &"-"& dd &" "& hh &":"& mi &":"& ss
End Function