| |
|
|
Julian Schmidt | Minuten zu einer Zeit Addieren\Subtrahieren
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
|
|
|
| |
|
|
|
Jörg Sellmeyer | Hats du schon mal 23:45 angegeben als Startzeit? |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 14.07.2012 ▲ |
|
|
|
|
Julian Schmidt | Nein, habs nun aktualisiert |
|
|
| |
|
|
|
Jörg Sellmeyer | Dafür hast du aber noch nicht mit 00:01 beim subtrahieren getestet |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 15.07.2012 ▲ |
|
|
|
|
Julian Schmidt | |
|
| |
|
|
|
| Hmmm, Zeit muss nicht gleich Uhrzeit bedeuten -
gibt ja 25-Stunden-Rennen -
vlt. ein Flag. |
|
|
| |
|
|
|
| Gibt keine 25-Stunden-Rennen?
Funktion hat mir auch schon geholfen -
sehr gut gemacht -
vlt. etwas an der Performance schrauben und dann vlt. sogar noch als nProc. |
|
|
| |
|
|