Android Question Fortnight Calculation

[BedDweller]

I've looked though the DateTime and DateUtils trying to find a way to calculate weather or not week X is a odd or even week (starting with the week Wednesday 1/1/2014 being odd, then Sunday 5/1/2014 being the start of a even week)...

I've thought about going on the lines of

If DateTime.GetWeekofYear Mod 2 = 0 Then
    Week = Even
Else
    Week = Odd
End If

but there is no GetWeekofYear function, and using a series of functions alone that line to get that number seems prone to bugs... and as for playing with the Ticks, I been kinda daunted form playing with them as there's a lot of 'how to use', but can't really find, 'this is what a tick is'.
Thanks

 

[BedDweller]

looks like I just needed to clear my head... anyway answer for future use for anyone who comes along this problem,

((DateTime.GetDayOfYear(DateTime.Now)+(DateTime.GetDayOfWeek(DateTime.DateParse("01/01/"&DateTime.GetYear(DateTime.Now)))))/7+1)

gives the Week of Year.

 

[DonManfred]

It is easier to use "w" as formatsetting. And, btw, much less code needed

DateTime.Dateformat = "w"
Log("Week="&DateTime.Date(DateTime.now))

or you can write (okok, i already did ) a sub for it and use this sub.

Sub GetWeekOfYear(dt As Long) As Int
    ' store old timeformat pattern
    Dim oldsetting As String = DateTime.DateFormat

    ' set temporary timeformat pattern
    DateTime.DateFormat = "w"

   ' Get weekno
    Dim weekno As Int
    weekno = DateTime.Date(dt)

    ' restore old timeformat pattern
    DateTime.DateFormat = oldsetting

    ' return weekno as int
    Return weekno
End Sub

Log("WeekNo = "&GetWeekOfYear(DateTime.now))

 

[BedDweller]

It is easier to use "w" as formatsetting. And, btw, much less code needed

DateTime.Dateformat = "w"
Log("Week="&DateTime.Date(DateTime.now))

or you can write (okok, i already did ) a sub for it and use this sub.

Sub GetWeekOfYear(dt As Long) As Int
    ' store old timeformat pattern
    Dim oldsetting As String = DateTime.TimeFormat

    ' set temporary timeformat pattern
    DateTime.TimeFormat = "w"

   ' Get weekno
    Dim weekno As Int
    weekno = DateTime.Date(dt)

    ' restore old timeformat pattern
    DateTime.TimeFormat = oldsetting

    ' return weekno as int
    Return weekno
End Sub

Log("WeekNo = "&GetWeekOfYear(DateTime.now))

Almost works like a Charm, but it throw a "Not a Valid Double" error... you might want to correct your code to use Date.Time.DATEFormat... after fixing that it works perfectly ^.^ thanks

 

[DonManfred]

Almost works like a Charm, but it throw a "Not a Valid Double" error... you might want to correct your code to use Date.Time.DATEFormat... after fixing that it works perfectly ^.^ thanks

Inside the sub, yes, you are right... I´ve changed code above thank you