B4X:
Public Sub GetMonthFromDayOfYear(DayOfYear As Int,Year As Int) As Int
Dim p As Period
p.Initialize
p.Days = DayOfYear -1
'Log(DateUtils.TicksToString(DateUtils.AddPeriod(DateUtils.SetDate(Year,1,1),p)))
Return DateTime.GetMonth(DateUtils.AddPeriod(DateUtils.SetDate(Year,1,1),p))
End Sub
B4X:
Log(GetMonthFromDayOfYear(1,2023)) '1 = January
Log(GetMonthFromDayOfYear(31,2023)) '1 = January
Log(GetMonthFromDayOfYear(32,2023)) '2 = February
Last edited: