تبلیغات
آموزشASP.NET - جهت تبدیل تاریخ میلادی به شمسی می توانید از کد زیر که استفاده نمائید.
 
فردا روشن اسن به
آموزشASP.NET
صفحه نخست         تماس با مدیر         پست الکترونیک        RSS         ATOM
 
 

<%
function date_shamsi(dates,short)
D = Array (20, 19, 20, 20, 21, 21, 22, 22, 22, 22, 21, 21)
P = Array (11, 12, 10, 12, 11, 11, 10, 10, 10, 9, 10, 10)
W = Array ("&#1610;&#1705;&#1588;&#1606;&#1576;&#1607;", "&#1583;&#1608;&#1588;&#1606;&#1576;&#1607;", "&#1587;&#1607; &#1588;&#1606;&#1576;&#1607;", "&#1670;&#1607;&#1575;&#1585;&#1588;&#1606;&#1576;&#1607;", "&#1662;&#1606;&#1580;&#1588;&#1606;&#1576;&#1607;", "&#1580;&#1605;&#1593;&#1607;", "&#1588;&#1606;&#1576;&#1607;")
Mon = Array ("&#1601;&#1585;&#1608;&#1585;&#1583;&#1610;&#1606;", "&#1575;&#1585;&#1583;&#1610;&#1576;&#1607;&#1588;&#1578;", "&#1582;&#1585;&#1583;&#1575;&#1583;", "&#1578;&#1610;&#1585;", "&#1605;&#1585;&#1583;&#1575;&#1583;", "&#1588;&#1607;&#1585;&#1610;&#1608;&#1585;", "&#1605;&#1607;&#1585;", "&#1570;&#1576;&#1575;&#1606;", "&#1570;&#1584;&#1585;", "&#1583;&#1740;", "&#1576;&#1607;&#1605;&#1606;", "&#1575;&#1587;&#1601;&#1606;&#1583;")
Dm = day(dates)
Mm = month(dates)
Ym = year(dates)
U = 0
Rp = 0
if (Ym mod 4)=0 then U=1
if (Ym mod 100)=0 and (Ym mod 400)<>0 then U=0
Ys = Ym - 622
X = Ys - 22
X = X mod 33
if (((X mod 4)=0) AND X <> 32) then Rp = 1
I = (not (Rp-2)) + (not (U - 2)) * 2
X = 0
if(I = 0 AND Mm = 3) then X = 1
if(I = 0) then I = 3
Ms = (9 + Mm) mod 13
if(Ms < 10) then Ms = Ms + 1
D1 = D(Mm - 1)
if(I = 1 AND Mm > 2) then D1 = D1 - 1
if (I = 2 AND Mm < 3) then D1 = D1 - 1
P1 = P(Mm - 1)
if(I = 1 AND Mm > 2) then P1 = P1 + 1
if(I = 2 AND Mm < 4) then P1 = P1 + 1
if(Dm > 0 AND Dm <= D1) then
Ds = P1 + Dm + X - 1
X = 1
else
Ds = Dm - D1
Ms = Ms + 1
if(Ms = 13) then Ms = 1
X = 2
end if
if((Mm = 3 AND X = 2) OR Mm > 3) then Ys = Ys + 1
if(Ms<10) then Ms="0"&Ms
if(Ds<10) then Ds="0"&Ds
if short then
date_shamsi=Ys&"/"&Ms&"/"&Ds
else
date_shamsi=w(weekday(dates)-1)&" "&Ds&" "&mon(Ms-1)&" "&Ys
end if
end function
%>

 

* * * *


بنا به درخواستهای مكرر دوستان و علاقمندان برای دریافت برنامه تبدیل تاریخ میلادی به شمسی، تصمیم برآن شد كه این برنامه را به صورت مقاله ای در سایتarash-computer.mihanblog  منتشرر نمائیم تا تمامی علاقمندان به راحتی به آن دسترسی داشته باشند. برای تبدیل تاریخ میلادی به شمسی باید چند نكته را مورد توجه قرار دهید:

۱- سال شمسی ۶۲۲ سال با سال میلادی فاصله دارد.
۲- ۱۱ دیماه هر سال آغاز سال میلادی است ( مصادف با اول ژانویه است ).
۳- در هر ۳۳ سال، چهاربار كبیسه اتفاق می افتد.

تمامی نكات بالا را باید در برنامه خود مورد توجه قرار دهید:

<%@Language=VBScript%>
<META http-equiv=CONTENT-TYPE content="text/html; charset=utf-8">
<%
D = Array (20, 19, 20, 20, 21, 21, 22, 22, 22, 22, 21, 21)
P = Array (11, 12, 10, 12, 11, 11, 10, 10, 10, 9, 10, 10)
W = Array ("
یکشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنجشنبه", "جمعه", "شنبه")
Mon = Array ("
فروردین", "اردیبهشت", "خرداد", "تیر", "مرداد", "شهریور", "مهر", "آبان", "آذر", "دی", "بهمن", "اسفند")
Dm = Day(Date)
Mm = Month(Date)
Ym = Year(Date)
U = 0 
Rp = 0
If (Ym Mod 4) = 0 Then U = 1
If ((Ym Mod 100) = 0 AND (Ym Mod 400) <> 0) Then U = 0
Ys = Ym - 622
X = Ys - 22
X = X Mod 33
If ((X Mod 4) = 0 AND X <> 32) Then Rp = 1
I = Not(Rp-2) + NOT(U - 2) * 2
X = 0
If (I = 0 AND Mm = 3) Then X = 1
If I = 0 Then I = 3
Ms = (9 + Mm) Mod 13
If Ms < 10 Then Ms = Ms + 1
D1 = D(Mm - 1)
If (I = 1 AND Mm > 2) Then D1 = D1 - 1
If (I = 2 AND Mm < 3) then D1 = D1 - 1
P1 = P(Mm - 1)
If (I = 1 AND Mm > 2) Then P1 = P1 + 1
If (I = 2 AND Mm < 4) Then P1 = P1 + 1
If (Dm > 0 AND Dm <= D1) Then
    Ds = P1 + Dm + X - 1
    X = 1
Else
    Ds = Dm - D1
    Ms = Ms + 1
    If Ms = 13 Then Ms = 1
    X = 2
End If
If ((Mm = 3 AND X = 2) OR Mm > 3) Then Ys = Ys + 1
DateShamsi = W(WeekDay(Date) - 1) & "&nbsp;" & Ds & "&nbsp;" & Mon(Ms - 1) & "&nbsp;" & Ys
%>
<%= DateShamsi %>

پس از نوشتن این برنامه می توانید با فراخواندن متغیر DateShamsi یك تاریخ شمسی كامل همراه با نام روز هفته را روی مرورگر نمایش دهید.

همچنین برای راحتی كار، شما می توانید با دو روش تاریخ شمسی را در تمامی صفحات یك سایت نمایش دهید:
۱- كد بالا را در فایل Global.asa در قسمت Application_OnStart قرار دهید و در هر صفحه از یك سایت تنها با فراخوانی یك متغیر از نوع Application تاریخ شمسی را روی مرورگر نمایش دهید.
۲- كد بالا را بصورت یك فایل ضمیمه در تمامی صفحات یك سایت استفاده نمایید.

 



درباره وبلاگ

سلام من آرش کاکاوند دانشجوی رشته کامپیوتر هستم و ورود شما رابه دنیای aspخوش امدمیگم.حتما نظر بدین تا من کارم رو بهتر ادامه بدم

مدیر وبلاگ : ارش کاکاوند
مطالب اخیر
نویسندگان
صفحات جانبی
نظرسنجی
شما کدام یک از برنامه های زیر را برای طراحی وب انتخاب می کنید؟








جستجو

آمار وبلاگ
کل بازدید :
بازدید امروز :
بازدید دیروز :
بازدید این ماه :
بازدید ماه قبل :
تعداد نویسندگان :
تعداد کل پست ها :
آخرین بازدید :
آخرین بروز رسانی :