Android Question how to get last sunday date sring in "yyyymmdd" format ?

[hears]

how to get last sunday date sring in "yyyymmdd" format ?

for change format i now use this code, but don't know how to get last SUNDAY

DateTime.DateFormat = "yyyyMMdd"
    date1=DateTime.Date(LASTSUNDAY)

 

[Erel]

Log(DateUtils.TicksToString(LastSunday))


Sub LastSunday As Long
   Dim d As Int = DateTime.GetDayOfWeek(DateTime.Now)
   Dim t As Long = DateTime.Add(DateTime.Now, 0, 0, -(d-1))
   Return DateUtils.SetDate(DateTime.GetYear(t), DateTime.GetMonth(t), DateTime.GetDayOfMonth(t))
End Sub

Add a reference to DateUtils library.

 

[hears]

THANK YOU ,IT IS WORK

 

[Mahares]

Sub LastSunday As Long
Dim d As Int = DateTime.GetDayOfWeek(DateTime.Now)
Dim t As Long = DateTime.Add(DateTime.Now, 0, 0, -(d-1))
Return DateUtils.SetDate(DateTime.GetYear(t), DateTime.GetMonth(t), DateTime.GetDayOfMonth(t))
End Sub

how to get last sunday date sring in "yyyymmdd" format ?

If today's day is Sunday, your code returns today's date not last Sunday. in order to get last Sunday's date, your code should be like this:

Sub LastSunday As Long
    Dim d As Int = DateTime.GetDayOfWeek(DateTime.Now)
    If d=1 Then
        Dim t As Long = DateTime.Add(DateTime.Now, 0, 0, -(d-1) -7)
    Else
        Dim t As Long = DateTime.Add(DateTime.Now, 0, 0, -(d-1))
    End If
    Return DateUtils.SetDate(DateTime.GetYear(t), DateTime.GetMonth(t), DateTime.GetDayOfMonth(t))
End Sub

 

[hears]

If today's day is Sunday, your code returns today's date not last Sunday. in order to get last Sunday's date, your code should be like this:

Sub LastSunday As Long
    Dim d As Int = DateTime.GetDayOfWeek(DateTime.Now)
    If d=1 Then
        Dim t As Long = DateTime.Add(DateTime.Now, 0, 0, -(d-1) -7)
    Else
        Dim t As Long = DateTime.Add(DateTime.Now, 0, 0, -(d-1))
    End If
    Return DateUtils.SetDate(DateTime.GetYear(t), DateTime.GetMonth(t), DateTime.GetDayOfMonth(t))
End Sub

thanks