Italian ♫ ♫ ho girato e rigirato, senza trovare nulla ♫♫♫ giorno dell'anno

[giannimaione]

[B4J] [B4A] Conoscendo la data, come calcolare il numero del giorno e il numero della settimana?
esempio: data 18/09/2023 -> 261 giorno e 38 settimana

 

[Lello1964]

non sono certo ma vedi questo :
https://www.b4x.com/android/forum/threads/b4x-get-number-of-days-in-year.149406/#content

 

[MarcoRome]

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    'MainForm.Show
    
    Dim t As Long = DateTime.DateParse("09/18/2023") + DateTime.TicksPerDay
    Log($"$Date{t}: Week #${GetWeekNumberStartingFromMonday(t)}, Day: ${getNumberDate(t)}"$)
End Sub

Sub GetWeekNumberStartingFromMonday (ticks As Long) As Int
    Dim WeekDayOfFirstDayOfYear As Int = DateTime.GetDayOfWeek(DateUtils.SetDate(DateTime.GetYear(ticks), 1, 1)) - 1
    Dim FirstMondayInYear As Int = (7 + WeekDayOfFirstDayOfYear - 1) Mod 7
    Dim result As Int
    If WeekDayOfFirstDayOfYear <> 1 Then result = result - 1
    result = result + Floor((DateTime.GetDayOfYear(ticks) - 1 + FirstMondayInYear) / 7) + 1
    Return result
End Sub

Sub getNumberDate (datet As Long)  As Int
    DateTime.DateFormat = "yyyy/MM/dd"
    Dim yr As Int = DateTime.GetYear(DateTime.Now)
    Dim p As Period = DateUtils.PeriodBetweenInDays(DateTime.DateParse($"${yr}/01/01"$), datet)
    Return p.Days
End Sub

La settimana presa da un esempio di Erel:

GetWeekNumberStartingFromMonday not working in 2021

I'm using the following sub to calculate the weeknumber starting from monday. Until now, it worked fery fine. But now, in the new year, the sub seems no longer to work. The 03. January 2021 is the 53. week von the year 2020 because the week starts with 28.12.2020. So the 04.01.2021 must be the...

www.b4x.com