Menampilkan nama bulan dan tahun di report

[aang]

Hello semua..

Balik lagi nih, emm.. gimana ya menampilkan nama bulan dan tahun saja direport misal "Januari 2010" dari data tanggal "05/01/2010".Sebelum dan sesudahnya thanks a lot of.

Sy.

[davidmustakim]

- buat textbox di report berisi nilai return fungsi mis. namafungsi(tgl)
- buat fungsi di main.prg atau prg lain yang sudah di "set procedure to" kl. sbb:
function namafungsi(ldTgl)
nBln=month(ldTgl)
lcRet= ;
iif(nBln=1, 'Januari', ;
iif(nBln=2,'Pebruari', ;
iif(nBln=3'Maret', ;
iif....
...)))))))
return lcRet

- yah, kayak gitu deh, silahkan latihan isi yang kosong

[onytoo]

ya... ayo latihan "om david sayed."

bisa juga kamu bikin dalam array, definisikan di method init di report

* method init

public arBulan
dimension arBulan[12]

arBulan[1] = 'Januari'
arBulan[2] = 'Pebruari'
....

* method destroy
release arBulan

di textboxnya isi -> arBulan[month(nama_field_tanggal)] + ' ' + tran(year(nama_field_tanggal))

semoga membantu....

[one_piece]

kalo tahun kan bisa pake fungsi year()

kalo nama bulan bisa di akali dengan membuat program contohnya :

parameter x
DO CASE
CASE x=1
y="Januari"
CASE x=2
y="Februari"
CASE x=3
y="Maret"
CASE x=4
y="April"
CASExe=5
y="Mei"
CASE x=6
y="Juni"
CASE x=7
y="Juli"
CASE x=8
x="Agustus"
CASE x=9
y="September"
CASE x=10
y="Oktober"
CASE x=11
y="Nopember"
CASE x=12
y="Desember"
otherwise
y="salah bulan"
endcase

return y

kemudian tinggal panggil deh nama_program(month(date()))

[aang]

Sebelumnya makasih banyak atas reply-nya semua, sebenarnya sih yg saya maksud di report bukan di form. Misalnya nya begini saya punya data peminjaman buku: 01/02/2010, 02/02/2010 n 27/03/2010 (format date dd/mm/yyyy). Memang sy buat di form untuk cetak /bulan dah bisa berdasarkan data tanggal peminjaman tersebut, cuma yg sy inginkan di report nanti yg tampil cuma nama bulan n tahun, misal "Maret 2010" gitu .... atau saya ya... yang kurang nangkap apa yg sudah di kasih tau bapak2 . Sebenarnya td bisa, di expressionnya sy buat gini cmonth(tglpinjam), year(tglpinjam) tapi hasilnya dalam nama bulannya bhs inggris gitu...

[davidmustakim]

lho kenapa ngomong tentang form sekarang, dari tadi semua penjelasan emang tentang report koq, nyimak baik2

[NuQBo]

mas aang.... cobalah untuk di mengerti cobalah untuk di fahami pertanyaan yang anda ajukan, dan yang dijawab oleh temen2 semuanya... ati ati pak david marah... bisa gawat dunia persilatan.... peace pak

[a17dh4]

di pake di report ke, di pake di form kek... sama aja... yg penting bikin fungsi aja yg sudah dikasih sama sebelumnya...

[one_piece]

iya report dan form tidak berbeda
kalo cuman gitu berarti tinggal kombinasi aja fungsi tahun dan program bulan yang anda buat pake tanda "+"

gitu aja kok repot !!

[aang]

Thank a lot of ya... atas share-nya dari bapak2 semua. Ga ada maksud buat marah ato gimana...... gitu. Ini pure karena ketidak tahuan n kekurangan saya dalam mencerna + memahami yang sudah bapak2 kasih tahu. So..wajarkan kalo saya bertanya.

[davidmustakim]

lah iya lah... masak pake maksud marah ato gimana..  ga enak loh ditimpuk orang seforum

[wakhosyinata]

Mudah2an bisa membantu, saya biasa pake coding spt ini :
yang diletakkan pada textbox di report.
"PERIODE BULAN :"+" "+TRIM(SUBS( "JANUARI  FEBRUARI MARET    APRIL    MEI      JUNI     JULI     AGUSTUS  SEPTEMBEROKTOBER  NOVEMBER DESEMBER ",VAL(SUBS(DTOC(prdlap),4,2))*9-8,9))+" "+SUBS(DTOC(prdlap),7,4)

nb : prdlap adalah periode laporan
terima kasih

weHAbe

[kc2]

panggil fungsi ini pada textbox sewaktu modify report, kaya jawaban om david diatas

function _cmonth(pDate)
      lcStrings = 'januari februari  ...... desember'  && silahkan diingat2 isi titik itu apa
      return getwordnum( lcStrings, month( pDate ) )
endfunc

[davidmustakim]

ahh... iya ya, keliatan emang kayaknya onytoo, one_piece, dan saya sendiri emang bekas pecandu clipper ato xbase dos lama... sampe kurang perhatian kalo VFP punya fungsi yang lebih simpel kayak getwordnum() ini...

[onytoo]

  ...
om david tau aja, saking banyaknya vfp kasih fungsi baru, sampe gak inget semuanya (atau malah gak tau sama sekali!  ).
trim's untuk ngingetin.