Sub AppStart (Args() As String)
Log(DateTime.Date(ClarionToTicks(4)))
Log(DateTime.Date(ClarionToTicks(5)))
Log(DateTime.Date(ClarionToTicks(80328)))
Log(DateTime.Date(ClarionToTicks(80329)))
End Sub
Sub ClarionToTicks (Clarion As Long) As Long
Dim t As Long = DateUtils.SetDate(1801, 1, 1)
Dim p As Period
p.Days = Clarion - 4
Return DateUtils.AddPeriod(t, p)
End Sub
Thanks to both!
I didn't know that dateutils.AddPeriod exists
B4X:
'15/01/2020
Deu.FechaVencimientoJubilados = 80006
Dim per As Period
per.Days = Deu.FechaVencimientoJubilados-4
Log(DateTime.Date(DateUtils.AddPeriod(DateTime.DateParse("01/01/1801"), per)))