Dear Hendra,
Anda bisa menggunakan fungsi Dateserial untuk kebutuhan anda ini.
FUNGSI DATESERIAL(YEAR, MONTH, DATE)
Contoh: dari tanggal 10/01/2006
Kita pakai variable saja biar mudah dipelajari ya.
dIM TGL_ASLI as date, TGL1 as date, TGLAkhir as date
TGLasli = #01/10/2006# 'MM/DD/yyyy
'Nah untuk dapet TGL1
'INGAT, semua dalam format mm/dd/yyyy
TGL1 = dateserial(year(TGL_ASLI), month(TGL_ASLI), 1)
' akan menghasilkan TGL1 = #01/01/2006#
TGL1 = dateserial(year(TGL_ASLI), month(TGL_ASLI), 2)
' akan menghasilkan TGL1 = #01/02/2006#
TGL1 = dateserial(year(TGL_ASLI), month(TGL_ASLI), 3)
' akan menghasilkan TGL1 = #01/03/2006#
TGL1 = dateserial(year(TGL_ASLI), month(TGL_ASLI), 17)
' akan menghasilkan TGL1 = #01/17/2006#
'Nah untuk tanggal akhir, karena kita gak tau pasti apakah tanggal akhirnya
'28 atau 29 atau 30 atau 31,
'Kita ambil saja tgl 1 bulan depannya.
TGLAkhir = dateadd("m", 1, tgl1) 'TGL1 => bulannya di tambah 1
TGLAKhir = dateadd("d", -1, tglakhir) 'TGLAKHIR => dikurangi 1 hari.
Silahkan coba-coba sendiri fungsi-fungsi berikut:
- DATESERIAL
- DATEADD
- DATEADD
- YEAR
- MONTH
- DATE
- FORMAT(TGL, "dd/mm/yyyy HH:mm")
- dll
Selamat mencoba :)
big smile and great regards in advance,
-----------------------------------------------------------------
Jacky Supit
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
dekstop or web programming,
anything i can do 4 you ;-)
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-----------------------------------------------------------------
-----Original Message-----
From: Hendra Wahyudy [mailto:[EMAIL PROTECTED]
Sent: Friday, October 06, 2006 2:48 PM
To: [email protected]
Subject: [indoprog-vb] Fungsi untuk mendapatkan awal tanggal
Hi, Friends..
Lagi punya problem nich, tolong bantuin donk.
Begini, misalkan aku punya data date 10/10/2006
Gimana ya fungsi untuk mendapatkan tanggal 01 -> 01/10/2006
[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
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/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indoprog-vb/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> 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/
