DateTime.DateFormat="yyyyMMdd"
Dim D1 As Long=DateTime.DateParse("20240331")
Dim D2 As Long=DateTime.DateParse("20240401")
Dim D0 As Long=DateTime.DateParse("20000101")
Log ("Diff 1-0: " & ((D1-D0)/DateTime.TicksPerDay)) ' returns 8856
Log ("Diff 2-0: " & ((D2-D0)/DateTime.TicksPerDay)) ' returns 8856.95833...
Log ("Diff 2-1: " & ((D2-D1)/DateTime.TicksPerDay)) ' returns 0.95833...