Detail: VBS-Makro - Alter anhand des Geburtstages errechnen

04.06.2009 - VBS-Makro - Alter anhand des Geburtstages errechnen

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2007.06.21
' Bei diesem Makro soll das Alter anhand des Geburtstages errechnet werden
Option Explicit
Dim Alter, Monat, Tag, MonatHeute, TagHeute
If ActiveAddress.Fields("Geburtstag").Value <> "" Then
ActiveAddress.Fields("Alter").Value = Int(Alter)
Alter = DateDiff("m",ActiveAddress.Fields("Geburtstag").Value,date)
Alter = Alter \ 12
Tag = Left(ActiveAddress.Fields("Geburtstag").Value,2)
Monat = Left(ActiveAddress.Fields("Geburtstag").Value,5)
Monat = Right(Monat,2)
TagHeute = Left(date(),2)
MonatHeute = Left(date(), 5)
MonatHeute = Right(MonatHeute, 2)
If (Monat = MonatHeute) Then
If (TagHeute < Tag) Then
If Alter <> 0 Then
Alter = Alter - 1
End If
End If
End If
End If
ActiveAddress.Fields("Alter").Value = Int(Alter)


Makro-Sample:
Makro - Alter errechnen

zurück

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl