سلام دوستان اینم یک ماژول برای تبدیل تاریخ شمسی به میلادی و برعکس

نحوه کارکرد با این برنامه طوری است که باید در Form_Load بايد كد Make_Array نوشته شود تا تاريخ محاسبه گردد

براي مثال مي توان كد زير را نوشت

Private Sub Form_load()

Make_array

Text1.text=LD2FD("")

Text2.Text=FD2LD("تاريخ شمسي مورد نظر")

End Sub

اميدوارم كه استفادشو ببريد.

دانــــــــلــــــود كـــــــــد