** mztolo www.irenk.com
SET TALK OFF
CLEAR
SET DATE BRITISH
SET CENTURY ON
a='02/11/2002' && Tgl masuk
** x=CTOD('6/10/2006')
x=DATE() && Tgl hari ini
d='01/'+ STR(MONTH(CTOD(a))+ 1 )+ RIGHT(a,5)
e=DAY(CTOD(d) - 1)

STORE 0 TO thn, bln, hari1, hari2, hari
STORE 0 TO b,i,f, y

IF YEAR(CTOD(a)) = YEAR(x)
	IF MONTH(CTOD(a)) = MONTH(x)
		hari = (x - CTOD(a)) + 1
	ELSE
		b = MONTH(x) - MONTH(CTOD(a))
		FOR i=1 TO b
			c = '01/'+ STR(MONTH(CTOD(a))+ i )+ RIGHT(a,5)
			bln = i - 1
			IF MONTH(CTOD(c)) = MONTH(CTOD(a))
				hari1= DAY(CTOD(c) - 1) - DAY(CTOD(a)) + 1
			ELSE
				hari1= DAY(CTOD(c) - 1) - DAY(CTOD(a)) + 1
				hari2= (DAY(DATE()) - DAY(CTOD(c))) + 1
			ENDIF
			hari = hari1 + hari2
			bln = bln + INT(hari/e)
			hari = MOD(hari,e)
		NEXT
	ENDIF
ELSE
	f = YEAR(x) - YEAR(CTOD(a))
	thn = f - 1
	** bln1= IIF(MONTH(CTOD(a))=12,0,(12 - MONTH(CTOD(a)))) + IIF(MONTH(DATE())=1,0,(MONTH(DATE()) - 1) )
	bln1= IIF(MONTH(CTOD(a))=12,0,(12 - MONTH(CTOD(a)))) + IIF(MONTH(x)=1,0,(MONTH(x) - 1) )
	bln2= INT(bln1/12)
	bln = bln1
	** hari1= DAY(DATE())
	hari1= DAY(x)
	hari2= (e - DAY(CTOD(a))) + 1
	bln = bln + INT((hari1+hari2)/e)
	hari = MOD((hari1+hari2),e)
	DO CASE
	CASE bln>12
		thn = thn + INT(bln/12)
		bln = MOD(bln,12)
	CASE bln=12
		thn = 1 + (f-1)
		bln = 0
	ENDCASE
ENDIF

? TRANSFORM(thn,'### thn.' ) + TRANSFORM(bln,'### bln.' ) + TRANSFORM(hari,'### hari.' )