' Create list of allowed dates...
Dim selDateList As List
selDateList.Initialize
DateTime.DateFormat = "E MM/dd/yyyy"
Log($"DateFormat: ${DateTime.DateFormat}"$)
Log($"Device DateFormat: ${DateTime.DeviceDefaultDateFormat}"$)
Log($"Device TimeFormat: ${DateTime.DeviceDefaultTimeFormat}"$)
For i = 0 To 29
selDateList.Add(DateTime.Date(DateTime.Now + (DateTime.TicksPerDay * i)))
Next
For Each s As String In selDateList
Dim ticks As Long = DateTime.DateParse(s)
Dim Date As String = DateTime.Date(DateTime.DateParse(s))
Log($"List: ${s} / Ticks: ${ticks} / Date: ${Date}"$)
Next