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

[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?
اضافه کنند
چون سالهای کبیسه را در نظر نگرفته ام تاریخ میلادی و معادل شمسی را پارامتری انتخاب کردم
یعنی تاریخ میلادی روز و معادل تاریخ شمسی آنرا در یافت و بقیه موارد مثل برنامه