Addieren Uhrzeit Minute - JS-Soft

Addieren Uhrzeit Minute

Separieren Markieren

CLS
print AddTimeMinute("23:59",20)
print AddTimeMinute("23:59",-20)
Waitinput

Proc AddTimeMinute

    Parameters Zeit$,Minuten&
    Return Translate$(Str$(INT(((Val(Translate$(SubStr$(Zeit$,1,":"),"00","24"))*60)+Val(SubStr$(Zeit$,2,":"))+Minuten&)\60) mod 24),"00","24")+":"+Str$(((Val(Translate$(SubStr$(Zeit$,1,":"),"00","24"))*60)+Val(SubStr$(Zeit$,2,":"))+Minuten&) mod 60)

EndProc