Korzystanie DateDiff, nazywasz go z różnymi parametrami interwałowych data pobrać odpowiednią wartość:
Dim D1, D2 As Date
D1 = Date.Now
D2 = #11/9/2004#
'DateDiff
Console.WriteLine("DateDiff")
Console.WriteLine()
Console.WriteLine("{0} Days", _
DateDiff(DateInterval.Day, D1, D2))
Console.WriteLine("{0} Hours", _
DateDiff(DateInterval.Hour, D1, D2))
Console.WriteLine("{0} Minutes", _
DateDiff(DateInterval.Minute, D1, D2))
Console.WriteLine("{0} Seconds", _
DateDiff(DateInterval.Second, D1, D2))
Console.WriteLine()
Alternatywnie, struktura TimeSpan może zostać odzyskane w wyniku odjęcia jedną datę od drugiej, a następnie odpytywanie różnych członków tej struktury.
Console.WriteLine("TimeSpan")
Console.WriteLine()
Dim difference As TimeSpan = D2.Subtract(D1)
Console.WriteLine("{0} Days", difference.TotalDays)
Console.WriteLine("{0} Hours", difference.TotalHours)
Console.WriteLine("{0} Minutes", difference.TotalMinutes)
Console.WriteLine("{0} Seconds", difference.TotalSeconds)
Console.WriteLine()
Wyjście z dwóch różnych metod jest prawie identyczne, z tym, że właściwości zakresu czasu wraca dwu, podczas DateDiff zawsze zwraca long (Int64).
DateDiff
175 Dni
4222 Godziny
253345 Minut
15200730 sekund
Okres
175.934383644387 Dni
4222,42520746528 Godziny
253345,512447917 Minutes
15200730,746875 sekund
co nie działa? Jakieś błędy? – DevelopmentIsMyPassion