Wieso geht das nicht??? Alter berechnen
18.09.2003 06:13:07
Christian
ich verzweifle gerade an folgendem Problem. Ich habe einen Stichtag (var) als Text in einer Namensliste, und ein in tag/monat/jahr aufgesplittetes Geburtsdatum. Daraus möchte ich eben das Alter in Jahren zum Stichtag ausgeben, und habe mir das so gedacht:
stag= Datevalue(var)
gtag = lis.Cells(zeil, 3).Text
gmon = lis.Cells(zeil, 4).Text
gjah = lis.Cells(zeil, 5).Text
daterz = DateValue(mtag + "." + mmon + "." + mjah)
alter = Format(stag - daterz,"yy")
Leider stimnmt das nur so ungefähr, offenbar ist das ein Problem mit Schaltjahren, wodurch sich die Rechnung verschiebt. Ich brauche aber das genaue Alter. Der Versuch die BErechnung in Jahre Monate und Tage aufzuteilen hat auch nix gebracht.
Ich bin sehr dankbar für jede Idee!
Gruß
Christian