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

Tanggal akhir bulan




FUNCTION tglakhir
LPARAMETERS vbln, vthn
LOCAL akhirbl, vhr
vhr = 31
akhirbl = CTOD(STR(vhr, 2)+"-"+STR(vbln, 2)+"-"+STR(vthn, 4))
IF akhirbl=CTOD(" - - ")
akhirbl = CTOD(STR(vhr-1, 2)+"-"+STR(vbln, 2)+"-"+STR(vthn, 4))
ENDIF
IF akhirbl=CTOD(" - - ")
akhirbl = CTOD(STR(vhr-2, 2)+"-"+STR(vbln, 2)+"-"+STR(vthn, 4))
ENDIF
IF akhirbl=CTOD(" - - ")
akhirbl = CTOD(STR(vhr-3, 2)+"-"+STR(vbln, 2)+"-"+STR(vthn, 4))
ENDIF
RETURN (akhirbl)
ENDFUNC



0 blog comments below




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