Code: Alles auswählen
function std_umrstd(endtime,anftime)
memvar edat_end
local nDatwechsel,nAnftime,nEndtime,std,std1
local x1
local x2
nDatwechsel:=1
edat_end:=0
nAnftime:=Timetosec(anftime) // Abfrage erste zeit
nEndtime:=Timetosec(endtime) // Abfrage zweite zeit
if nEndtime<nAnftime
nDatwechsel:=2
endif
std:=nEndtime-nAnftime // Zweite Zeit minus erste Zeit in sek.
std1:=std/60/60 // Sekunden auf Stunden umrechnen
if nDatwechsel > 1
x1:=86400-nAnftime
x2:=nEndtime
std:=x1+x2
std1:=std/60/60
edat_end:=1
endif
return (std1)