XProfan

Proc Differenz_Zeiten

    'Berechnet qui Differenz aus deux Zeiten
    Paramètres Zeit1$,Zeit2$
    declare heure%,minute%,seconde%, suffixstunde$,suffixminute$,suffixsekunde$
    heure%=Val(SUBSTR$(Zeit2$,1,»))-Val(SUBSTR$(Zeit1$,1,»))
    minute%=Val(SUBSTR$(Zeit2$,2,»))-Val(SUBSTR$(Zeit1$,2,»))
    seconde%=Val(SUBSTR$(Zeit2$,3,»))-Val(SUBSTR$(Zeit1$,3,»))

    si seconde%<0

        minute%=minute%-1
        seconde%=seconde%+60

    Endif

    si minute%<0

        heure%=heure%-1
        minute%=minute%+60

    Endif

    si heure%<0

        heure%=heure%+24

    Endif

    cas heure%<>1 : suffixstunde$="n"
    cas minute%<>1 : suffixminute$="n"
    cas seconde%<>1 : suffixsekunde$="n"
    la durée$=Str$(heure%) + " Stunde" + suffixstunde$ + "; " + Str$(minute%) + " Minute" + suffixminute$ + "; " + Str$(seconde%) + " Sekunde" + suffixsekunde$

ENDPROC

Windowstyle 24
Fenêtre 200,100 - 550,110
declare la durée$
Créer("GroupBox",%hwnd,"Zeit1:",25,10,100,50)
var Zeit1&=Créer("TimeEdit",%hwnd,"08:55:54",35,28,80,25)
Créer("GroupBox",%hwnd,"Zeit2:",135,10,100,50)
var Zeit2&=Créer("TimeEdit",%hwnd,"08:55:53",145,28,80,25)
Créer("GroupBox",%hwnd,"Dauer:",245,10,width(%hwnd)-245-20,50)
var Dauer&=Créer("Edit",%hwnd,»,255,28,width(%hwnd)-255-30,24)
EnableWindow dauer&,0

tandis que 1

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

Endwhile