Android Question WeekNum in the past

[parijs]

Hi,

Is it possible to get a week number in the past.
Sample: the week number of 06/02/2013

 

[LucaMs]

DateTime.DateFormat = "dd/MM/yyyy"
Log("Week: " & WeekNumber("06/02/2013"))

Sub WeekNumber(SomeDate As String) As Int
    Dim SomeDateTicks As Long = DateTime.DateParse(SomeDate)
    Dim SomeDateYear As Int = DateTime.GetYear(SomeDateTicks)
    Dim StartDate As Long = DateTime.DateParse("01/01/" & SomeDateYear)
    Dim p As Period = PeriodBetweenInDays(StartDate, SomeDateTicks)
    Dim Weeks As Int = p.Days / 7 + 1
    Return Weeks
End Sub

"Import" DateUtils library

 

[ivan.tellez]

DateTime.DateFormat = "dd/MM/yyyy"
Log("Week: " & WeekNumber("06/02/2013"))

Sub WeekNumber(SomeDate As String) As Int
    Dim SomeDateTicks As Long = DateTime.DateParse(SomeDate)
    Dim SomeDateYear As Int = DateTime.GetYear(SomeDateTicks)
    Dim StartDate As Long = DateTime.DateParse("01/01/" & SomeDateYear)
    Dim p As Period = PeriodBetweenInDays(StartDate, SomeDateTicks)
    Dim Weeks As Int = p.Days / 7 + 1
    Return Weeks
End Sub

"Import" DateUtils library

Thats too much code and operations for something really simple. You can do this without any external lib and only in 2 lines of code

DateTime.DateFormat = "w"
Log("Week: " & DateTime.Date(DateTime.DateParse("06/02/2013")))

 

[DonManfred]

Return Weeks

He does not want to know the weeks between two dates. He want to get the "WeekNo in the Year (1-52)"

 

[mangojack]

DateTime.DateFormat = "w"
Log("Week: " & DateTime.Date(DateTime.DateParse("06/02/2013")))

coincidentally, that code results in week #6 .. which is correct. But change the date and the result will always be the 'Day' portion.

maybe this..

DateTime.DateFormat = "dd/MM/yyyy"
Dim tempDate As Long = DateTime.DateParse("06/02/2013")
DateTime.DateFormat = "w"
Log("Week: " & DateTime.Date(tempDate))

 

[Erel]

You can use this code:

Sub Activity_Create(FirstTime As Boolean)
   Log(GetWeekOfYear(DateTime.DateParse("06/02/2013")))
   Log(GetWeekOfYear(DateTime.Now))
End Sub

Sub GetWeekOfYear(ticks As Long) As Int
   Return Floor(DateTime.GetDayOfYear(ticks) / 7) + 1
End Sub

 

[LucaMs]

Thats too much code and operations

.... and work

It is clear that I did not know that nice "trick".

Thanks

 

[parijs]

Thanks ...

 

[LucaMs]

He does not want to know the weeks between two dates. He want to get the "WeekNo in the Year (1-52)"

That is only a variable name chosen badly (with one eye only opened: 2:32 AM ); the function returns 1-53 (not 52).