Android Code Snippet [B4X] Get number of days in year

Public Sub GetNumberOfDaysInYear(Year As Int) As Int
    Return DateUtils.PeriodBetweenInDays(DateUtils.SetDate(Year,1,1),DateUtils.SetDate(Year,12,DateUtils.NumberOfDaysInMonth(12,Year))).Days +1
End Sub

or

Public Sub GetNumberOfDaysInYear2(Year As Int) As Int
    Return DateTime.GetDayOfYear(DateUtils.SetDate(Year,12,31))
End Sub

or
from @mcqueccu

Public Sub GetNumberOfDaysInYear3(Year As Int) As Int
    DateTime.DateFormat = "yyyy/MM/dd"
    Dim d As Long = DateTime.DateParse($"${Year}/12/31"$)
    Return DateTime.GetDayOfYear(d)
End Sub

or
from @epiCode

Sub GetDaysInYear(year As Int) As Int
    Return IIf((year Mod 4 = 0 And year Mod 100 <> 0) Or year Mod 400 = 0, 366, 365)
End Sub

 

[mcqueccu]

When I run for the year 2023 I got 364.

I was thinking i could just parse last day of the year example 31-12-2023 as long to this method DateTime.GetDayOfYear(). But it gives 365.

It

 

[mcqueccu]

Checking from here https://www.epochconverter.com/days/2023

Days are 365 while checking for remaining days is 364 because it deducts from Zero

 

[Alexander Stolte]

Ok, we must always calculate +1 day. For 2020, it gives me 365 days instead of 366.

 

[mcqueccu]

Just came up with this.

Public Sub GetNumberOfDaysInYear2(Year As Int) As Int
    DateTime.DateFormat = "yyyy/MM/dd"
    Dim d As Long = DateTime.DateParse($"${Year}/12/31"$)
    Return DateTime.GetDayOfYear(d)
End Sub

 

[Alexander Stolte]

or

Public Sub GetNumberOfDaysInYear2(Year As Int) As Int
    Return DateTime.GetDayOfYear(DateUtils.SetDate(Year,12,31))
End Sub

anyways, i put all 3 in the first post

 

[mcqueccu]

Depends on DateUtils for B4A, jDateUtils for B4J and iDateUtils for B4i

 

[epiCode]

another alternate method without using dateutils:

Sub GetDaysInYear(year As Int) As Int
    Return Iff((year Mod 4 = 0 And year Mod 100 <> 0) Or year Mod 400 = 0, 366, 365)
End Sub

 

[Theera]

Public Sub GetNumberOfDaysInYear(Year As Int) As Int
    Return DateUtils.PeriodBetweenInDays(DateUtils.SetDate(Year,1,1),DateUtils.SetDate(Year,12,DateUtils.NumberOfDaysInMonth(12,Year))).Days +1
End Sub

or

Public Sub GetNumberOfDaysInYear2(Year As Int) As Int
    Return DateTime.GetDayOfYear(DateUtils.SetDate(Year,12,31))
End Sub

or
from @mcqueccu

Public Sub GetNumberOfDaysInYear3(Year As Int) As Int
    DateTime.DateFormat = "yyyy/MM/dd"
    Dim d As Long = DateTime.DateParse($"${Year}/12/31"$)
    Return DateTime.GetDayOfYear(d)
End Sub

or
from @epiCode

Sub GetDaysInYear(year As Int) As Int
    Return Iff((year Mod 4 = 0 And year Mod 100 <> 0) Or year Mod 400 = 0, 366, 365)
End Sub

Let me include your class in B4xstringfunctionVB.

Public Sub GetNumberOfDaysInYear(Year As Int) As Int
    Return DateUtils.PeriodBetweenInDays(DateUtils.SetDate(Year,1,1),DateUtils.SetDate(Year,12,DateUtils.NumberOfDaysInMonth(12,Year))).Days +1
End Sub

or

Public Sub GetNumberOfDaysInYear2(Year As Int) As Int
    Return DateTime.GetDayOfYear(DateUtils.SetDate(Year,12,31))
End Sub

or
from @mcqueccu

Public Sub GetNumberOfDaysInYear3(Year As Int) As Int
    DateTime.DateFormat = "yyyy/MM/dd"
    Dim d As Long = DateTime.DateParse($"${Year}/12/31"$)
    Return DateTime.GetDayOfYear(d)
End Sub

or
from @epiCode

Sub GetDaysInYear(year As Int) As Int
    Return Iff((year Mod 4 = 0 And year Mod 100 <> 0) Or year Mod 400 = 0, 366, 365)
End Sub

Let me include your class in B4xstringfunctionVB.