الگوریتم تبدیل تاریخ میلادی به تاریخ شمسی :
تبدیل تاریخ میلادی به شمسی بسیار راحتتر از تبدیل تاریخ شمسی به میلادی است.

برای نوشتن این الگوریتم به اختلاف روزهای میان اولین روز سال میلادی و اولین روز سال شمسی نیاز داریم که این اختلاف روز(در صورتی که سال کبیسه باشد یا نباشد) “۷۹″ روز است.

برای تشخیص کبیسه بودن یا نبودن سال از روش زیر استفاده می کنیم:
اگر سال داده شده بر۱۰۰و۴۰۰ بخشپذیر باشد” یا بر” ۱۰۰ بخشپذیر نباشد بر ۴ بخشپذیر باشد” آنگاه سال کبیسه است، در غیر این صورت سال کبیسه نیست.
با توجه به کبیسه بودن یا کبیسه نبودن سال مشخص می کنیم که در کدامین روز سال میلادی قرار داریم.

دو حالت پیش می آید:

* روزی که در آن قرار داریم از ۷۹ بیشتر است
به این معنی است که در ماههای بعد از فروردین قرار داریم.

حال باید مشخص کنیم که در ۶ ماه اول سال شمسی قرار داریم یا در ۶ ماه دوم سال قرار داریم،
برای اینکار ابتدا ۷۹ روز از تعداد روزها کم می کنیم تا در اول فروردین قرار بگیریم حال اگر تعداد روزها از “۱۸۶″(۳۱*۶) کمتر باشد یعنی در ۶ ماه اول سال شمسی قرار داریم در غیر اینصورت در ۶ ماه دوم قرار داریم.

1. اگر در ۶ ماه اول سال قرار گرفته باشیم :تعداد روزها را بر “۳۱″ تقسیم می کنیم(۶ ماه اول در سال شمسی ۳۱ روزه است.)
اگر باقیمانده این تقسیم صفر شد خارج قسمت تقسیم برابر با ماه شمسی می شود و روز شمسی برابر با ۳۱ می شود.
اگر باقیمانده صفر نشود ماه شمسی برابر با خارج قسمت باضافه یک می شود و روز شمسی همان باقیمانده است.
2. اگر در ۶ ماه دوم سالقرار گرفته باشیم : “۱۸۶″ روز از تعداد روزها کم می کنیم و آن را بر “۳۰″ تقسیم می کنیم .
اگرباقیمانده این تقسیم صفر شد خارج قسمت تقسیم باضافه”۶″ برابر با ماه شمسی می شودو روز شمسی برابر با۳۰ می شود.
اگر باقیمانده صفر نشود ماه شمسی برابر با خارج قسمت باضافه”۷″ می شودو روز شمسی همان باقیمانده است.

سال شمسی از تفاضل سال میلادی با”۶۲۱″ بدست می آید.

* روزی که در آن قرار داریم کمتر از”۷۹″است
که این به این معنی است که درروزهایی بین اولین روزسال میلادی تا اولین روز شمسی (ماههای دی ،بهمن و اسفند)قرار داریم.

اختلاف روز بین اولین روز سال میلادی داده شده و اولین روز دی ماه در سال شمسی را در نظر می گیریم که این اختلاف برای سال کبیسه”۱۱″ و برای غیر کبیسه “۱۰″ است.*دقت کنید که در این الگوریتم برای مشخص کردن این اختلاف باید سال قبل از سال داده شده را در نظر بگیریم زیرا سال قبل بر روی اولین روز سال میلادی تاثیر می گزارد.* اختلاف روز با تعداد روز محاسبه شده جمع می کنیم ، آن را بر”۳۰″ تقسیم می کنیم(۳ ماه آخر سال شمسی ۳۰ روزه است.).
اگر باقیمانده این تقسیم صفر شود خارج قسمت تقسیم باضافه”۹″ برابر با ماه شمسی می شودو روز شمسی برابر با”۳۰″ می شود.
اگر باقیمانده صفر نشود ماه شمسی برابر با خارج قسمت باضافه”۱۰″می شودو روز شمسی همان باقیمانده است.

در این حالت سال شمسی از تفاضل سال میلادی با”۶۲۲″ بدست می آید.(زیرا در سال قبل قرار داریم.)

پیاده سازی الگوریتم به زبان سی

typedef struct _SHAMSIDATE
{
int iYear;
int iMonth;
int iDay;
}SHAMSIDATE;

SHAMSIDATE MiladiToShamsi(int iMiladiMonth,int iMiladiDay,int iMiladiYear)
{

int  shamsiDay, shamsiMonth, shamsiYear;
int  dayCount,farvardinDayDiff,deyDayDiff ;
int  sumDayMiladiMonth[] = {0,31,59,90,120,151,181,212,243,273,304,334};
int  sumDayMiladiMonthLeap[]= {0,31,60,91,121,152,182,213,244,274,305,335};
SHAMSIDATE  shamsidate;

farvardinDayDiff=79;

if (MiladiIsLeap(iMiladiYear))
{
dayCount = sumDayMiladiMonthLeap[iMiladiMonth-1] + iMiladiDay;
}
else
{
dayCount = sumDayMiladiMonth[iMiladiMonth-1] + iMiladiDay;
}
if((MiladiIsLeap(iMiladiYear – 1)))
{
deyDayDiff = 11;
}
else
{
deyDayDiff = 10;
}
if (dayCount > farvardinDayDiff)
{
dayCount = dayCount – farvardinDayDiff;
if (dayCount <= 186)
{
switch (dayCount%31)
{
case 0:
shamsiMonth = dayCount / 31;
shamsiDay = 31;
break;
default:
shamsiMonth = (dayCount / 31) + 1;
shamsiDay = (dayCount%31);
break;
}
shamsiYear = iMiladiYear – 621;
}
else
{
dayCount = dayCount – 186;
switch (dayCount%30)
{
case 0:
shamsiMonth = (dayCount / 30) + 6;
shamsiDay = 30;
break;
default:
shamsiMonth = (dayCount / 30) + 7;
shamsiDay = (dayCount%30);
break;
}
shamsiYear = iMiladiYear – 621;
}
}
else
{
dayCount = dayCount + deyDayDiff;

switch (dayCount%30)
{
case 0 :
shamsiMonth = (dayCount / 30) + 9;
shamsiDay = 30;
break;
default:
shamsiMonth = (dayCount / 30) + 10;
shamsiDay = (dayCount%30);
break;
}
shamsiYear = iMiladiYear – 622;

}
shamsidate.iYear = shamsiYear;
shamsidate.iMonth = shamsiMonth;
shamsidate.iDay = shamsiDay;

return shamsidate ;
}

// the function check a miladiyear is leap or not.
BOOL MiladiIsLeap(int miladiYear)
{
if(((miladiYear % 100)!= 0 && (miladiYear % 4) == 0) || ((miladiYear % 100)== 0 && (miladiYear % 400) == 0))
return TRUE;
else
return FALSE;

}

100

101

102

103

typedef struct _SHAMSIDATE

{

int iYear;

int iMonth;

int iDay;

}SHAMSIDATE;

SHAMSIDATE MiladiToShamsi(int iMiladiMonth,int iMiladiDay,int iMiladiYear)

{

int shamsiDay, shamsiMonth, shamsiYear;

int dayCount,farvardinDayDiff,deyDayDiff ;

int sumDayMiladiMonth[] = {,31,59,90,120,151,181,212,243,273,304,334};

int sumDayMiladiMonthLeap[]= {,31,60,91,121,152,182,213,244,274,305,335};

SHAMSIDATE shamsidate;

farvardinDayDiff=79;

if (MiladiIsLeap(iMiladiYear))

{

dayCount = sumDayMiladiMonthLeap[iMiladiMonth-1] + iMiladiDay;

}

else

{

dayCount = sumDayMiladiMonth[iMiladiMonth-1] + iMiladiDay;

}

if((MiladiIsLeap(iMiladiYear – 1)))

{

deyDayDiff = 11;

}

else

{

deyDayDiff = 10;

}

if (dayCount > farvardinDayDiff)

{

dayCount = dayCount – farvardinDayDiff;

if (dayCount <= 186)

{

switch (dayCount%31)

{

case :

shamsiMonth = dayCount / 31;

shamsiDay = 31;

break;

default:

shamsiMonth = (dayCount / 31) + 1;

shamsiDay = (dayCount%31);

break;

}

shamsiYear = iMiladiYear – 621;

}

else

{

dayCount = dayCount – 186;

switch (dayCount%30)

{

case :

shamsiMonth = (dayCount / 30) + 6;

shamsiDay = 30;

break;

default:

shamsiMonth = (dayCount / 30) + 7;

shamsiDay = (dayCount%30);

break;

}

shamsiYear = iMiladiYear – 621;

}

else

{

dayCount = dayCount + deyDayDiff;

switch (dayCount%30)

{

case :

shamsiMonth = (dayCount / 30) + 9;

shamsiDay = 30;

break;

default:

shamsiMonth = (dayCount / 30) + 10;

shamsiDay = (dayCount%30);

break;

}

shamsiYear = iMiladiYear – 622;

}

shamsidate.iYear = shamsiYear;

shamsidate.iMonth = shamsiMonth;

shamsidate.iDay = shamsiDay;

return shamsidate ;

}

// the function check a miladiyear is leap or not.

BOOL MiladiIsLeap(int miladiYear)

{

if(((miladiYear % 100)!= && (miladiYear % 4) == ) || ((miladiYear % 100)== && (miladiYear % 400) == ))

return TRUE;

else

return FALSE;

}

بیشتر بخوانید سورس ماشین حساب به زبان اسمبلی

=====================

تبدیل تاریخ ها ی شمسی و میلادی به یکدیگر

#include<iostream.h>
#include<math.h>
// barnameye tabdile tarikh.
void main(){
cout<<"enter salo maho rozo be sorate 3 namber va dar sorati ke tarikh miladi ast dar  akhar 1 vared konid va agar shamsi bod 2 vared konid > ";
int sal , mah , roz , noetarikh;
cin>>sal>>mah>>roz>>noetarikh;
if(noetarikh == 1){
int s=sal-1;
int m=mah-1;
int r;
if (sal%4==0){

if(m==0) r=(s*365.25)+roz;
if(m==1) r=(s*365.25)+31+roz;
if(m==2) r=(s*365.25)+31+29+roz;
if(m==3) r=(s*365.25)+31+29+31+roz;
if(m==4) r=(s*365.25)+31+29+31+30+roz;
if(m==5) r=(s*365.25)+31+29+31+30+31+roz;
if(m==6) r=(s*365.25)+31+29+31+30+31+30+roz;
if(m==7) r=(s*365.25)+31+29+31+30+31+30+31+roz;
if(m==8) r=(s*365.25)+31+29+31+30+31+30+31+31+roz;
if(m==9) r=(s*365.25)+31+29+31+30+31+30+31+31+30+roz;
if(m==10) r=(s*365.25)+31+29+31+30+31+30+31+31+30+31+roz;
if(m==11) r=(s*365.25)+31+29+31+30+31+30+31+31+30+31+30+roz;
}
else {
if(m==0) r=(s*365.25)+roz;
if(m==1) r=(s*365.25)+31+roz;
if(m==2) r=(s*365.25)+31+28+roz;
if(m==3) r=(s*365.25)+31+28+31+roz;
if(m==4) r=(s*365.25)+31+28+31+30+roz;
if(m==5) r=(s*365.25)+31+28+31+30+31+roz;
if(m==6) r=(s*365.25)+31+28+31+30+31+30+roz;
if(m==7) r=(s*365.25)+31+28+31+30+31+30+31+roz;
if(m==8) r=(s*365.25)+31+28+31+30+31+30+31+31+roz;
if(m==9) r=(s*365.25)+31+28+31+30+31+30+31+31+30+roz;
if(m==10) r=(s*365.25)+31+28+31+30+31+30+31+31+30+31+roz;
if(m==11) r=(s*365.25)+31+28+31+30+31+30+31+31+30+31+30+roz;

}
r=r-226899;
int sa=(r/365.25)+1 ;
int ss=r/365.25;
r=r-(ss*365.25)+.25;
int ma,ro;
if (sa%4==3) r=r+1;
if(r>336) ma=12,ro=r-336;
else if(r>306) ma=11 ,ro=r-306;
else  if(r>276) ma=10 ,ro=r-276;
else  if(r>246) ma=9 ,ro=r-246;
else  if(r>216) ma=8 ,ro=r-216;
else  if(r>186) ma=7 ,ro=r-186;
else  if(r>155) ma=6 ,ro=r-155;
else  if(r>124) ma=5 ,ro=r-124;
else  if(r>93) ma=4 ,ro=r-93;
else  if(r>62) ma=3 ,ro=r-62;
else  if(r>31) ma=2 ,ro=r-31;
else  if(r>0) ma=1,ro=r;
else if(r==0){
if(sa%4!=0)sa=sa-1,ma=12,ro=29;
else sa=sa-1,ma=12,ro=30;
}

cout<<sa<<"/"<<ma<<"/"<<ro<<endl;

}
else{
int s=sal -1;
int m=mah -1;
int r=roz;

if(m<=6 ) r=(s*365.25)+(m*31)+r+.25;
else r=(s*365.25)+(m-6)*30+186 + r+.25;
r=r+226899;

int sa=(r/365.25)+1;
int ss=r/365.25;
ss=ss*365.25;
r=r-ss;
int ma,ro;

if(sa%4==0){
if(r==0) sa=sa-1,ma=12,ro=31;
if(r<=31) ma=1, ro=r;
else if(r<=60) ma=2, ro=r-31;
else if(r<=91) ma=3, ro=r-60;
else if(r<=121) ma=4, ro=r-91;
else if(r<=152) ma=5, ro=r-121;
else if(r<=182) ma=6, ro=r-152;
else if(r<=213) ma=7, ro=r-182;
else if(r<=244) ma=8, ro=r-213;
else if(r<=274) ma=9, ro=r-244;
else if(r<=305) ma=10, ro=r-274;
else if(r<=335) ma=11, ro=r-305;
else if(r<=366) ma=12, ro=r-335;
}

else{

if(r==0) sa=sa-1,ma=12,ro=31;
else if(r<=31) ma=1, ro=r;
else if(r<=59) ma=2, ro=r-31;
else if(r<=90) ma=3, ro=r-59;
else if(r<=120) ma=4, ro=r-90;
else if(r<=151) ma=5, ro=r-120;
else if(r<=181) ma=6, ro=r-151;
else if(r<=212) ma=7, ro=r-181;
else if(r<=243) ma=8, ro=r-212;
else if(r<=273) ma=9, ro=r-243;
else if(r<=304) ma=10, ro=r-273;
else if(r<=334) ma=11, ro=r-304;
else if(r<366) ma=12, ro=r-334;
else if (r=366) sa=sa+1,ma=1 , ro=1;

}
cout<<sa<<"/"<<ma<<"/"<<ro<<endl;

}

}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

#include<iostream.h>

#include<math.h>

// barnameye tabdile tarikh.

void main(){

cout<<"enter salo maho rozo be sorate 3 namber va dar sorati ke tarikh miladi ast dar akhar 1 vared konid va agar shamsi bod 2 vared konid > ";

int sal , mah , roz , noetarikh;

cin>>sal>>mah>>roz>>noetarikh;

if(noetarikh == 1){

int s=sal-1;

int m=mah-1;

int r;

if (sal%4==){

if(m==) r=(s*365.25)+roz;

if(m==1) r=(s*365.25)+31+roz;

if(m==2) r=(s*365.25)+31+29+roz;

if(m==3) r=(s*365.25)+31+29+31+roz;

if(m==4) r=(s*365.25)+31+29+31+30+roz;

if(m==5) r=(s*365.25)+31+29+31+30+31+roz;

if(m==6) r=(s*365.25)+31+29+31+30+31+30+roz;

if(m==7) r=(s*365.25)+31+29+31+30+31+30+31+roz;

if(m==8) r=(s*365.25)+31+29+31+30+31+30+31+31+roz;

if(m==9) r=(s*365.25)+31+29+31+30+31+30+31+31+30+roz;

if(m==10) r=(s*365.25)+31+29+31+30+31+30+31+31+30+31+roz;

if(m==11) r=(s*365.25)+31+29+31+30+31+30+31+31+30+31+30+roz;

}

else {

if(m==) r=(s*365.25)+roz;

if(m==1) r=(s*365.25)+31+roz;

if(m==2) r=(s*365.25)+31+28+roz;

if(m==3) r=(s*365.25)+31+28+31+roz;

if(m==4) r=(s*365.25)+31+28+31+30+roz;

if(m==5) r=(s*365.25)+31+28+31+30+31+roz;

if(m==6) r=(s*365.25)+31+28+31+30+31+30+roz;

if(m==7) r=(s*365.25)+31+28+31+30+31+30+31+roz;

if(m==8) r=(s*365.25)+31+28+31+30+31+30+31+31+roz;

if(m==9) r=(s*365.25)+31+28+31+30+31+30+31+31+30+roz;

if(m==10) r=(s*365.25)+31+28+31+30+31+30+31+31+30+31+roz;

if(m==11) r=(s*365.25)+31+28+31+30+31+30+31+31+30+31+30+roz;

}

r=r-226899;

int sa=(r/365.25)+1 ;

int ss=r/365.25;

r=r-(ss*365.25)+.25;

int ma,ro;

if (sa%4==3) r=r+1;

if(r>336) ma=12,ro=r-336;

else if(r>306) ma=11 ,ro=r-306;

else if(r>276) ma=10 ,ro=r-276;

else if(r>246) ma=9 ,ro=r-246;

else if(r>216) ma=8 ,ro=r-216;

else if(r>186) ma=7 ,ro=r-186;

else if(r>155) ma=6 ,ro=r-155;

else if(r>124) ma=5 ,ro=r-124;

else if(r>93) ma=4 ,ro=r-93;

else if(r>62) ma=3 ,ro=r-62;

else if(r>31) ma=2 ,ro=r-31;

else if(r>) ma=1,ro=r;

else if(r==){

if(sa%4!=)sa=sa-1,ma=12,ro=29;

else sa=sa-1,ma=12,ro=30;

}

cout<<sa<<"/"<<ma<<"/"<<ro<<endl;

}

else{

int s=sal -1;

int m=mah -1;

int r=roz;

if(m<=6 ) r=(s*365.25)+(m*31)+r+.25;

else r=(s*365.25)+(m-6)*30+186 + r+.25;

r=r+226899;

int sa=(r/365.25)+1;

int ss=r/365.25;

ss=ss*365.25;

r=r-ss;

int ma,ro;

if(sa%4==){

if(r==) sa=sa-1,ma=12,ro=31;

if(r<=31) ma=1, ro=r;

else if(r<=60) ma=2, ro=r-31;

else if(r<=91) ma=3, ro=r-60;

else if(r<=121) ma=4, ro=r-91;

else if(r<=152) ma=5, ro=r-121;

else if(r<=182) ma=6, ro=r-152;

else if(r<=213) ma=7, ro=r-182;

else if(r<=244) ma=8, ro=r-213;

else if(r<=274) ma=9, ro=r-244;

else if(r<=305) ma=10, ro=r-274;

else if(r<=335) ma=11, ro=r-305;

else if(r<=366) ma=12, ro=r-335;

}

else{

if(r==) sa=sa-1,ma=12,ro=31;

else if(r<=31) ma=1, ro=r;

else if(r<=59) ma=2, ro=r-31;

else if(r<=90) ma=3, ro=r-59;

else if(r<=120) ma=4, ro=r-90;

else if(r<=151) ma=5, ro=r-120;

else if(r<=181) ma=6, ro=r-151;

else if(r<=212) ma=7, ro=r-181;

else if(r<=243) ma=8, ro=r-212;

else if(r<=273) ma=9, ro=r-243;

else if(r<=304) ma=10, ro=r-273;

else if(r<=334) ma=11, ro=r-304;

else if(r<366) ma=12, ro=r-334;

else if (r=366) sa=sa+1,ma=1 , ro=1;

}

cout<<sa<<"/"<<ma<<"/"<<ro<<endl;

}

بیشتر بخوانید اسکریپت تبادل لینک اتوماتیک LinkEX

=====================

تبدیل تاریخ میلادی به تاریخ شمسی

Option Explicit

Private Const mcDayOff = 226894
Private mvarGDayTab
Private mvarJDayTab
Private mcSolar As Double

Public Sub GetJalaliDate(ByVal vGYear As Integer, ByVal vGMonth As Integer, ByVal vGDay As Integer, pJYear As Integer, pJMonth As Integer, pJDay As Integer, pDayName As String)

Dim mGTotalDay As Long

SetConstants

mGTotalDay = GetDayFromFirstGregorianDay(vGYear, vGMonth, vGDay)
pDayName = GetWeekDayName(mGTotalDay)
GetJalaliYearMonthDay mGTotalDay, vGYear, vGMonth, vGDay
pJDay = vGDay
pJMonth = vGMonth
pJYear = vGYear
End Sub

Private Sub SetConstants()

mvarGDayTab = Array(Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31), Array(0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31))
mvarJDayTab = Array(Array(0, 31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 29), Array(0, 31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 30))
mcSolar = 365.25 - 0.25 / 33

End Sub

Private Function GetDayFromFirstGregorianDay(ByVal vGYaer As Integer, ByVal vGMonth As Integer, ByVal vGDay As Integer) As Long

Dim mGYearDiv4 As Integer, mGYearDiv100 As Integer, mGYearDiv400 As Integer
Dim mGTotalDays As Long

mGYearDiv4 = vGYaer 4
mGYearDiv100 = vGYaer 100
mGYearDiv400 = vGYaer 400

mGTotalDays = GetGDayFromBeginOfYear(vGYaer, vGMonth, vGDay)
mGTotalDays = CLng(vGYaer - 1) * 365 + mGTotalDays + mGYearDiv4 - mGYearDiv100 + mGYearDiv400

GetDayFromFirstGregorianDay = mGTotalDays
End Function

Private Function GetGDayFromBeginOfYear(ByVal vGYear As Integer, ByVal vGMonth As Integer, ByVal vGDay As Integer) As Long
Dim mGLeap As Integer
Dim mCount As Integer

GetGDayFromBeginOfYear = vGDay
mGLeap = IsLeapGregorian(vGYear)
For mCount = 1 To vGMonth – 1
GetGDayFromBeginOfYear = GetGDayFromBeginOfYear + mvarGDayTab(mGLeap)(mCount)
Next mCount

End Function

Private Function IsLeapGregorian(ByVal vGYear As Integer) As Integer

If (vGYear Mod 4 = 0 And vGYear Mod 100 <> 0) Or (vGYear Mod 400 = 0) Then
IsLeapGregorian = 1
Else
IsLeapGregorian = 0
End If
End Function

Private Function GetJalaliYearMonthDay(vGTotalDay As Long, pJYear As Integer, pJMonth As Integer, pJDay As Integer)

Dim mJTotalDay As Long
Dim mJYear As Integer
Dim mJDay As Integer
Dim mJLeaps As Integer

mJTotalDay = vGTotalDay – mcDayOff
mJYear = mJTotalDay mcSolar

mJLeaps = GetAllJalaliLeapFromBegin(mJYear)

mJDay = mJTotalDay - (365 * CLng(mJYear) + mJLeaps)
mJYear = mJYear + 1

Do While mJDay <= 0
mJYear = mJYear – 1
If IsLeapJalali(mJYear) = 1 Then
mJDay = mJDay + 366
Else
mJDay = mJDay + 365
End If
Loop

If (mJDay = 366 And IsLeapJalali(mJYear) = 0) Then
mJDay = 1
mJYear = mJYear + 1
End If
pJYear = mJYear
GetJalaliMonthDay mJYear, mJDay, pJMonth, pJDay

End Function

Private Function IsLeapJalali(ByVal vJYear As Integer) As Integer

Dim mTemp As Integer

mTemp = vJYear Mod 33
If mTemp = 1 Or mTemp = 5 Or mTemp = 9 Or mTemp = 13 Or mTemp = 17 Or mTemp = 22 Or mTemp = 26 Or mTemp = 30 Then
IsLeapJalali = 1
Else
IsLeapJalali = 0
End If

End Function

Private Function GetAllJalaliLeapFromBegin(ByVal vJYear As Integer) As Integer

Dim mJLeap As Integer
Dim mCurrentCycle As Integer
Dim mJDiv33 As Integer
Dim mCount As Integer
Dim mTemp As Integer

mJDiv33 = vJYear 33
mCurrentCycle = vJYear - (mJDiv33 * 33)
mJLeap = mJDiv33 * 8
If mCurrentCycle > 0 Then
mTemp = IIf(mCurrentCycle <= 18, mCurrentCycle, 18)
For mCount = 1 To mTemp Step 4
mJLeap = mJLeap + 1
Next
End If

If mCurrentCycle > 21 Then
mTemp = IIf(mCurrentCycle <= 30, mCurrentCycle, 30)
For mCount = 22 To mTemp Step 4
mJLeap = mJLeap + 1
Next
End If
GetAllJalaliLeapFromBegin = mJLeap

End Function

Private Sub GetJalaliMonthDay(ByVal vJYear As Integer, ByVal vJDayOfYear As Integer, pJMonth As Integer, pJDay As Integer)
Dim mCount As Integer
Dim mJLeap As Integer

mJLeap = IsLeapJalali(vJYear)
mCount = 1
Do While vJDayOfYear > mvarJDayTab(mJLeap)(mCount)
vJDayOfYear = vJDayOfYear - mvarJDayTab(mJLeap)(mCount)
mCount = mCount + 1
Loop
pJMonth = mCount
pJDay = vJDayOfYear
End Sub

Private Function GetWeekDayName(DayFromBegin As Long) As String
Dim Temp As Integer

Temp = DayFromBegin Mod 7
Select Case Temp

Case 0
GetWeekDayName = "يك شنبه"
Case 1
GetWeekDayName = "دو شنبه"
Case 2
GetWeekDayName = "سه شنبه"
Case 3
GetWeekDayName = "چهار شنبه"
Case 4
GetWeekDayName = "پنج شنبه"
Case 5
GetWeekDayName = "جمعه"
Case 6
GetWeekDayName = "شنبه"

End Select

End Function

Public Sub GetGregorianDate(ByVal vJYear As Integer, ByVal vJMonth As Integer, ByVal vJDay As Integer, ByRef pGYear As Integer, ByRef pGMonth As Integer, ByRef pGDay As Integer, pDayName As String)

Dim mJTotalDays As Long
Dim mGYear As Integer
Dim mGMonth As Integer
Dim mGDay As Integer

SetConstants

mJTotalDays = GetDayFromFirstJalaliDay(vJYear, vJMonth, vJDay)
GetWeekDayName (mJTotalDays + mcDayOff)
GetGregorianYearMonthDay mJTotalDays, mGYear, mGMonth, mGDay
pGYear = mGYear
pGMonth = mGMonth
pGDay = mGDay
End Sub

Private Function GetDayFromFirstJalaliDay(ByVal vJYear As Integer, ByVal vJMonth As Integer, ByVal vJDay As Integer) As Long

Dim mJLeap As Integer
Dim mTemp As Integer

mJLeap = GetAllJalaliLeapFromBegin(vJYear - 1)
mTemp = GetJDayFromBeginOfYear(vJYear, vJMonth, vJDay)
GetDayFromFirstJalaliDay = CLng((vJYear - 1)) * 365 + mJLeap + mTemp

End Function

Private Function GetJDayFromBeginOfYear(ByVal vJYear As Integer, ByVal vJMonth As Integer, ByVal vJDay As Integer) As Integer

Dim mCount As Integer
Dim mJLeap As Integer

GetJDayFromBeginOfYear = vJDay
mJLeap = IsLeapJalali(vJYear)
For mCount = 1 To vJMonth – 1
GetJDayFromBeginOfYear = GetJDayFromBeginOfYear + mvarJDayTab(mJLeap)(mCount)
Next mCount

End Function

Private Sub GetGregorianYearMonthDay(vJTotalDays As Long, pGYear As Integer, pGMonth As Integer, pGDay As Integer)

Dim mGTotalDays As Long
Dim mGDiv4 As Integer
Dim mGDiv100 As Integer
Dim mGDiv400 As Integer
Dim mGDays As Integer

mGTotalDays = vJTotalDays + mcDayOff
pGYear = mGTotalDays mcSolar
mGDiv4 = pGYear 4
mGDiv100 = pGYear 100
mGDiv400 = pGYear 400

' Find Gregorian day of year
mGDays = mGTotalDays - (365 * CLng(pGYear)) - (mGDiv4 - mGDiv100 + mGDiv400)
pGYear = pGYear + 1

Do While mGDays <= 0
pGYear = pGYear – 1
If IsLeapGregorian(pGYear) = 1 Then
mGDays = mGDays + 366
Else
mGDays = mGDays + 365
End If
Loop

If (mGDays = 366 And IsLeapGregorian(pGYear) = 0) Then
mGDays = 1
pGYear = pGYear + 1
End If
GetGregorianMonthDay pGYear, mGDays, pGMonth, pGDay
End Sub

Private Sub GetGregorianMonthDay(ByVal vGYear As Integer, ByVal vGDayOfYear As Integer, pGMonth As Integer, pGDay As Integer)
Dim mCount As Integer
Dim mGLeap

mGLeap = IsLeapGregorian(vGYear)
mCount = 1
Do While vGDayOfYear > mvarGDayTab(mGLeap)(mCount)
vGDayOfYear = vGDayOfYear - mvarGDayTab(mGLeap)(mCount)
mCount = mCount + 1
Loop
pGMonth = mCount
pGDay = vGDayOfYear
End Sub

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

Option Explicit

Private Const mcDayOff = 226894

Private mvarGDayTab

Private mvarJDayTab

Private mcSolar As Double

Public Sub GetJalaliDate(ByVal vGYear As Integer, ByVal vGMonth As Integer, ByVal vGDay As Integer, pJYear As Integer, pJMonth As Integer, pJDay As Integer, pDayName As String)

Dim mGTotalDay As Long

SetConstants

mGTotalDay = GetDayFromFirstGregorianDay(vGYear, vGMonth, vGDay)

pDayName = GetWeekDayName(mGTotalDay)

GetJalaliYearMonthDay mGTotalDay, vGYear, vGMonth, vGDay

pJDay = vGDay

pJMonth = vGMonth

pJYear = vGYear

End Sub

Private Sub SetConstants()

mvarGDayTab = Array(Array(, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31), Array(, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31))

mvarJDayTab = Array(Array(, 31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 29), Array(, 31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 30))

mcSolar = 365.25 - 0.25 / 33

End Sub

Private Function GetDayFromFirstGregorianDay(ByVal vGYaer As Integer, ByVal vGMonth As Integer, ByVal vGDay As Integer) As Long

Dim mGYearDiv4 As Integer, mGYearDiv100 As Integer, mGYearDiv400 As Integer

Dim mGTotalDays As Long

mGYearDiv4 = vGYaer 4

mGYearDiv100 = vGYaer 100

mGYearDiv400 = vGYaer 400

mGTotalDays = GetGDayFromBeginOfYear(vGYaer, vGMonth, vGDay)

mGTotalDays = CLng(vGYaer - 1) * 365 + mGTotalDays + mGYearDiv4 - mGYearDiv100 + mGYearDiv400

GetDayFromFirstGregorianDay = mGTotalDays

End Function

Private Function GetGDayFromBeginOfYear(ByVal vGYear As Integer, ByVal vGMonth As Integer, ByVal vGDay As Integer) As Long

Dim mGLeap As Integer

Dim mCount As Integer

GetGDayFromBeginOfYear = vGDay

mGLeap = IsLeapGregorian(vGYear)

For mCount = 1 To vGMonth – 1

GetGDayFromBeginOfYear = GetGDayFromBeginOfYear + mvarGDayTab(mGLeap)(mCount)

Next mCount

End Function

Private Function IsLeapGregorian(ByVal vGYear As Integer) As Integer

If (vGYear Mod 4 = And vGYear Mod 100 <> ) Or (vGYear Mod 400 = ) Then

IsLeapGregorian = 1

Else

IsLeapGregorian =

End If

End Function

Private Function GetJalaliYearMonthDay(vGTotalDay As Long, pJYear As Integer, pJMonth As Integer, pJDay As Integer)

Dim mJTotalDay As Long

Dim mJYear As Integer

Dim mJDay As Integer

Dim mJLeaps As Integer

mJTotalDay = vGTotalDay – mcDayOff

mJYear = mJTotalDay mcSolar

mJLeaps = GetAllJalaliLeapFromBegin(mJYear)

mJDay = mJTotalDay - (365 * CLng(mJYear) + mJLeaps)

mJYear = mJYear + 1

Do While mJDay <=

mJYear = mJYear – 1

If IsLeapJalali(mJYear) = 1 Then

mJDay = mJDay + 366

Else

mJDay = mJDay + 365

End If

Loop

If (mJDay = 366 And IsLeapJalali(mJYear) = ) Then

mJDay = 1

mJYear = mJYear + 1

End If

pJYear = mJYear

GetJalaliMonthDay mJYear, mJDay, pJMonth, pJDay

End Function

Private Function IsLeapJalali(ByVal vJYear As Integer) As Integer

Dim mTemp As Integer

mTemp = vJYear Mod 33

If mTemp = 1 Or mTemp = 5 Or mTemp = 9 Or mTemp = 13 Or mTemp = 17 Or mTemp = 22 Or mTemp = 26 Or mTemp = 30 Then

IsLeapJalali = 1

Else

IsLeapJalali =

End If

End Function

Private Function GetAllJalaliLeapFromBegin(ByVal vJYear As Integer) As Integer

Dim mJLeap As Integer

Dim mCurrentCycle As Integer

Dim mJDiv33 As Integer

Dim mCount As Integer

Dim mTemp As Integer

mJDiv33 = vJYear 33

mCurrentCycle = vJYear - (mJDiv33 * 33)

mJLeap = mJDiv33 * 8

If mCurrentCycle > Then

mTemp = IIf(mCurrentCycle <= 18, mCurrentCycle, 18)

For mCount = 1 To mTemp Step 4

mJLeap = mJLeap + 1

End If

If mCurrentCycle > 21 Then

mTemp = IIf(mCurrentCycle <= 30, mCurrentCycle, 30)

For mCount = 22 To mTemp Step 4

mJLeap = mJLeap + 1

End If

GetAllJalaliLeapFromBegin = mJLeap

End Function

Private Sub GetJalaliMonthDay(ByVal vJYear As Integer, ByVal vJDayOfYear As Integer, pJMonth As Integer, pJDay As Integer)

Dim mCount As Integer

Dim mJLeap As Integer

mJLeap = IsLeapJalali(vJYear)

mCount = 1

Do While vJDayOfYear > mvarJDayTab(mJLeap)(mCount)

vJDayOfYear = vJDayOfYear - mvarJDayTab(mJLeap)(mCount)

mCount = mCount + 1

Loop

pJMonth = mCount

pJDay = vJDayOfYear

End Sub

Private Function GetWeekDayName(DayFromBegin As Long) As String

Dim Temp As Integer

Temp = DayFromBegin Mod 7

Select Case Temp

Case

GetWeekDayName = "يك شنبه"

Case 1

GetWeekDayName = "دو شنبه"

Case 2

GetWeekDayName = "سه شنبه"

Case 3

GetWeekDayName = "چهار شنبه"

Case 4

GetWeekDayName = "پنج شنبه"

Case 5

GetWeekDayName = "جمعه"

Case 6

GetWeekDayName = "شنبه"

End Select

End Function

Public Sub GetGregorianDate(ByVal vJYear As Integer, ByVal vJMonth As Integer, ByVal vJDay As Integer, ByRef pGYear As Integer, ByRef pGMonth As Integer, ByRef pGDay As Integer, pDayName As String)

Dim mJTotalDays As Long

Dim mGYear As Integer

Dim mGMonth As Integer

Dim mGDay As Integer

SetConstants

mJTotalDays = GetDayFromFirstJalaliDay(vJYear, vJMonth, vJDay)

GetWeekDayName (mJTotalDays + mcDayOff)

GetGregorianYearMonthDay mJTotalDays, mGYear, mGMonth, mGDay

pGYear = mGYear

pGMonth = mGMonth

pGDay = mGDay

End Sub

Private Function GetDayFromFirstJalaliDay(ByVal vJYear As Integer, ByVal vJMonth As Integer, ByVal vJDay As Integer) As Long

Dim mJLeap As Integer

Dim mTemp As Integer

mJLeap = GetAllJalaliLeapFromBegin(vJYear - 1)

mTemp = GetJDayFromBeginOfYear(vJYear, vJMonth, vJDay)

GetDayFromFirstJalaliDay = CLng((vJYear - 1)) * 365 + mJLeap + mTemp

End Function

Private Function GetJDayFromBeginOfYear(ByVal vJYear As Integer, ByVal vJMonth As Integer, ByVal vJDay As Integer) As Integer

Dim mCount As Integer

Dim mJLeap As Integer

GetJDayFromBeginOfYear = vJDay

mJLeap = IsLeapJalali(vJYear)

For mCount = 1 To vJMonth – 1

GetJDayFromBeginOfYear = GetJDayFromBeginOfYear + mvarJDayTab(mJLeap)(mCount)

Next mCount

End Function

Private Sub GetGregorianYearMonthDay(vJTotalDays As Long, pGYear As Integer, pGMonth As Integer, pGDay As Integer)

Dim mGTotalDays As Long

Dim mGDiv4 As Integer

Dim mGDiv100 As Integer

Dim mGDiv400 As Integer

Dim mGDays As Integer

mGTotalDays = vJTotalDays + mcDayOff

pGYear = mGTotalDays mcSolar

mGDiv4 = pGYear 4

mGDiv100 = pGYear 100

mGDiv400 = pGYear 400

' Find Gregorian day of year

mGDays = mGTotalDays - (365 * CLng(pGYear)) - (mGDiv4 - mGDiv100 + mGDiv400)

pGYear = pGYear + 1

Do While mGDays <=

pGYear = pGYear – 1

If IsLeapGregorian(pGYear) = 1 Then

mGDays = mGDays + 366

Else

mGDays = mGDays + 365

End If

Loop

If (mGDays = 366 And IsLeapGregorian(pGYear) = ) Then

mGDays = 1

pGYear = pGYear + 1

End If

GetGregorianMonthDay pGYear, mGDays, pGMonth, pGDay

End Sub

Private Sub GetGregorianMonthDay(ByVal vGYear As Integer, ByVal vGDayOfYear As Integer, pGMonth As Integer, pGDay As Integer)

Dim mCount As Integer

Dim mGLeap

mGLeap = IsLeapGregorian(vGYear)

mCount = 1

Do While vGDayOfYear > mvarGDayTab(mGLeap)(mCount)

vGDayOfYear = vGDayOfYear - mvarGDayTab(mGLeap)(mCount)

mCount = mCount + 1

Loop

pGMonth = mCount

pGDay = vGDayOfYear

End Sub

بیشتر بخوانید سورس برنامه آدرس یاب پیشرفته به زبان ویژوال بیسیک

حالا کد زیر رو تو قسمت جنرال فرمتون کپی کنید :

Private Sub Form_Load()
Dim intYear As Integer, intMonth As Integer, intDay As Integer
Dim strDayName As String, strShamsi As String
GetJalaliDate Year(Date), Month(Date), Day(Date), intYear, intMonth, intDay, strDayName
strShamsi = intYear & "/" & intMonth & "/" & intDay & " " & strDayName
Me.Caption = strShamsi
End Sub

Private Sub Form_Load()

Dim intYear As Integer, intMonth As Integer, intDay As Integer

Dim strDayName As String, strShamsi As String

GetJalaliDate Year(Date), Month(Date), Day(Date), intYear, intMonth, intDay, strDayName

strShamsi = intYear & "/" & intMonth & "/" & intDay & " " & strDayName

Me.Caption = strShamsi

End Sub

حالا برنامه رو اجرا کنید.

فیلم آموزشی مرتبط – روی لینک زیر کلیک کنید

کامل‌ترین مجموعه فیلم‌های آموزشی برنامه نویسی (به زبان فارسی)

توسط : leilaدر: الگوریتم،ساختمان دادها, سورس کد، پروژه رایگان12 دیدگاه

تگ ها : الگوریتم تبدیل تاریخ میلادی به تاریخ شمسی پیاده سازی الگوریتم به زبان سی

12 نظر

smm206
فروردین ۱۰, ۱۳۹۱ در ۴:۳۸ ق.ظ
خیلی ممنون
پاسخ
ali
مهر ۳۰, ۱۳۹۰ در ۷:۰۲ ق.ظ
سلام قربان اگه برای پاسکالش را هم بفرستی دمت گرم
پاسخ
leila
تیر ۸, ۱۳۹۰ در ۴:۵۷ ب.ظ
موفق باشید
یا حق
پاسخ
arash
تیر ۸, ۱۳۹۰ در ۴:۴۸ ب.ظ
fantastic
kheyly toop bood
پاسخ
ali
تیر ۸, ۱۳۹۰ در ۴:۴۵ ب.ظ
آقا واقعا دستتون درد نکنه
خیلی خیلی ازتون ممنونم
از شما متشکرم
پاسخ
ARD
اسفند ۲۸, ۱۳۸۹ در ۷:۳۰ ق.ظ
با حال
پاسخ

جزوه ساختمان گسسته استاد قلی زاده

جزوه ساختمان گسسته استاد قلی زاده

مطالب مشابه

12 نظر

smm206

ali

leila

arash

ali

ARD

پاسخ دهید لغو پاسخ

کتب دانشگاهی

نوشته های تازه

برنامه نویسی

الگوریتم تبدیل تاریخ میلادی به تاریخ شمسی

کامل‌ترین مجموعه فیلم‌های آموزشی برنامه نویسی (به زبان فارسی)

جزوه ساختمان گسسته استاد قلی زاده

جزوه ساختمان گسسته استاد قلی زاده

مطالب مشابه

برنامه تبديل درجه فارنهايت به سلسيوس در C

پاورپوینت الگوریتم بهینه سازی ازدحام ذرات

مقاله امنیت پایگاه داده

12 نظر

smm206

ali

leila

arash

ali

ARD

پاسخ دهید لغو پاسخ

کتب دانشگاهی

نوشته های تازه

برنامه نویسی