Habe folgende Funktion bekommen von nem Kumpel:
<%Function date_check (zeit, datumcheck)%>
<%zeit = LCase(zeit)%>
<%if datumcheck <> "" and datumcheck <> "TT.MM.JJ" and isnumeric(datumcheck) = true
then%>
<%' Uberprufung ob Punkte richtig gesetzt sind
punkt1=instr(1,datumcheck,".")
punkt2=instr(4,datumcheck,".")
if punkt1 <> 0 and punkt2 <> 0 and punkt1 + 1 <> punkt2 then%>
<%datumcheck_gesamt = Split(datumcheck, ".")%>
<%tag = cint(datumcheck_gesamt(0))
monat = cint(datumcheck_gesamt(1))
if cint(datumcheck_gesamt(2)) <= 99 and
cint(datumcheck_gesamt(2)) >= 50 then jahr = (1900+ cint(datumcheck_gesamt(2))) end if
if cint(datumcheck_gesamt(2)) < 50 and
cint(datumcheck_gesamt(2)) => 0 then jahr = (2000+ cint(datumcheck_gesamt(2))) end if
if tag > 31 or monat > 12 then
date_check = false
else
'Prufung nach Schaltjahr
select case jahr mod 4
case 1, 2, 3
schaltjahr = false%>
<%case else
select case jahr mod 100
case 0
select case jahr mod 400
case 0
schaltjahr =
true%>
<%case else
schaltjahr =
false%>
<%end select
case else
schaltjahr = true%>
<%end select
end select%>
<%'if jahr >= 1900 and jahr <= 1999 then
'jahr_1 = Split(jahr, "19")
'end if%>
<%'if jahr >= 2000 and jahr <= 2099 then
'jahr_1 = Split(jahr, "20")
'end if%>
<%'jahr = (jahr_1(1))%>
<%select case monat
case 1, 3, 5, 7, 8, 10, 12
if tag > 31 or tag < 0 then
date_check = false
'else
'date_check=true
end if
case 4,6,9,11
if tag > 30 or tag < 0 then
date_check = false
'else
' date_check=true
end if
case 2
'Prufung des Februars
if schaltjahr = true then
if tag > 29 or tag < 0 then
date_check = false
'else
' date_check=true
end if
else
if tag > 28 or tag < 0 then
date_check = false
'else
' date_check=true
end if
end if
case else
date_check = false
end select%>
<%if date_check = true or date_check = "" then%>
<%'datumcheck = cdate((tag & "." & monat & "." &
jahr))%>
<%differenz=datediff("d", cdate(datumcheck), date())%>
<%if zeit = "z" then
if differenz > 0 then
date_check = false
'else
' date_check=true
end if %>
<%end if%>
<%if zeit = "v" then
if differenz < 0 then
date_check = false
'else
'date_check=true
end if %>
<%end if%>
<%end if%>
<%end if%>
<%else
date_check = false
end if%>
<%else
date_check = false
end if
if date_check = "" then date_check = true end if%>
<%end Function%>
nun mochte ich sie aufrufen und das Ergebnis prufen.
Das habe ich wie folgt gemacht.
date_check (v,gueltig_bis)
if date_check = true then
Response.Write("<Div Align='Center'><H3><B>Sie haben ein Datum eingegeben,
dass in der Vergangenheit liegt!</B></H3></Div>")
Fehler = "1"
end if
Und folgende Fehlermeldung taucht auf:
Kompilierungsfehler in Microsoft VBScript-Fehler '800a0414'
Beim Aufrufen einer Unterroutine durfen keine Klammern verwendet werden
/alf2_org/admin/org_daten_hinzufuegen.asp, Zeile 75
date_check (v,gueltig_ab)
-------------------------^
Was habe ich falsch gemacht ?
Danke
---------------------------------------------------------------------------
Andre Schubert
Azubi Deutsche Telekom AG - BBi
T-Systems Nova GmbH
Telefon: (030) 43577 8602
eMail: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
| 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
