Perhitungan Tahun

—————————————————————————

numberVar Jml:=DateDiff (“m”,{dkm.dkmtmtcpns} ,CurrentDate );
if InStr (UpperCase({dkm.dkmpangkat}),”(II\”)=0 or InStr (UpperCase({dkm.dkmpangkat}),”(I\”)=0 then
if InStr (UpperCase({dkm.dkmpangkat1}),”(II\”)=0 or InStr (UpperCase({dkm.dkmpangkat1}),”(I\”)=0 then
jml\12
else
if (jml-60)<=0 then 0 else (jml-60)\12
else
jml\12

—————————————————————————-

Perhitungan Bulan:

—————————————————————————-

numberVar Jml:=DateDiff (“m”,{dkm.dkmtmtcpns} ,CurrentDate );
if InStr (UpperCase({dkm.dkmpangkat}),”(II\”)=0 or InStr (UpperCase({dkm.dkmpangkat}),”(I\”)=0 then
if InStr (UpperCase({dkm.dkmpangkat1}),”(II\”)=0 or InStr (UpperCase({dkm.dkmpangkat1}),”(I\”)=0 then
jml mod 12
else
if (jml-60)<=0 then 0 else (jml-60) mod 12
else
jml mod 12

————————————————————————–