jo, so hatte ich es auch gemacht.
Nur eine Zeile k�nntest noch weglassen
Der DateDiff kann auch Jahre ausrechnen, dann mu�t nicht /365 machen
Wei� jetzt nur net ob es 4 yyyy oder nur eines reicht.
nDiff = DateDiff("yyyy", rs("Geburtsdatum"), date())
' nDiff = nDiff\365 <---- unn�tig
Gru� Wolfgang
-----Urspr�ngliche Nachricht-----
Von: Stefan H�sler <[EMAIL PROTECTED]>
An: ASP Diskussionsliste fuer Anfaenger <[EMAIL PROTECTED]>
Gesendet: Freitag, 15. Februar 2002 10:25
Betreff: [aspdebeginners] AW: Re: AW: Re: Mittelwert
> Brutal kompliziert. Aber es funktioniert.
>
> i = 0
> j = 0
>
> Do until rs.EOF = true
> IF rs("Geburtsdatum") <> "" THEN
> nDiff = DateDiff("d", rs("Geburtsdatum"), date())
> nDiff = nDiff\365
> i = i + nDiff
> j = j + 1
> END IF
> rs.MoveNext
> Loop
>
> Response.Write "Das Durchschnittsalter der Mitglieder betr�gt: <B>" & i\j
&
> " Jahre</B>."
>
> War ne schnell, schnell Komposition, die durchaus verbesserungsw�rdig ist.
>
>
>
> | 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
