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
استفاده کنید
پاسخ با نقل قول