20 lines
219 B
Plaintext
20 lines
219 B
Plaintext
|
|
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)
|
|
|