Gunakan fungsi sbb:
Function GetWeek(ByVal StrDate As Date) As integer
weeks = 1
For i = 1 To Day(StrDate)
noweek = Weekday(DateAdd("d", i - 1,
DateSerial(Year(StrDate), Month(StrDate), 1)))
If noweek = 1 Then
weeks = weeks + 1
End If
Next
GetWeek = weeks
End Function
Cara pemakaian di Immediate Window:
?Getweek(#4-nov-2007#)
2
?Getweek(#30-nov-2007#)
5
--- In [email protected], "wahyu vb" <[EMAIL PROTECTED]> wrote:
>
> Dear ALL
>
> Minta tolong dong ada yang tahu menghitung minggu pertama minggu kedua
> minggu ke tiga menggunakan Visual basic. senin -> sabtu minggu pertama
> misal tanggal 1 hari kamis tanggal 2 hari jum'at tanggal 3 hari sabtu,
> jadi minggu pertama 1 - 3.
>
> Terima Kasih Atas batuannya.
>
> Salam,
> Wahyu
>
