درج تاريخ شمسی

تا به حال الگوريتم‌های زيادی برای نمايش تاريخ جاری بر اساس تقويم جلالی ارائه شده‌اند . در زير يک نمونه ساده ولی کارآمد آن ارائه می شود . اين نمونه تاريخ 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) <> 0 ) or (nyear mod 400) = 0)

End Function

Sub Showfdate

End sub

<script/>

<%= (IranDate) %>