<% DIM Y,D,M Function Iran(Byval N,Byval OP) W = Array ("یکشنبه", "دوشنبه", "سه‌شنبه", "چهار‌شنبه", "پنجشنبه", "جمعه", "شنبه") Mon = Array ("فروردین", "اردیبهشت", "خرداد", "تیر", "مرداد", "شهریور", "مهر", "آبان", "آذر", "دی", "بهمن", "اسفند") TOSHAMSI(N) DateShamsi = CSTR(W(WeekDay(N) - 1) & " " & D& " " & Mon(cint(M) - 1) & " " &Y) SELECT CASE OP CASE "ALL": '//25 مرداد 1387 IRAN=dateshamsi CASE "YEAR": '// 1387 Iran=CSTR(Y) CASE "DAY": '// 25 Iran=CSTR(D) CASE "WEEK": '// شنبه Iran=CSTR(W(WeekDay(N) - 1)) CASE "MOUNTH": '// مرداد Iran=CSTR(M) CASE "ALLNUMBER": '// 1387/05/25 Iran=CSTR(Y)&"/"&CSTR(M)&"/"&CSTR(D) CASE "TOMILAD": '// 1984/12/26 Iran= TOMILAD(1387, 10, 06) CASE "MILADI": '// 2008/08/15 set date_functions = new classDateFunctions Iran = date_functions.getFormattedDate(NOW(),"yyyy/mm/dd","/",false) CASE "C_MILADI": '// Costum Miladi Date set date_functions = new classDateFunctions Iran = date_functions.getFormattedDate(NOW(),"dd mmmm yyyy"," ",false) END SELECT END FUNCTION FUNCTION COUNTER(BYVAL MON,BYVAL DAY) RESULT=(MON-1)*30+DAY IF MON>7 THEN RESULT=RESULT+6 ELSE RESULT=RESULT+(MON-1) END IF COUNTER=RESULT END FUNCTION SUB SPIL(BYVAL NUMBER) IF NUMBER<=186 THEN M=INT(NUMBER/31)+1 D=NUMBER MOD 31 IF D=0 THEN M=M-1 D=31 END IF ELSE M=INT((NUMBER-186)/30)+7 D=(NUMBER-186) MOD 30 IF D=0 THEN M=M-1 D=30 END IF END IF if D<10 Then D="0"&D '///// Correct Day if M<10 Then M="0"&M '///// Correct Mounth END SUB FUNCTION TODAYS(BYVAL Y,BYVAL M,BYVAL D) DIM DAYS Y=Y-1 DAYS=365*Y IF Y>=17 THEN Y=Y-17 DAYS=DAYS+8*(Y\33)+5 Y=Y MOD 33 IF Y>=5 THEN DAYS=DAYS+(Y-5)\4+1 ELSEIF Y>0 THEN DAYS=DAYS+(Y-1)\4+1 END IF TODAYS=DAYS+COUNTER(M,D) END FUNCTION SUB FROMDAYS(BYVAL DAYS) Y=0 M=0 D=0 DAYS=DAYS-1 IF DAYS>=(17*365+5) THEN DAYS=DAYS-(17*365+5) Y=17+33*(DAYS\(33*365+8)) DAYS=DAYS MOD (33*365+8) IF DAYS>=(5*365+1) THEN DAYS=DAYS-(5*365+1) Y=Y+5+4*(DAYS\(4*365+1)) DAYS=DAYS MOD (4*365+1) END IF ELSEIF DAYS>=366 THEN DAYS=DAYS-366 Y=1+4*(DAYS\(4*365+1)) DAYS=DAYS MOD (4*365+1) END IF IF DAYS>0 THEN Y=Y+DAYS\365 DAYS=DAYS MOD 365 IF ISLEAPYEAR(Y) AND DAYS=0 THEN Y=Y-1 DAYS=365 END IF END IF Y=Y+1 DAYS=DAYS+1 SPIL(DAYS) END SUB FUNCTION ISLEAPYEAR(BYVAL Y) IF Y>=17 THEN Y=(Y-17)MOD 33 ISLEAPYEAR=Y=0 OR Y=5 OR(Y>5 AND ((Y-5)MOD 4)=0) ELSE ISLEAPYEAR=((Y-1)MOD 4)=0 END IF END FUNCTION%> <% SUB TOSHAMSI(BYVAL DT) CALL FROMDAYS(DT-#1/1/100#+36159-226893) END SUB FUNCTION TOMILAD(BYVAL Y,BYVAL M,BYVAL D) TOMILAD=CSTR(#1/1/100#+TODAYS(Y,M,D)+226893-36159) END FUNCTION %> <% class classDateFunctions Public Function getFormattedDate(byval curr_date, _ byval date_format, _ byval date_seperator, _ byval include_time) Dim date_format_arr Dim curr_date_month, curr_date_year, curr_date_day Dim new_curr_date_month, new_curr_date_year, new_curr_date_day Dim formated_date dim curr_time dim i ,temp_sep dim user_date user_date = curr_date ON ERROR RESUME NEXT curr_date_month = Month(user_date) curr_date_year = Year(user_date) curr_date_day = Day(user_date) curr_time = FormatDateTime(TimeValue (user_date),vbshortTime) if date_seperator = "" then getDateSeperator date_seperator end if if date_format = "" then getDateFormat date_format,date_seperator end if date_format_arr = Split(date_format, date_seperator) if UBound(date_format_arr) =0 then redim preserve date_format_arr(1) end if if UBound(date_format_arr) =1 then redim preserve date_format_arr(1) redim preserve date_format_arr(2) end if For i = 0 To 2 If InStr(1, ucase(date_format_arr(i)), "D") > 0 Then 'DAY If Len(date_format_arr(i)) = 1 Then new_curr_date_day = curr_date_day formated_date = formated_date & new_curr_date_day & date_seperator ElseIf Len(date_format_arr(i)) = 2 Then new_curr_date_day = pad(curr_date_day) formated_date = formated_date & new_curr_date_day & date_seperator End If ElseIf InStr(1, ucase(date_format_arr(i)), "M") > 0 Then 'MONTH If Len(date_format_arr(i)) = 3 Then new_curr_date_month = getShortMonthName(curr_date_month) formated_date = formated_date & new_curr_date_month & date_seperator ElseIf Len(date_format_arr(i)) = 2 Then new_curr_date_month = pad(curr_date_month) formated_date = formated_date & new_curr_date_month & date_seperator Else new_curr_date_month = getMonthName(curr_date_month) formated_date = formated_date & new_curr_date_month & date_seperator End If ElseIf InStr(1, ucase(date_format_arr(i)), "Y") > 0 Then 'YEAR If Len(date_format_arr(i)) = 2 Then new_curr_date_year = Right(curr_date_year, 2) formated_date = formated_date & new_curr_date_year & date_seperator ElseIf Len(date_format_arr(i)) = 4 Then new_curr_date_year = curr_date_year formated_date = formated_date & new_curr_date_year & date_seperator End If End If Next if include_time = true then getFormattedDate = Left(formated_date, Len(formated_date) - Len(date_seperator)) & " " & curr_time else getFormattedDate = Left(formated_date, Len(formated_date) - Len(date_seperator)) end if erase date_format_arr End Function Public Function getDateFormat(ByRef date_format,byval date_sep) date_format = "DD" & date_sep & "MM" & date_sep & "YY" End Function public function getDateSeperator(date_seperator) date_seperator = "-" end function 'pad ' Public Function pad(ByVal curr_val) If CInt(curr_val) < 10 Then pad = "0" & curr_val Else pad = curr_val End If End Function Public Function getMonthName(ByVal month_value) Select Case month_value Case 1: getMonthName = "January" Case 2: getMonthName = "February" Case 3: getMonthName = "March" Case 4: getMonthName = "April" Case 5: getMonthName = "May" Case 6: getMonthName = "June" Case 7: getMonthName = "July" Case 8: getMonthName = "August" Case 9: getMonthName = "September" Case 10: getMonthName = "October" Case 11: getMonthName = "November" Case 12: getMonthName = "December" End Select End Function Public Function getShortMonthName(ByVal month_value) Select Case month_value Case 1: getShortMonthName = "Jan" Case 2: getShortMonthName = "Feb" Case 3: getShortMonthName = "Mar" Case 4: getShortMonthName = "Apr" Case 5: getShortMonthName = "May" Case 6: getShortMonthName = "Jun" Case 7: getShortMonthName = "Jul" Case 8: getShortMonthName = "Aug" Case 9: getShortMonthName = "Sep" Case 10: getShortMonthName = "Oct" Case 11: getShortMonthName = "Nov" Case 12: getShortMonthName = "Dec" End Select End Function end class %> <%= iran(date(),"ALL") %>
<%= iran(date(),"ALLNUMBER") %>
<%= iran(date(),"WEEK") %>
<%= iran(date(),"DAY") %>
<%= iran(date(),"MOUNTH") %>
<%= iran(date(),"YEAR") %>
<%= iran(date(),"TOMILAD")%>
<%= iran(date(),"MILADI")%>
<%= iran(date(),"C_MILADI")%>