Sub Date_onDateSet(year As Int, monthOfYear As Int, dayOfMonth As Int, hour As Int, minute As Int, second As Int)
Log($"onDateSet(${year},${monthOfYear},${dayOfMonth},${hour},${minute},${second})"$)
Dim d As Long
DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss"
d = DateTime.DateParse(year&"-"&(monthOfYear+1)&"-"&dayOfMonth&" "&hour&":"&minute&":"&second)
A01DateValEditText.Text = DateTime.Date(d)
End Sub