coba yang berikut
Function GetWeek(ByVal sDate As Date) As Integer
GetWeek = DateDiff("ww", CDate("1 Jan " & CStr(Year(sDate))), sDate)
+ 1
End Function
regards,
Arlis
--- In [email protected], Ade Aan Wirama <[EMAIL PROTECTED]>
wrote:
>
> Coba kode berikut, saya dulu juga dapet dari dek
> google, tapi lupa alamat webnya.
>
> Public Function Week(ByVal inDate As Date) As Integer
> If IsDate(inDate) = False Then Exit Function
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
