XProfan

Français

Georg

comment peux je un ungültiges date intercepter z.B.
Im Programme venez ensuite une Fehlermeldung,"Ungültiges date ou bien Zeitformat" qui je intercepter doit.
peux on sur ungültiges date avec einer Funktion überprüfen?
Kompilieren Marque Séparation

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

20.02.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

peut-être simple une getDate<>setDate abgleich,

alors si getDate autre chose zurückliefert comme cela chez setDate eingegebene
date ensuite ist scheinbar quoi verrutscht.

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

20.02.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg

cela isses pas. je veux soviel edits erzeugen comment qui mois Tage hat et dabei qui Sonnabende journée =6 et SonntageTag = 7 anders einfärben.

20.02.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

je suis quelque chose verwirrt là im ersten Beitrag meiner attitude pour un entier d'autre
Problem beschrieben ist ou bien Je l' Zusammenhang maintenant pas kappiere. ^ ^

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

20.02.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg

sorry je erstelle dans einer Boucle edits de 1 - 31,jeweils pour une mois
mets cela jeweils cela nächst date dans qui Boucle et frage den journée ab et si 6 ou bien 7 färbe je cela entsprechende edit. Im février et dans monaten avec seulement 30 Tagen -> crash. deswegen voulais je vérifier, si cela un un gültiges date ist.

20.02.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

Es reicht dabei pas aus trop vérifier si cela date dem richtigen Format entspricht.
Du musst explizit pour jeden journée eines Monats vérifier, si cette dans den entsprechenden mois existiert.

allez zum Beispiel so. (sans attention de Schaltjahr)
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

tant pis le moi mon (si aussi assez kryptische) Formel grad pas finde,
qui ausrechnet velours Schaltjahr, wievele Tage un mois hat.

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

20.02.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

allez aussi so:
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

dans liaison avec dt("IsLeapYear", D) pourrait cela qui einfachste Possibilité son.
là muss on seulement den 29.2. abfragen et chez True plan encore un champ erzeugen.

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

21.02.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Ragnar
Rehbein

pourquoi pas so ?
Kompilieren Marque Séparation

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

/pre>

si %error = 2 ensuite ungültiges date.

Salut Ragnar

XProfan X2

21.02.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Ist ne gute concept. dans dem Zusammenhang, pourrait ensuite aussi juste encore qui XProfansche Fehlermeldung à cause de eines falschen Datumsformates abgeschafft volonté, là es de toute façon sinnvoller ist, si qui Programmierer, qui Überprüfung selber vornimmt.

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

22.02.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Ragnar
Rehbein

je serait cette faute de qui Wichtigkeit her aussi plutôt comme avertissement einstufen. ensuite bräuchte on den Errorlevel pas changement et %error wäre ensuite plan 1.
Andererseits wäre je probablement ensuite pas sur mon concept gekommen. une Anpassung qui Aider diesbezüglich wäre naturellement aussi erforderlich.

r.r.

22.02.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation