XProfan

Deutsch

Georg

Wie kann ich ein ungültiges Datum abfangen z.B.
Im Programm kommt dann eine Fehlermeldung,"Ungültiges Datum oder Zeitformat" die ich abfangen muß.
Kann man auf ungültiges Datum mit einer Funktion überprüfen?
Kompilieren Markieren Separieren

declare d!
d! = dt("setDate", "30.02.2013", d!)
print  dt("getDoW", d!)

20.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Vielleicht einfach einen getDate<>setDate abgleich,

also wenn getDate etwas anderes zurückliefert als das bei setDate eingegebene
Datum dann ist scheinbar was verrutscht.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

20.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Georg

Das isses nicht. Ich will soviel edits erzeugen wie der Monat Tage hat und dabei die Sonnabende Tag =6 und SonntageTag = 7 anders einfärben.

20.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Ich bin etwas verwirrt da im ersten Beitrag meiner Meinung nach ein ganz anderes
Problem beschrieben ist oder ich den Zusammenhang jetzt nicht kappiere. ^^

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

20.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Georg

sorry ich erstelle in einer Schleife edits von 1 - 31,jeweils für einen Monat
setze das jeweils das nächst datum in der Schleife und frage den tag ab und wenn 6 oder 7 färbe ich das entsprechende edit. Im Februar und in monaten mit nur 30 Tagen -> crash. deswegen wollte ich prüfen, ob das ein ein gültiges datum ist.

20.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Julian
Schmidt

Es reicht dabei nicht aus zu prüfen ob das Datum dem richtigen Format entspricht.
Du musst explizit für jeden Tag eines Monats prüfen, ob dieser in den entsprechenden Monat existiert.

Geht zum Beispiel so. (ohne Beachtung von Schaltjahr)
Kompilieren Markieren Separieren

CLS
Declare maxday$
maxday$="31|28|31|30|31|30|31|31|30|31|30|31"

whileloop 12

    print Str$(&loop)+". Monat hat "+SubStr$(maxday$,&loop,"|")+" Tage"

    If Between(30, 1, Val(SubStr$(maxday$,&loop,"|")))

        print "30. Tag innerhalb des "+Str$(&loop)+". Monat"

    Else

        print "30. Tag NICHT innerhalb des "+Str$(&loop)+". Monat"

    Endif

    print "\n"
    waitinput

EndWhile

end

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

20.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Schade das ich meine (wenn auch ziemlich kryptische) Formel grad nicht finde,
die ausrechnet samt Schaltjahr, wievele Tage ein Monat hat.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

20.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Julian
Schmidt

Geht auch so:
Kompilieren Markieren Separieren

CLS
Declare maxday$,year&
maxday$="31|28|31|30|31|30|31|31|30|31|30|31"
year&=2012

whileloop 12

    print "Der "+Str$(&loop)+". Monat hat "+Str$(Val(SubStr$(maxday$,&loop,"|"))+(((year& mod 4)=0) and (&loop=2)))+" Tage"

    If Between(30, 1, Val(SubStr$(maxday$,&loop,"|"))+(((year& mod 4)=0) and (&loop=2)))

        print "30. Tag innerhalb des "+Str$(&loop)+". Monat"

    Else

        print "30. Tag NICHT innerhalb des "+Str$(&loop)+". Monat"

    Endif

    print "\n"
    waitinput

EndWhile

end

20.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

In Verbindung mit dt("IsLeapYear", D) dürfte das die einfachste Möglichkeit sein.
Da muss man nur den 29.2. abfragen und bei True eben noch ein Feld erzeugen.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

21.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Ragnar
Rehbein

Warum nicht so ?
Kompilieren Markieren Separieren

set("errorlevel",-1)
print dt("setDate", "29.02.2013")
print %error
set("errorlevel",0)
WaitInput

Wenn %error = 2 dann ungültiges Datum.

Gruß Ragnar

XProfan X2

21.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Ist ne gute Idee. In dem Zusammenhang, könnte dann auch gleich noch die XProfansche Fehlermeldung wegen eines falschen Datumsformates abgeschafft werden, da es ohnehin sinnvoller ist, wenn der Programmierer, die Überprüfung selber vornimmt.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

22.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Ragnar
Rehbein

Ich würde diesen Fehler von der Wichtigkeit her auch eher als Warnung einstufen. Dann bräuchte man den Errorlevel nicht ändern und %error wäre dann eben 1.
Andererseits wäre ich vermutlich dann nicht auf meine Idee gekommen. Eine Anpassung der Hilfe diesbezüglich wäre natürlich auch erforderlich.

r.r.

22.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren