MsgBox(DateTime.FromOADate(7)) will return 1/6/1900MsgBox(DateTime.FromOADate(8)) will return 1/7/1900
MsgBox(DateTime.Today()) MsgBox(DateTime.Now())