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

tanggal system




PROCEDURE setsystime
PARAMETER m.updtdate, m.updttime
DECLARE SHORT SetLocalTime IN win32api STRING
DECLARE INTEGER SendMessage IN win32api INTEGER, INTEGER, STRING, STRING
m.systemtime = word2str(YEAR(m.updtdate))+word2str(MONTH(m.updtdate))+word2str(DOW(m.updtdate)-1)+word2str(DAY(m.updtdate))+word2str(VAL(LEFT(m.updttime, 2)))+word2str(VAL(SUBSTR(m.updttime, 4, 2)))+word2str(VAL(SUBSTR(m.updttime, 7, 2)))+word2str(VAL(RIGHT(m.updttime, 2)))
m.retval = SetLocalTime(m.systemtime)
m.retval = SendMessage(65535, 30, "", "")
ENDPROC



0 blog comments below




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