تبدیل کد فاکس پرو به پاسکال

[rezakhj]

fyear=1385
fmon=5
fday=3
n=date()-ctod("2006/07/25")
for i=1 to n
fday=fday+1
if fday>29
if fday=30 .and. fmon=12
fyear=fyear+1
fmon=1
fday=1
else
if fday=31 .and. fmon>6
fmon=fmon+1
fday=1
endi
endi
if fday=32 .and. fmon<7
fday=1
fmon=fmon+1
endi
endi
endf

دوستان برنامه نویس که با پاسکال هم آشنائی دارند لطفا در صورت امکان کد بالا که تبدیل تاریخ میلادی به شمسی است و خودم نوشتم به پاسکال بنویسید
من دستور date() و دستور ctod(" یک تاریخ خاص")
در پاسکال پیدا نکردم البته من به پاسکال اصلا کار نکرد ه ام

لطفا برای نمایش بهتر کد برنامه حتما از CTRL+RIGHT SHIFT
استفاده کنید
:متفکر:

[Esikhoob]

سعی کردم ولی نشد.

[rezaTavak]

توابع تاریخ فارسی نوشته شده به پاسکال هست بگردید احتیاج به دوباره نویسی نیست.

[rezakhj]

متشکرم آقای توکل
من نیاز به تاریخ شمسی ندارم فقط کد پاسکالشو نیاز دارم .

[rezakhj]

من فقط دستورات زیر را لازم دارم و الا خودم می نوشتم اینکه خیلی ساده است
1- تابع فراخوانی تاریخ سیستم مثل ()date در فاکس پرو
2- تابع تبدیل کارکتر به تاریخ مثل ("ctod("85/4/25 در فاکس پرو
کلا از دو تابع استفاده شده ولی چون اصلا با پاسکال کار نکردم برایم مشکل است

[rezakhj]

--------------------------------------
یعنی هیچکس با پاسکال کار نکرده ؟
--------------------------------------
ضمنا دوستانی که دنبال تاربع تاریخ میلادی به شمسی هستند کد ساده بالا میتواند کمکشان کند در آخر هم دستور
( str(fyear,4,0)+str(fmon,2,0)+str(fday,2,0?
اضافه کنند
چون سالهای کبیسه را در نظر نگرفته ام تاریخ میلادی و معادل شمسی را پارامتری انتخاب کردم
یعنی تاریخ میلادی روز و معادل تاریخ شمسی آنرا در یافت و بقیه موارد مثل برنامه