XProfan

Proc Differenz_Zeiten

    'Berechnet el Differenz de zwei Veces
    Parámetros Tiempo1$,Tiempo2$
    declarar stunde%,minute%,sekunde%, suffixstunde$,suffixminute$,suffixsekunde$
    stunde%=Val(SUBSTR$(Tiempo2$,1,":"))-Val(SUBSTR$(Tiempo1$,1,":"))
    minute%=Val(SUBSTR$(Tiempo2$,2,":"))-Val(SUBSTR$(Tiempo1$,2,":"))
    sekunde%=Val(SUBSTR$(Tiempo2$,3,":"))-Val(SUBSTR$(Tiempo1$,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

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

ENDPROC

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

mientras que 1

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

Endwhile