German Aktuelles Alter aus Datum berechnen

Dim diff As Period
DateTime.DateFormat="dd.MM.yyyy HH:mm:ss"
diff = DateUtils.PeriodBetweenInDays(DateTime.Now, DateTime.DateParse("27.07.2016 23:59:59"))
Label1.Text = diff.Days

    Dim diff As Period
    Dim DifJ As Int
    DateTime.DateFormat="dd.MM.yyyy"
    diff = DateUtils.PeriodBetweenInDays(DateTime.Now, DateTime.DateParse("07.03.1961"))
    DifJ=Abs(diff.days/365)
    Log(DifJ)

    Dim diff As Period
    Dim DifJ As Int
    DateTime.DateFormat="dd.MM.yyyy"
    diff = DateUtils.PeriodBetweenInDays(DateTime.DateParse("07.03.1961"),DateTime.DateParse("06.03.2023"))
    Log("day difference: " & diff.Days)
    Dim lyears As Int = number_of_leapyears(1961,2023)
    Log("number of leapyears: " & lyears)
    Log("years without leapyear: " & Round((diff.Days-(lyears*366))/365) )
    DifJ=Abs(((diff.days-(lyears*366))/365)+lyears)
    Log("correct age: " & DifJ)
    ' without leapyear days
    DifJ=Abs(diff.days/365)
    Log("age without leapyears: " & DifJ)

private Sub number_of_leapyears(startyear As Int, endyear As Int) As Int
    Dim numyears As Int = 0
    For yr = startyear To endyear
        If yr Mod 4 = 0 Then
            numyears = numyears + 1
        End If
    Next
    Return numyears
End Sub

'Schaltjahr Berechnung: Ein Schaltjahr ist, wenn
'
'Die Jahreszahl durch 4 teilbar ist.
'Ausnahme 1: Ist die Jahreszahl durch 100 teilbar ist i.d.R. KEIN Schaltjahr.
'Ausnahme 2: Ist die Jahreszahl durch 400 teilbar ist IMMER ein Schaltjahr.
'D.h. 2000, 2400 und 2800 Sind Schaltjahre.

    Dim diff2 As Period = DateUtils.PeriodBetween(DateTime.DateParse("07.03.1961"),DateTime.DateParse("06.03.2023"))
    Log(diff2.Years)

 DateTime.DateFormat = "dd.MM.yyyy"
  Dim diff2 As Period = DateUtils.PeriodBetween(DateTime.DateParse("07.03.1961"),DateTime.DateParse("06.03.2023"))

DateTime.DateFormat="dd.MM.yyyy"
Dim diff2 As Period = DateUtils.PeriodBetween(DateTime.DateParse("07.03.1961"),DateTime.DateParse("06.03.2023"))
Log(diff2.Years)

#Region  Project Attributes
        #ApplicationLabel: Testprojekt
    #VersionCode: 20221003
    #VersionName: Version 05.04.2023
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: True
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private xui As XUI
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
End Sub


Sub Button1_Click
    DateTime.DateFormat="dd.MM.yyyy"
    Dim diff2 As Period = DateUtils.PeriodBetween(DateTime.DateParse("07.03.1961"),DateTime.DateParse("06.03.2023"))
    Log(diff2.Years)
End Sub