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
