Sub getTikker() As Long
Dim p As Period
Dim oggi As Long = DateTime.Now
Dim inizio As Long = DateUtils.SetDateAndTime(DateTime.GetYear(oggi), DateTime.GetMonth(oggi), DateTime.GetDayOfMonth(oggi), _
DateTime.GetHour(oggi),DateTime.GetMinute(oggi), DateTime.GetSecond(oggi))
Dim fine As Long = DateUtils.SetDateAndTime(1899, 12, 30, 23, 59 ,59)
p = DateUtils.PeriodBetweenInDays(fine, inizio)
Dim tmp As Long = p.Days * 86400 + p.Hours * 3600 + p.Minutes * 60 + p.Seconds
Log("long: " & tmp)
Dim tmp2 As Double = p.Days * 86400 + p.Hours * 3600 + p.Minutes * 60 + p.Seconds
Log("double: " & tmp2)
Log("simple long data type test")
Log("43872 * 86400 = " & (43872 * 86400)) ' simple long test
Return tmp
End Sub