Sub AppStart (Args() As String)
Dim t As Long = DateToTicks("2021-01-17 10:42:28")
Log($"$DateTime{t}"$)
End Sub
Sub DateToTicks (s As String) As Long
Dim t As String = DateTime.DateFormat
DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss Z"
Dim res As Long = DateTime.DateParse(s & " +0000")
DateTime.DateFormat = t
Return res
End Sub