FRIHOST FORUMS SEARCH FAQ TOS BLOGS COMPETITIONS
You are invited to Log in or Register a free Frihost Account!

Tanggal Indonesia




Function tgl_ina
Lparameters tgl As Date
Return Alltrim(nmhr_bln(tgl, .T.))+', '+Transform(Day(tgl), "99 ")+Alltrim(nmhr_bln(tgl, .F.))+Transform(Year(tgl), " 9999")
Endfunc

Function nmhr_bln
Lparameters dtgl As Date, mz As BOOLEAN
Local lct
If mz
lct = 'MingguSenin SelasaRabu Kamis Jumat Sabtu '
Else
lct = 'Januari Pebruari Maret April Mei Juni Juli Agustus SeptemberOktober Nopember Desember '
Endif
Return Substr(lct, Iif(mz=.T., 6*Dow(dtgl)-5, 9*Month(dtgl)-Cool, Iif(mz=.T., 6, 9))
Endfunc



1 blog comments below

What are the applications for these functions you're blogging about?
mexiwithacan on Mon Aug 22, 2011 4:26 am



FRIHOST HOME | FAQ | TOS | ABOUT US | CONTACT US | SITE MAP
© 2005-2011 Frihost, forums powered by phpBB.