Function Now() As String
Local St As SYSTEMTIME
GetLocalTime St
Function= Format$(St.wYear, "00") & "-" & Format$(St.wMonth, "00") & "-" & Format$(St.wDay, "00") & _
" " & Format$(St.wHour, "00") & ":" & Format$(St.wMinute, "00") & ":" & Format$(St.wSecond, "00")
End Function