Anhang C: Werte Mit Zeitangabe - Milltronics ENVIRORANGER ERS 500 Betriebsanleitung

Anhang C: Werte mit Zeitangabe

Zeitangaben werden grundsätzlich in 32-Bit Ganzzahlen gemacht, die die
Sekundenanzahl seit dem 1. Januar 1970 angeben. Untenstehend finden
Sie einen Algorithmus in Basic zur Umwandlung in Jahr, Monat, Tag,
Stunde, Minute, Sekunde.
Sub convert_time(real_time, ryrs,rmon,rday,rhrs,rmin,rsec)
Dim imin, ihrs, iday, iyrs, mday, jday, lday, qday As Long
Dim real_time, rsec, rmin, rhrs, rday, rmon, ryrs As Long
Dim datamon(14)
' real_time = time in seconds from Jan.1, 1970
' ryrs = year (r=real)
' rmon = month
' rday = day
' rmin = minute
' rsec = seconds
' imin, ihrs, iday, iyrs are all intermediate calculations (described below)
' lday = leap day
' qday = quad day
' jday = index counter of days (used bis calculate rday)
' datamon = database of the # of days since the beginning of the year
' set up database of # of days since beginning of the year
datamon(1) = 0
datamon(2) = 31
datamon(3) = 59
datamon(4) = 90
datamon(5) = 120
datamon(6) = 151
datamon(7) = 181
datamon(8) = 212
datamon(9) = 243
datamon(10) = 273
datamon(11) = 304
datamon(12) = 334
datamon(13) = 365
'whole minutes since 1/1/70
imin = Int(real_time / 60)
'leftover seconds
rsec = real_time - (imin * 60)
'whole hours since 1/1/70
ihrs = Int(imin / 60)
'leftover minutes
rmin = imin - (ihrs * 60)
'whole days since 1/1/70
PL-602-3 EnviroRanger Kommunikationsanleitung Seite 65