nah ini dia sy dpt nih, mirip caranya mas iwan cahyadi dlm mencari selisih jam.
Pake fungsi DateDiff.
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
Caranya adalah dengan mencari selisih minggu dari tanggl 1 Jan tahun pd tgl
yg diinput sampai tanggal yg diinput, lalu ditambah 1.
DateDiff ("w", "1/1/" & Year, YourDate) + 1
kita bisa atur juga patokan hari pertama dlm seminggu itu hari apa
(firstdayofweek), defaultnya adl minggu.
contoh:
Dim MyDate As Date
Dim MingguKe As Long
Dim Msg as String
MyDate = InputBox("Masukkan tanggal")
MingguKe = DateDiff("w", CDate("1/1/" & Year(MyDate)), MyDate) + 1
Msg = "Tanggal "& cstr(MyDate) &" adalah minggu ke: " & MingguKe & " pada tahun
" & cstr(Year(MyDate))
MsgBox Msg
smoga membantu ya..
.carin
Latif Setiawan <[EMAIL PROTECTED]> wrote:
Teman-teman, minta bantuannya dong...
Gimana cara mencari minggu dalam setahun.
Contoh : Tanggal : 24 Agustus 2006 itu minggu keberapa dalam satu tahun..?
Trim's
---------------------------------
Get your email and more, right on the new Yahoo.com
[Non-text portions of this message have been removed]
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/
