PFN Code

---

<%
FMonArray= array (0,31,31,31,31,31,31,30,30,30,30,30,30)
EMonArray= Array(0,31, 28,31,30,31,30,31,31,30,31,30,31)

W = Array  ("يکشنبه", "دوشنبه", "سه‌شنبه", "چهار‌شنبه", "پنج‌شنبه", "جمعه", "شنبه")
Mon = Array ("فروردين", "ارديبهشت", "خرداد", "تير", "مرداد", "شهريور", "مهر", "آبان", "آذر", "دي", "بهمن", "اسفند")
EYear= Year(Date)
EMon= Month(Date)
EDay = Day(Date)

ELeap=0

if ((EYear mod 4))= 0  Then
    ELeap =1
End if

Cnt=EMon-1
Temp=0
While Cnt<>0
if ((Cnt=2)and(ELeap=1)) Then
    Temp= Temp+29
else
    Temp= Temp + EMonArray(Cnt)
end if
Cnt=Cnt-1
Wend

EDayOfYear= Temp+EDay
' Convert to Farsi

Temp= EDayOfYear-79
if Temp>0 Then
    FYear= EYear-621
else
    FYear= EYear-622

    if ((FYear mod 4)=3) then
        Temp= Temp+366
    else
        Temp= Temp+365
    End if
End if

if (FYear mod 4)=3  Then
    FLeap=1
else
    Fleap=0
End if

Cnt= 1

While( (Temp<>0) and (Temp>FMonArray(Cnt)) )
if Cnt=12 Then
    if (FLeap=1) Then
        Temp=Temp-30
    else Temp= Temp-29
    end if
else  Temp= Temp-FMonArray(Cnt)
end if

Cnt= Cnt+1
Wend

if Temp<>0 Then
    FMon = Cnt
    FDay= Temp
else
    FMon= 12
    FDay=30
End if

    DateShamsi = W(WeekDay(Date) - 1) & " " & FDay& " " & Mon(FMon - 1) & " " &FYear
%>

<%=dateshamsi%><br><%=time()%>