> Ich hoffe du bist dann nicht mehr so sauer auf mich. ;-))
Ich bin nicht sauer. Weshalb auch ?
> <%
> EingabeD = RequestForm("DatumK")
> datum = DateValue(EingabeD)
> on Error resume next
> if Err.Num <> 0 then
> response.write("Die Eingabe enth�lt kein g�ltiges Datum")
Just not good enough. Dieses Programmfragment versagt an der
"hochkomplexen" Aufgabe ein simples Datum anzunehmen. Warum soll ich
16.4.2002 eingeben m�ssen, wenn es 16.4. oder 16.4 oder 16. oder 16 apr oder
heute auch t�te?
Was ich eben sagte: warum soll sich der Mensch der bl�den Kiste beugen? Vor
allen Dingen, wenn es nur ein paar Zeilen Code bedarf genau das zu fixen.
Und der Code auch noch fertig angeliefert wurde. Also noch nicht mal selbst
geschrieben, weder selbst getestet werden muss.
----
Hier mal zum Spielen, was wie geht. Alles in eine Test.vbs gepackt und
laufen lassen. Erstaunlicherweise nimmt er sogar 16.4 an, w�hrend 16.4.
nicht geht. Auch 16. apr geht. Besser als ich gedacht habe. Aber wie
gesagt, man kann es m.E. noch verbessern.
Do
EingabeD = inputbox("Datum eingeben", , EingabeD)
If EingabeD = "" Then Exit Do
on Error resume next
datum = DateValue(EingabeD)
if Err <> 0 then
wscript.echo "Die Eingabe enth�lt kein g�ltiges Datum"
else
wscript.echo "Datum ist " & datum
End If
Loop
--
Viele Gr��e
Hubert Daubmeier
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
