Gunakan fungsi sbb:
Function GetWeek(ByVal StrDate As Date) As String
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
Function GetLastDate(ByVal StrDate As Date) As Date
GetLastDate = DateAdd("d", -1, DateSerial(Year(StrDate), Month(StrDate) +
1, 1))
End Function
Cara pemakaian di Immediate Window:
?Getweek(#4-nov-2007#)
2
?Getweek(#30-nov-2007#)
5
silahkan dikembangkan.
----- Original Message -----
From: wahyu vb
To: [email protected]
Sent: Monday, November 05, 2007 11:37
Subject: [indoprog-vb] mengetahui minggu pertama, minggu kedua dan seturusnya
dalam satu bulan
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
[Non-text portions of this message have been removed]
