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

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

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

Private Sub Form_load()

Make_array

Text1.text=LD2FD("")

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

End Sub

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

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

سلام دوستان اینم یک ماژول که عدد رو به حروف تبدیل می کنه و کارشم درسته فقط باید کلمه Alphaset رو توي Form_load بايد نوشته شود و كل دستور تبديل به حروف آن بشرح زير است

Text1.text= Horof(text2.text)

در اين كد Text2.Text عدد ماست و در Text1.Text حروف آن نوشته مي شود ...

اميدوارم كه موفق باشيد

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