mach mal : call date_check (v,gueltig_ab) oder date_check v,gueltig,ab gru�,
tom -----Urspr�ngliche Nachricht----- Von: A-Schubert [mailto:[EMAIL PROTECTED]] Gesendet: Freitag, 16. November 2001 12:29 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] Funktionen in ASP 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 | 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
