بسیاری از دوستان که در برنامه نویسی های ان ها تاریخ میلادی هست به دنبال کدی میگردند تا بشود به صورت اتوماتیک تاریخ میلادی را به شمسی تبدیل کند هم چنین که در این کد سال کبیسه نیز حساب بشود.
امروز کد تبدیل تاریخ میلادی به شمسی را به زبان بیسیک را برای دوستان برنامه نویس ،جهت دانلود قرار داده ایم.

یکی از کاربرد های این کد که خودم هم مدت زیادی با ان سروکار داشتم در مورد کار با ای سی ds1307 هست همانطور که میدانید این ای سی یکreal time clock= RTC هست که علاوه برا کار های دیگر مثل شمارش ساعت ، روز و... تاریخ را به صورت میلادی محاسبه میکند که با استفاده از این کد میتوانید تاریخ را به شمسی تبدیل کنید.

دوستانی که مایل هستند تا کد را دریافت کنند........

اما در مورد نحوه استفاده از کد باید سال ،ماه و روز میلادی خود را همانطور که در برنامه توضیح داده شده است در متغیر های زیر قرار دهید.

Myear = 2008
Mday =28
Mmonth = 8

که در این کد تاریخ 2008/08/28 را به عنوان نمونه قرار دادیم خروجی این کد که در ان تاریخ به صورت شمسی تولید میشود به صورت زیر میباشد که در این مثال تاریخ 1387/06/07 میباشد.
در کد زیر متغیر Jday به عنوان خروجی روز تبدیل شده میباشد که میتوانید از این متغیر روز تاریخ شمسی تبدیل شده را بگیرید،خروجی ماه در این کد متغیر Jmonth و متغیر Jyear به عنوان خروجی سال شمسی میباشد هم چنین که متغیر Jdayofyear تعداد روز های سپری شده از ماه شمسی محاسبه شده از اول سال تا کنون را نمایش میدهد.


در زیر نمونه کد را مشاهده میکنید هم چنین که میتوانید ان را نیز دانلود کنید.

منبع:سایت اختصاصی مدارت ومقالات الکترونیکی-یزد کیت

'------------convert milady to shmasy----------------
'----------------http://www.yazdkit.com------------------
'----------------http://www.yazdkit.ir-------------------
$regfile = "m16def.dat"
$crystal=1000000
$lib "mcsbyteint.lbx"

Dim Myear As Integer 'input miladi(gregorian) year
Dim Mday As Integer 'input miladi day
Dim Mmonth As Integer 'input miladi month
Dim Mdayofyear As Integer
Dim Myear_ As Integer

Dim Jday As Integer 'Output jalali(shamsi) day
Dim Jmonth As Integer 'Output Jalali month
Dim Jyear As Integer 'Output Jalali year
Dim Jdayofyear As Integer

Dim Gnumdayofyear As Integer
Dim Isleapyear As Bit
Dim Isleapyearp As Bit

Dim Iloop As Byte
Dim Temp1 As Integer
Dim Temp2 As Integer
Dim Temp3 As Integer
Dim Temp4 As Integer

Dim Jmonth_a(12) As Byte
Dim Mmonth_a(12) As Byte

Mmonth_a(1) = 31
'--------28 ya 29 agar sall kabiseh bashad in mah 29 roz mibashad--------------------
Mmonth_a(2) = 28
Mmonth_a(3) = 31

Mmonth_a(4) = 30
Mmonth_a(5) = 31
Mmonth_a(6) = 30

Mmonth_a(7) = 31
Mmonth_a(8) = 31
Mmonth_a(9) = 30

Mmonth_a(10) = 31
Mmonth_a(11) = 30
Mmonth_a(12) = 31

Gnumdayofyear = 365

Myear = 2008 'Sample miladi (gregorian) Year
Mday = 28 'Sample miladi day
Mmonth = 8 'Sample miladi month
'--------------shart kabiseh bodane sall-------------
Temp1 = Myear Mod 4
Temp2 = Myear Mod 100
Temp3 = Myear Mod 400
Temp4 = Temp1 And Temp2

If Temp4 <> 0 Or Temp3 = 0 Then
Mmonth_a(2) = 28
Else
Mmonth_a(2) = 29
End If


Myear_ = Myear - 1
Temp1 = Myear_ Mod 4
Temp2 = Myear_ Mod 100
Temp3 = Myear_ Mod 400
Temp4 = Temp1 And Temp2

If Temp4 <> 0 Or Temp3 = 0 Then
Reset Isleapyearp
Else
Set Isleapyearp
End If

Temp1 = Mmonth - 1

For Iloop = 1 To Temp1
Mdayofyear = Mmonth_a(iloop) + Mdayofyear
Next
Mdayofyear = Mday + Mdayofyear


If Mdayofyear > 79 Then

Temp1 = Mdayofyear - 79
Jyear = Myear - 621

If Temp1 < 186 Then

Temp2 = Temp1 Mod 31
Temp3 = Temp1 / 31

If Temp2 = 0 Then
Jmonth = Temp3
Jday = 31
Else
Jmonth = Temp3 + 1
Jday = Temp2
End If

Else

Temp2 = Temp1 - 186
Temp3 = Temp2 Mod 30
Temp4 = Temp2 / 30

If Temp3 = 0 Then
Jmonth = Temp4 + 6
Jday = 30
Else
Jmonth = Temp4 + 7
Jday = Temp3
End If

End If

Else

Jyear = Myear - 622

If Isleapyearp = 1 Then
Mdayofyear = Mdayofyear + 11
Else
Mdayofyear = Mdayofyear + 10
End If

Temp2 = Mdayofyear Mod 30
Temp3 = Mdayofyear / 30

If Temp2 = 0 Then
Jmonth = Temp3 + 9
Jday = 30
Else
Jmonth = Temp3 + 10
Jday = Temp2
End If

Waitms 1

End If