Dim lngdate As Long = 128559400200893068MsgBox(DateTime.FromFileTime(lngdate))
Dim lngdate As Long = 128559400200893068DateTime.FromFileTimeUtc(lngdate)
Datetime.IsLeapYear(now.Year)