local d,l,a,t
public m.dat

sele mf
d=day(datapif)

l=month(datapif)+mod(normat,12)
a=year(datapif)+int(normat/12)
if l>12
	l=l-12
	a=a+1
endif


t=str(d,2)+'/'+str(l,2)+'/'+str(a,4)

m.dat=ctod(t)