Initial commit — sursa ROAIMOB

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

Programe/Vechi/DATAPIF.PRG

@@ -0,0 +1,19 @@
+
+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)
+