| |
|
|
Jörg Sellmeyer | Seit XProfan11 gibt es die Funktion Between() |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08.08.2011 ▲ |
|
|
|
|
| Vlt. bietet es sich hierbei auch an einfach die Stunden mal 60 zu nehmen und die Minuten zu addieren um eine einfache Uhrzeitzahl zu erhalten die man dann mit between füttern potuto.
Das wäre dann ein Einzeiler. ^^ |
|
|
| |
|
|
|
Julian Schmidt | @IF: Denn Doppelpunkt durch eine beliebige Zahl zu ersetzen ist ähnlich und genauso funktionstüchtig, wenn nicht sogar kürzer.
cls
if ZeitimBereich(Time$(0),"9:00","11:00")=1
print "Die aktuelle Systemzeit è sich im Bereich 9:00-11:00"
locate 3,1
print "Es ist "+Time$(0)+" morgens"
else
print "Die aktuelle Systemzeit è sich nicht im Bereich 9:00-11:00"
Endif
waitinput
Proc ZeitimBereich
Parameters Zeit$, Zeitlicher_Bereich1$, Zeitlicher_Bereich2$
Return Between(Val(Translate$(Zeit$,":","0")), Val(Translate$(Zeitlicher_Bereich1$,":","0")), Val(Translate$(Zeitlicher_Bereich2$,":","0")))
EndProc
|
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08.08.2011 ▲ |
|
|
|
|
| Dann brauchst auch kein Between mehr denn imho kann XProfan < und > Vergleiche bei Strings wobei AAB größer als AAA ist -
müsstest danach den Doppelpunkt wiederum nicht durch eine Ziffer ersetzen. ^^ |
|
|
| |
|
|
|
| Mal testen...
(kann ja jeder den Kompilieren-Button betätigen...)
|
|
|
| |
|
|
|
Julian Schmidt | |
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08.08.2011 ▲ |
|
|
|
|
| also einfach case (time$(0)>time$(0)) and (time$(0)<time$(0)) : prozessor=bisl.kaputt xD |
|
|
| |
|
|