> naja, da es ja nicht ewig viele Sternzeichen gibt, w�rde ich einfach eine
> Funktion bauen.
> Mit einer langen If Then oder Case Abfrage.
Ja, so k�nnte man's machen. Ich hab's zumindest so gemacht :-)
Function GetStern(bd)
Dim strStern
bd = Left(bd,6) & "2000"
bd = CDate(bd)
IF bd >= CDate("21.03.2000") AND bd <= CDate("20.04.2000") THEN strStern =
"Widder"
IF bd >= CDate("21.04.2000") AND bd <= CDate("20.05.2000") THEN strSern =
"Stier"
IF bd >= CDate("21.05.2000") AND bd <= CDate("21.06.2000") THEN strStern =
"Zwilling"
IF bd >= CDate("22.06.2000") AND bd <= CDate("22.07.2000") THEN strStern =
"Krebs"
IF bd >= CDate("23.07.2000") AND bd <= CDate("22.08.2000") THEN strStern =
"L�we"
IF bd >= CDate("23.08.2000") AND bd <= CDate("22.09.2000") THEN strStern =
"Jungfrau"
IF bd >= CDate("23.09.2000") AND bd <= CDate("23.10.2000") THEN strStern =
"Waage"
IF bd >= CDate("23.10.2000") AND bd <= CDate("21.11.2000") THEN strStern =
"Skorpion"
IF bd >= CDate("22.11.2000") AND bd <= CDate("20.12.2000") THEN strStern =
"Sch�tze"
IF bd >= CDate("21.12.2000") AND bd <= CDate("19.01.2000") THEN strStern =
"Steinbock"
IF bd >= CDate("20.01.2000") AND bd <= CDate("18.02.2000") THEN strStern =
"Wassermann"
IF bd >= CDate("19.02.2000") AND bd <= CDate("20.03.2000") THEN strStern =
"Fisch"
GetStern = strStern
End Function
Gru� und Dank
Stefan
| 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
