** mztolo 2006 hitung selisih jam
CLEAR
SET TALK OFF 
SET DATE DMY 
** d=Thisform.text1.value    && asumsi data berupa text/string spt ini 12:00
** e=Thisform.text2.value    && asumsi data berupa text/string spt ini 08:23
d="12:00"
e="08:23"

dd=VAL(LEFT(d,2))*60 + VAL(RIGHT(d,2))
ee=VAL(LEFT(e,2))*60 + VAL(RIGHT(e,2))

b=dd - ee

IF b < (3600 * 24)
	w=0
	a=b	
ELSE
	w=INT(b/(3600*24))
	a=MOD(b,(3600*24))
ENDIF

x=INT(IIF(a>3600,(a/3600),0))
y=INT(IIF(a>3600,MOD(a,3600)/60,a/60))
z=MOD(a,60)
? TRANSFORM(x,'@L 99:') + TRANSFORM(y,'@L 99:') +TRANSFORM(z,'@L 99')