Runder Geburtstag über Funktion ermitteln
07.12.2018 16:03:34
Blangmantl
Mitgliederliste
| A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | |
| 7 | Lfd.-Nummer | Mitgliedsnummer | Anrede | Nachname | Vorname | Straße | PLZ | Stadt | Festnetz 1 | Festnetz 2 | Telefax | Mobil | E-Mail-Adresse | Empfängerkreis | Geburtsdatum | Geburtstagsliste | Runde Geburtstage | Vereinseintritt | Vereinsaustritt oder Todesfall | Austrittsgrund | Alter |
| 8 | 1 | FR-0001 | Herrn | Mustermann | Max | 12.05.1928 | 12.05 | 90 J | 90 J |
| Formeln der Tabelle | ||||||||
|
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Das Geburtsdatum und die Geburtstagslisten werden bereits über Funktionen ausgerechnet,
Function Alter(Geburtsdatum As Date, Sterbedatum As Date, Austrittsgrund As String) As Byte Select Case Austrittsgrund Case Is = "Tod" If IsEmpty(Sterbedatum) Or Sterbedatum = 0 Then Exit Function Else Alter = Year(Sterbedatum) - Year(Geburtsdatum) End If Case Else If IsEmpty(Geburtsdatum) Or Geburtsdatum = 0 Then Alter = 0 Else Alter = Year(Date) - Year(Geburtsdatum) If DateSerial(Year(Date), Month(Geburtsdatum), Day(Geburtsdatum)) > Date Then Alter = Alter - 1 End If End If End Select End Function
Function Geburtstagsliste(Geburtsdatum As Date) As Date
If IsEmpty(Geburtsdatum) Or Geburtsdatum = 0 Then
Geburtstagsliste = 0
Else
Geburtstagsliste = DateSerial(Year(Date), Month(Geburtsdatum), Day(Geburtsdatum))
End If
End Function
Ich komme da nicht weiter, wer kann mir bei der Berechnung der Runden Geburtstage helfen?
Danke und Gruß
Benedikt