Sterbedatum bekannt, Geburtstag berechnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich kan auch kein PHP, aber der Übergang zu VBA ist schnell gemacht:
Lassen wir den Mann/Frau gestorben sein am


A                            B
01.10.1951                   2433921 =GregorianToJD(A1)
28956 =365*79+90+12+GANZZAHL(79/4)
20.6.1872 =JDtoGregorian(B3) 2404965 =B1-B2

Berechne aus den Sterbetag das Julianische Tagesdatum ziehe die Lebenszeit in Tagen ab und wandle wieder zurück in das Gregorianische Datum.
Die Gretchenfrage ist die Interpretation der Altersangabe 79 J 3 M 12 T.
Wieviele Tage sind gemeint?
Ich setze mal 79*365+90+12 Tage + einen Schätzer für die Schaltjahre und komme auf den Geburtstag 20.6.1872 (einen Tag hin oder her).

Gruß HW


'jdtogregorian --  Konvertierung vom Julianischen Datum zum
'Gregorianischen Kalender
'Beschreibung
'string jdtogregorian ( int julianday)
'
'Diese Funktion konvertiert den in julianday angegebenen
'Tag im Julianischen Datum in einen String, der das Datum
'nach dem Gregorianischen Kalender in der Form "DD.MM.YYYY" enthält.
'uni_fl4r3 at t hotmail dot com
'ad to VBA (hw) 1.10.03
Function JDtoGregorian(julian As Long) As String
Dim day As Long, month As Long, year As Long
Dim calc As Long
julian = julian - 1721119
calc = 4 * julian - 1
year = Int(calc / 146097)
julian = Int(calc - 146097 * year)
day = Int(julian / 4)
calc = 4 * day + 3
julian = Int(calc / 1461)
day = calc - 1461 * julian
day = Int((day + 4) / 4)
calc = 5 * day - 3
month = Int(calc / 153)
day = calc - 153 * month
day = Int((day + 5) / 5)
year = 100 * year + julian
If (month < 10) Then
month = month + 3
Else
month = month - 9
year = year + 1
End If
JDtoGregorian = day & "." & month & "." & year
End Function
'gregoriantojd --  Konvertierung vom Gregorianischen Kalender
'zum Julianischen Datum
'Beschreibung
'int gregoriantojd ( int month, int day, int year)
'
'
'Diese Funktion konvertiert das in month, day und year
'übergebene Datum im Gregorianischen Kalender in einen Tag
'im Julianischen Datum.
'
'Gültige Daten liegen im Bereich von 4714 v. Chr. bis
'9999 n. Chr. Der Gregorianische Kalender wurde allerdings
'erst am 15. Oktober 1582 (bzw. am 5. Oktober nach dem bis
'dahin gültigen Julianischen Kalender) von Papst Gregor XIII.
'eingeführt, in einigen Ländern erst sehr viel später.
'So übernahmen die Briten den Gregorianischen Kalender 1752,
'die UDSSR 1918 und Griechenland erst im Jahre 1923.
'In den meisten europäischen Ländern wurde vor dem Gregorianischen
'der Julianische Kalender benutzt.
'erik at nospam dot tba dot com dot br
'ad to VBA (hw) 1.10.03
Function GregorianToJD(Datum As Variant) As Long
Const day = 0, month = 1, year = 2
Dim c As Long
Datum = Split(Datum, ".")
If (Datum(month) > 2) Then
Datum(month) = Datum(month) - 3
Else
Datum(month) = Datum(month) + 9
Datum(year) = Datum(year) - 1
End If
c = Int(Datum(year) / 100)
GregorianToJD = Int((146097 * c) / 4)
GregorianToJD = GregorianToJD + Int((1461 * (Datum(year) - (100 * c))) / 4)
GregorianToJD = GregorianToJD + Int(((153 * Datum(month)) + 2) / 5)
GregorianToJD = GregorianToJD + Datum(day) + 1721119
End Function

Beliebteste Forumthreads (12 Monate)

Sterbedatum bekannt, Geburtstag berechnen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread