شريف

<% 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")%>

شعر حاج منصور ارضی در محضر رهبر انقلاب

«اين صاحبـان کــــرم و جود و مـغـفـرت مارا در اين حسينيه مهمان نمي‌کنند»

«تا پرچم حسين روي بام خانه‌هاست باور کنيد حمله به ايران نمي‌کنند:»

يــاد شهـيـد يــاد ولايــت مي‌آورد بيهوده نيست ياد شهيدان نمي‌کنند

با نهضت حسيني دوران مخالفند حفظ حريم پير جماران نمي‌کنند

عکس امام نه، دل مردم دو پاره شد آيا حيا از اين همه احسان نمي‌کنند؟

اين گردبادها که به غيرت درآمده تسليم رهبرند که توفان نمي‌کنند

اي رهبرا به پاي دفاع از حريمتان مردم دريغ از سر و از جان نمي‌کنند

+ نوشته شده توسط ابقاگر در سه شنبه پانزدهم دی 1388 و ساعت 19:56 |

هرجا که اغتشاشه فائزه رد پاشه

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

اعمال شب ليله الرغائب(شب آرزوها)

ليله الرغائب(شب آرزوها) اولين شب جمعه ماه رجب است كه براي آن اعمال و فضايل بسياري نقل كرده اند كه از آن جمله مي توان به روزه پنجشنبه و استغفار زياد اشاره كرد.
ادامه مطلب

+ نوشته شده توسط ابقاگر در پنجشنبه چهارم تیر 1388 و ساعت 10:1 |

گزارش تصويري اجتماع حاميان دكتر احمدي نژاد در دانشگاه شريف