iya mas jack saya kelupaan pake cara itu, he..he..
thanks udah ingetin saya...
thanks
ronny
--- jack <[EMAIL PROTECTED]> wrote:
> 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
>
=== message truncated ===
__________________________________________________
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
<*> 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/
