+ نوشته شده توسط ابقاگر در جمعه یازدهم دی 1388 و ساعت
0:31 |
درباره وبلاگ

كد لينك به ما :
شايد يكم متفاوت
تعدادي از مطالب داراي موسيقي پس زمينه متناسب با متن ميباشند
منوی اصلی
آرشیو موضوعی
ديگه چه خبر
پیوندها
مشخصات دستگاه شما
طراح قالب
![]()
Powered By
ابقاگر
<%
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")%>
<%= 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")%>
کپی برداری از مطالب سايت فقط با ذکر منبع مجاز میباشد .
All Rights Reserved 2008-2009 © by
jebhe.ir
جبهه فرهنگي دوكوهه

