XProfan

Proc Differenz_Zeiten

    'Berechnet die Differenz aus zwei Zeiten
    Parameters Zeit1$,Zeit2$
    declare stunde%,minute%,sekunde%, suffixstunde$,suffixminute$,suffixsekunde$
    stunde%=Val(SUBSTR$(Zeit2$,1,":"))-Val(SUBSTR$(Zeit1$,1,":"))
    minute%=Val(SUBSTR$(Zeit2$,2,":"))-Val(SUBSTR$(Zeit1$,2,":"))
    sekunde%=Val(SUBSTR$(Zeit2$,3,":"))-Val(SUBSTR$(Zeit1$,3,":"))

    if sekunde%<0

        minute%=minute%-1
        sekunde%=sekunde%+60

    Endif

    if minute%<0

        stunde%=stunde%-1
        minute%=minute%+60

    Endif

    if stunde%<0

        stunde%=stunde%+24

    Endif

    case stunde%<>1 : suffixstunde$="n"
    case minute%<>1 : suffixminute$="n"
    case sekunde%<>1 : suffixsekunde$="n"
    Dauer$=Str$(Stunde%) + " Stunde" + suffixstunde$ + "; " + Str$(minute%) + " Minute" + suffixminute$ + "; " + Str$(Sekunde%) + " Sekunde" + suffixsekunde$

EndProc

Windowstyle 24
Window 200,100 - 550,110
declare dauer$
Create("GroupBox",%hwnd,"Zeit1:",25,10,100,50)
var Zeit1&=Create("TimeEdit",%hwnd,"08:55:54",35,28,80,25)
Create("GroupBox",%hwnd,"Zeit2:",135,10,100,50)
var Zeit2&=Create("TimeEdit",%hwnd,"08:55:53",145,28,80,25)
Create("GroupBox",%hwnd,"Dauer:",245,10,width(%hwnd)-245-20,50)
var Dauer&=Create("Edit",%hwnd,"",255,28,width(%hwnd)-255-30,24)
EnableWindow dauer&,0

while 1

    sleep 200
    Differenz_Zeiten Gettext$(Zeit1&),Gettext$(Zeit2&)'Rückgabewert=dauer$
    'Differenz_Zeiten Zeit1,Zeit2
    Settext Dauer&,Dauer$

Endwhile