XProfan

Proc Differenz_Zeiten

    'accounts The difference from two times
    Parameters Time1$,Time2$
    declare hour%,minute%,second%, suffixstunde$,suffixminute$,suffixsekunde$
    hour%=Val(SUBSTR$(Time2$,1,":"))-Val(SUBSTR$(Time1$,1,":"))
    minute%=Val(SUBSTR$(Time2$,2,":"))-Val(SUBSTR$(Time1$,2,":"))
    second%=Val(SUBSTR$(Time2$,3,":"))-Val(SUBSTR$(Time1$,3,":"))

    if second%<0

        minute%=minute%-1
        second%=second%+60

    Endif

    if minute%<0

        hour%=hour%-1
        minute%=minute%+60

    Endif

    if hour%<0

        hour%=hour%+24

    Endif

    case hour%<>1 : suffixstunde$="n"
    case minute%<>1 : suffixminute$="n"
    case second%<>1 : suffixsekunde$="n"
    duration$=Str $(hour%) + " Stunde" + suffixstunde$ + "; " + Str $(minute%) + " Minute" + suffixminute$ + "; " + Str $(second%) + " Sekunde" + suffixsekunde$

ENDPROC

Windowstyle 24
Window 200,100 - 550,110
declare duration$
Create("GroupBox",%hwnd,"Zeit1:",25,10,100,50)
var Time1&=Create("TimeEdit",%hwnd,"08:55:54",35,28,80,25)
Create("GroupBox",%hwnd,"Zeit2:",135,10,100,50)
var Time2&=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$(Time1&),Gettext$(Time2&)'Rückgabewert=dauer$
    'Differenz_Zeiten Time1,Time2
    Settext Dauer&,duration$

Endwhile