Untuk tanggal akhirnya koq malah njlimet ya :)
Padahal kan udah saya kasih contoh:
> TGLAkhir = dateadd("m", 1, tgl1) 'TGL1 => bulannya di tambah 1
> TGLAKhir = dateadd("d", -1, tglakhir) 'TGLAKHIR => dikurangi 1 hari.
Jadi tglakhir = tanggal satu bulan depan dikurangi satu hari
= (tanggal 1 bulan depan) - (1 hari)
Selamat mencoba :)
big smile and great regards in advance,
-----------------------------------------------------------------
Jacky Supit
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
dekstop or web programming,
anything i can do 4 you ;-)
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-----------------------------------------------------------------
-----Original Message-----
From: ronnytri ardendi [mailto:[EMAIL PROTECTED]
Sent: Saturday, October 07, 2006 12:00 AM
To: [email protected]
Subject: RE: [indoprog-vb] Fungsi untuk mendapatkan awal tanggal
Dear Hendra
Kalo saya gak salah tangkap maksud anda kan ingin
mendapatkan tgl awal dari tgl yang anda inputkan ?
Kalo benar, gak usah susah2 tinggal anda bikin
variabel seperti ini
vtgl=ctod("10/10/2006")
vtglawal=vtgl-day(vtgl)+1
maka otomatis vtglawal akan menjadi 01/10/2006
sedangkan kalo anda mau tau tgl akhir bulan dari
setiap tgl yang anda inputkan, maka bikin procedure
atau function...
contoh ;
function end_tgl
parameters vbulan,vtahun,vtglend
do case
case vbulan=1
vtglend=31
case vbulan=2
vtglend=28
case vbulan=3
vtglend=31
case vbulan=4
vtglend=30
dst...
untuk tahun yang habis di bagi 4 ( tahun kabisat ),
maka pada bulan 2 vtglend nya = 29
mungkin ini yang dimaksud anda, selamat mencoba
thanks
ronny
--- jack <[EMAIL PROTECTED]> wrote:
> 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
>
>
>
>
>
>
>
>
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
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/
