Thanks akan saya coba.
Salam,
Wahyu
On Nov 5, 2007 4:10 PM, wedhi2002 <[EMAIL PROTECTED]> wrote:
>
>
>
>
>
>
>
> 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
> >
>
>
