TKSoft-Online

Alter Berechnen PDF Drucken E-Mail
( 0 Votes )
MS-Access Codes - Codeschnipsel Datum/Zeit
Geschrieben von: TommyK   
Donnerstag, den 27. Dezember 2007 um 01:00 Uhr
Tags:

Problemstellung:

Wie kann ich das genaue Alter einer Person ermitteln?

 


Public Function AlterBerechnen(dateGebdatum As Date, Optional dateDatum As Variant) As Integer
    If IsMissing(dateDatum) Then dateDatum = Date

    AlterBerechnen = IIf(Day(dateGebdatum) > Day(dateDatum) And _
                         Month(dateGebdatum) >= Month(dateDatum), _
                         Year(dateDatum) - Year(dateGebdatum) - 1, _
                         Year(dateDatum) - Year(dateGebdatum))
End Function

Aufruf:


Dim x As Integer
x = AlterBerechnen(#07.01.1963#,#01.04.2004#)

Das Ergebnis wäre x = 41
DatumKlicks
Total1372
Mi. 233
Di. 221
So. 202
Fr. 182
Do. 175
Mi. 162
Di. 152
< Zurück
Aktualisiert ( Freitag, den 02. Juli 2010 um 08:40 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173466 Downloads

JoomlaWatch 1.2.11 - Joomla Monitor and Live Stats by Matej Koval