Dim DateSobriety As String = iMap.Get("datesobriety") ' this is 2021-07-01 in database
DateTime.DateFormat = "yyyy-MM-dd"
Dim StartTime As Long = DateTime.DateParse(DateSobriety)
Dim PerDiff As Period
PerDiff = DateUtils.PeriodBetween(StartTime, DateTime.Now)
Log("StartTime : " & DateTime.Date(StartTime))
Log("Today : " & DateTime.Date(DateTime.Now))
Log("Days diff.: " & PerDiff.Days)