public class Test public Shared Sub Main Dim dteExpiration As Date Dim lngDays As Long lngDays = DateDiff(DateInterval.Day, #12/31/2000#, Now()) Console.WriteLine(lngDays) End Sub End class
2322