Das ist leichter zu verstehen, wenn man DIM ins Spiel bringt
Ist eine Variable schon ausserhalb der Sub Prozedurbestimmt, werden
�nderungen an diesen Variablen auch ausserhalb der Sub wirksam
Dein Beispiel Adressiert die Variablen Lokal, wenn du die Variablen aber
ausserhalb benutzen willst muss es so herum aussehen
Dim xTag, xMonat, xJahr
Sub splitdate(xDatum)
xTag = Right("0" & Day(xDatum), 2)
xMonat = Right("0" & Month(xDatum), 2)
xJahr = CStr(Year(xDatum))
End sub
dann enthalten die drei Variablen nach dem Aufruf immer den Wert
Eine andere Methode der Werte�bergabe ist zB. eine Variable die direkt
�bergeben wird.
zum Beispiel wuerde auch gehen
Dim yTag, yMonat, yJahr
Dim lJahr, lMonat, lTag
Sub splitdate(xDatum,xTag, xMonat, xJahr)
xTag = Right("0" & Day(xDatum), 2)
xMonat = Right("0" & Month(xDatum), 2)
xJahr = CStr(Year(xDatum))
End sub
splitdate date,yTag, yMonat, yJahr
splitdate dateaddd("m",date,-3), lJahr,lMonat,lJahr
Dann hast du im y Bereich die Aktuellen tagesdaten
und im l Bereich die Daten von vor 3 Monaten
Gruss,
Andreas Roth
--------------------------------------
[EMAIL PROTECTED] *jetzt mit Chat*
http://www.EuphoriasChild.DarkTech.org
--------------------------------------
> -----Urspr�ngliche Nachricht-----
> Von: J�rgen Wehrle [mailto:[EMAIL PROTECTED]]
> Gesendet: Dienstag, 27. November 2001 08:45
> An: ASP Diskussionsliste fuer Anfaenger
> Betreff: [aspdebeginners] sub/function
>
>
> Moin!!
> Ich habe mal 'ne Anf�ngerfrage zu sub/function: Ich will mein
> Quellcode
> etwas aufdr�seln und gewisse Dinge auslagern. Um das Datum zu
> zerlegen habe
> ich folgenden Code:
>
> Function splitdate(xDatum)
> Dim xTag, xMonat, xJahr
> xTag = Right("0" & Day(xDatum), 2)
> xMonat = Right("0" & Month(xDatum), 2)
> xJahr = CStr(Year(xDatum))
> splitdate = xMonat & "/" & xTag & "/" & xJahr
> End function
>
> ****** Diese Funktion gibt mir korrekt den Wert splitdate
> zur�ck. Aber wie
> kann ich mehrere Werte zur�ckgeben lassen? Da habe ich in der Doku
> unterschiedliche infos gefunden. Einmal steht da, dass
> Sub-Prozeduren kein
> Wert zur�ckgeben und dann steht wieder genau das Gegenteil,
> n�mlich dass sie
> mehrere werte zur�ckgeben k�nnen. Und was stimmt nun?
>
> Also folgende Sub gibt keine Werte f�r xTag,xMonat, xJahr
> zur�ck, wenn ich
> sie so aufrufe:
> splitdate ("2.4.1978")
> Response.Write xTag
>
> Sub splitdate(xDatum)
> Dim xTag, xMonat, xJahr
> xTag = Right("0" & Day(xDatum), 2)
> xMonat = Right("0" & Month(xDatum), 2)
> xJahr = CStr(Year(xDatum))
> End sub
>
>
> Kann ich die R�ckgabe irgendwie erreichen? Vielen Dank schon mal!!!
>
> J�rgen
>
> | 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
