Sorry, bukan pake mod, tapi pake \ terus cari Integernya aja ...
Jadi sMingguKe = (dDay \ 7) + 1 ...
________________________________
From: Agustono, Subchan
Sent: Thursday, May 10, 2007 4:21 PM
To: '[email protected]'
Subject: RE: [Programmer-VB] Mengetahui Minggu Keberapa ?
============================
Dim dDate
Dim dDay
Dim sMingguKe
dDate = "01/01/" & Year(date)
dDay = DateDiff("d",dDate, Now())
sMingguKe = (dDay mod 7) + 1
============================
Gw langsung ketik nih tanpa coba dulu di kompi, jadi check dulu
parameter DateDiff diatas benar atau salah, barangkali kebalik.
Logikanya simple aja, cari selisih hari dari 'tanggal yang dicari minggu
ke berapa' dengan tanggal 1 januari pada tahun yang sama. Hasilnya
dibagi dengan 7, ambil penyebutnya aja + 1....
________________________________
From: [email protected]
[mailto:[EMAIL PROTECTED] On Behalf Of vbPian
Sent: Thursday, May 10, 2007 4:57 PM
To: [email protected]; [EMAIL PROTECTED]
Subject: [Programmer-VB] Mengetahui Minggu Keberapa ?
Hai semua...
Dalam 1 tahun itu kan ada 52 minggu. Nah untuk mengetahui tanggal hari
ini itu masuk ke minggu berapa bagaimana? apakah di VB ada fungsi khusus
untuk mengetahui minggu ke barap dari sebuah tanggal?
Please advice... TIA
--
Best Regard,
[zZzz]
This email is confidential. If you are not the addressee tell the sender
immediately and destroy this email
without using, sending or storing it. Emails are not secure and may suffer
errors, viruses, delay,
interception and amendment. Standard Chartered PLC and subsidiaries ("SCGroup")
do not accept liability for
damage caused by this email and may monitor email traffic.
