Mengetahui Tanggal Berada Pada Posisi Minggu Ke Berapa?

Private Function GetDayInWeek(d As Date) As Integer
    Dim dt As Date, i As Integer
    For dt = CDate(Format$(d, "mm/yyyy")) To DateAdd("m", 1, d)
        If Weekday(dt) = 2 Then
            i = i + 1
            If dt > d Then Exit For
        End If
    Next
    GetDayInWeek = i
End Function