XProfan

Español

Georg

¿Cómo se puede Yo una ungültiges Datum abfangen z.B.
Im Programa kommt entonces una Fehlermeldung,"Ungültiges Datum oder Zeitformat" el Yo abfangen muß.
Kann uno en ungültiges Datum con uno Función überprüfen?
Kompilieren Marca Separación

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

20.02.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Tal vez simplemente una getDate<>setDate abgleich,

also si getDate de otra manera zurückliefert como en el setDate eingegebene
Datum entonces scheinbar qué verrutscht.

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

20.02.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg

Das isses no. Yo voluntad soviel edits erzeugen como el Monat Tage ha y esta el Sonnabende Tag =6 y SonntageTag = 7 anders einfärben.

20.02.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Yo bin algo verwirrt como en el ersten Contribución meiner Meinung después de una bastante más
Problema beschrieben es oder Yo, el Zusammenhang ahora no kappiere. ^ ^

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

20.02.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg

sorry Yo erstelle en uno Bucle edits de 1 - 31,jeweils para una Monat
poner el jeweils el nächst datum en el Bucle y frage el tag de y si 6 oder 7 färbe Yo el entsprechende edit. Im Februar y monaten con sólo 30 Tagen -> crash. deswegen Yo quería prüfen, si el una una gültiges datum es.

20.02.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Lo reicht esta no de a prüfen si el Datum el richtigen Formato entspricht.
Usted musst explizit para cada Tag uno Monats prüfen, si dieser en el entsprechenden Monat existiert.

Geht para Ejemplo así. (sin Beachtung de Schaltjahr)
Kompilieren Marca Separación

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 Cita Zeilenweise Cita

Schade el Yo mi (si auch bastante kryptische) Formel grad no finde,
el ausrechnet samt Schaltjahr, wievele Tage una Monat ha.

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

20.02.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Geht auch así:
Kompilieren Marca Separación

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 Cita Zeilenweise Cita

Jörg
Sellmeyer

In Verbindung con dt("IsLeapYear", D) dürfte el el einfachste Möglichkeit ser.
Como muss uno sólo el 29.2. abfragen y en True eben todavía una Feld erzeugen.

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

21.02.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Ragnar
Rehbein

¿Por qué no así ?
Kompilieren Marca Separación

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

/pre>

Wenn %error = 2 entonces ungültiges Datum.

Saludo Ragnar

XProfan X2

21.02.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Ist ne gute Concepto. In el Zusammenhang, podría entonces auch igual todavía el XProfansche Fehlermeldung wegen uno falschen Datumsformates abgeschafft voluntad, como lo ohnehin sinnvoller es, si la Programmierer, el Überprüfung selber vornimmt.

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

22.02.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Ragnar
Rehbein

Yo sería esta Fehler de el Wichtigkeit her auch más como Warnung einstufen. Dann bräuchte uno el Errorlevel no ändern y %error wäre entonces eben 1.
Andererseits wäre Yo vermutlich entonces no en mi Concepto gekommen. Un Anpassung el Ayuda diesbezüglich wäre natürlich auch erforderlich.

r.r.

22.02.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita