Android Question DateTime

Dim ThisDateTime As Long
DateTime.DateFormat="dd-MMM-yy HH:mm"
ThisDateTime = DateTime.TimeParse(DateTime.Now)
Dim cmd As DBcommand = CreateCommand("sendmessagefromsite",Array(ThisDateTime, AndroidID, Message))

Dim cmd As DBcommand = CreateCommand("sendmessagefromsite",Array(DateTime.now, AndroidID, Message))

DateTime.DateFormat = "yyyy-MM-dd"
DateTime.TimeFormat = "HH:mm:ss"                   
Dim ThisDateTime As Long = DateTime.Now

    DateTime.DateFormat = "yyyy-MM-dd"
    DateTime.TimeFormat = "HH:mm:ss"
    Dim ThisDateTime As Long = DateTime.Now
    Dim strDateTime As String = DateTime.Date(ThisDateTime) & " " & DateTime.Time(ThisDateTime)
    Log(strDateTime)

Dim ThisDateTime As String
    DateTime.DateFormat="yyyy-MM-dd HH:mm:ss"
    ThisDateTime = DateTime.date(DateTime.Now)
    Log(ThisDateTime)  'displays: 2020-07-09 07:36:24  of course current