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

[Ali_Fallah]

با سلام
دوستان عزیز اگر نمونه برنامه تبدیل تاریخ شمسی به میلادی را دراختیار
دارند لطفاً اگر ممکن هست در اینجا ضمیمه کنند
البته نمونه برنامه ای را که توسط آقای قربانی تهیه شده و در آدرس زیر قرار دارد را نگاه کردم
ولی ظاهراً مقداری مشکل دارد
http://barnamenevis.org/forum/showthread.php?t=69699

[مهدی قربانی]

سلام
آقای فلاح مشکلش چیه ؟

[Ali_Fallah]

با سلام
به تصویر دقت کنید...

[RESMAILY]

بسمه تعالي
با سلام من با اين كد كار مي كنم شايد به در د شماهم بخورد
Public Function Mdate(ByVal sD As String) As Date
Myear = Val(Mid(sD, 1, 4))
Mmonth = Val(Mid(sD, 6, 2))
Mdays = Val(Mid(sD, 9, 2))
Kflag = False
If ((Myear + 1) Mod 4) = 0 Then Kflag = True
If Kflag = False And Mmonth = 12 And Mdays = 30 Then
MsgBox "ÊÇÑíÎ ãÚÊÈÑäíÓÊ", , "ÊæÌå"
Exit Function
End If
For Cmon = Mmonth To 2 Step -1
intY = Cmon
Select Case Cmon
Case 2 To 7
Mdays = Mdays + 31
Case 8 To 12
Mdays = Mdays + 30
End Select
Next
If Kflag = True Then
FMdays = 288
Else
FMdays = 287
End If
Select Case Mdays
Case Is <= FMdays
Mdays = Mdays + 78
Myear = Myear + 621
Case Is > FMdays
Mdays = Mdays - FMdays
Myear = Myear + 622
End Select
Mdate = DateSerial(Myear, 1, 1) + Mdays
End Function