Selisih Waktu pada Visual Foxpro

FUNCTION Time2Time(cTime1,cTime2)
LOCAL cJam,nJam, nMenit, nDetik, nDetik1, nDetik2, nDetik3
*
nDetik1 = VAL(SUBSTR(cTime1,1,2))*3600+VAL(SUBSTR(cTime1,4,2))*60+VAL(SUBSTR(cTime1,7))
nDetik2 = VAL(SUBSTR(cTime2,1,2))*3600+VAL(SUBSTR(cTime2,4,2))*60+VAL(SUBSTR(cTime2,7))
*
nDetik3 = ABS(nDetik2-nDetik1)
nJam = INT(nDetik3/3600)
nMenit = INT((nDetik3-nJam*3600)/60)
nDetik = nDetik3-nJam*3600-nMenit*60
*
cJam = RIGHT(’00’+LTRIM(STR(nJam)),2)+’:’+RIGHT(’00’+LTRIM(STR(nMenit)),2)+’:’+RIGHT(’00’+LTRIM(STR(nDetik)),2)
RETURN cJam
ENDFUNC

http://fox-id.org/smf/index.php?action=printpage;topic=6752.0

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s