IF Format(dTgl.Value, "m") - 1 = 0 THEN
sMonth = "12"
sYear = CStr(Format(dTgl.Value, "yyyy") - 1)
ELSE
sMonth = CStr(Format(dTgl.Value, "m") - 1)
sYear = CStr(Format(dTgl.Value, "yyyy"))
END IF
sPeriode = smonth & syear ( "122007")
Bagaimana jika format untuk periode Tahun dahulu baru Bulan ("200812"),
Rudi <[EMAIL PROTECTED]> wrote: kode yg gw ambil
cuma spt ini sih:
'---ambil bulannya (datetimepicker) lalu dikurang 1
'---jadi kalo bulan nya desember maka data yg ditarik 12 - 1 (november)
sMonth = CStr(Format(dTgl.Value, "m") - 1)
'---ambil tahun dari datetimepicker
sYear = CStr(Format(dTgl.Value, "yyyy"))
'---nah ini yg menjadi patokan utk menarik data, jadi setiap bulan januari
pasti
'---data yg ketarik ini isinya kosong krn tlh berganti tahun
sPeriode = CStr(bMonth & bYear)
perintah utk narik data contohnya spt ini :
select pemakaianbulanlalu from tagihan where periode = speriode
jadi sekali lagi yang mau ditanyakan adalah bagaimana logikanya spy
kode diatas bisa juga menarik data apabila tahunnya berubah, semoga ada
teman2 yang mau menambahkan kode diatas atau bahkan di ganti seluruhnya juga
ga masalah.
atas bantuanya terimakasih banget
flash
__________________________________________________________
Never miss a thing. Make Yahoo your home page.
http://www.yahoo.com/r/hs
---------------------------------
Never miss a thing. Make Yahoo your homepage.
