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
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
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