Communication, Appendice B : Valeurs D'horodatage - Siemens Milltronics EnviroRanger ERS 500 Manuel D'utilisation

Communication, Appendice B : Valeurs
d'horodatage
L'horodatage est représenté par des nombres entiers 32 bits, utilisés pour indiquer le
nombre de secondes depuis le 1 janvier 1970. L'algorithme (Basic) décrit ci-dessous
permet la conversion en année, mois, jour, heure, minute et seconde.
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 to 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)
Page 166 EnviroRanger ERS 500 – MANUEL D'UTILISATION 7ML19981GL11