آموزش asp >> درج تاریخ شمسی

 تا به حال الگوریتم‌های زیادی برای نمایش تاریخ جاری بر اساس تقویم جلالی ارائه شده‌اند . در زیر یک نمونه ساده ولی کارآمد آن ارائه می شود . این نمونه تاریخ Server را نشان می دهد . برای اینکه تاریخ از روی کامپیوتر بازدیدکننده محاسبه شود کافیست runat=server  را از کد حذف کنید .

<script language="vbscript" runat="server"> Function IranDate() Dim ifday,ifmonth,ifyear,ifdayofyear Dim iyear,idayofyear Dim inumdayofyear Dim aifmonthdays aifmonthdays = Array(31,31,31,31,31,31,30,30,30,30,30,29) inumdayofyear = 365 iyear =year(date) idayofyear = datepart("y", date) If isleapyear(iyear-1) then inumdayofyear = 366 aifmonthdays(11) = 30 End if If (idayofyear > 79 ) then ifyear = iyear -621 ifdayofyear = idayofyear - 79 Else ifyear = iyear - 622 ifdayofyear = (inumdayofyear - 79 ) + idayofyear End if ifday = ifdayofyear While ( ifday > aifmonthdays(ifmonth) ) ifday = ifday - aifmonthdays(ifmonth) ifmonth = ifmonth + 1 Wend ifmonth = ifmonth + 1 IranDate = ifyear & "/" & ifmonth & "/" & ifday End Function Function isleapyear(nyear) isleapyear = ( ( (nyear mod 4) = 0 And (nyear mod 100) <> ۰ ) or (nyear mod 400) = 0 ) End Function Sub Showfdate End sub </script> <%= (IranDate) %>

Facebook

Twitter

Linkedin