نوشته شده توسط
Netsky
سلام به همه .
تاسوعای حسینی رو خدمت همه شما دوستان تسلیت عرض می کنم .
یه کد دیگه واستون آماده کردم . خیلی از برنامه نویسا واسه اینکه تاریخ شمسی رو در برنامشون ایجاد کنند از کامپوننت های مختلف و زیادی استفاده میکنن ، در صورتی که در خود VB.Net میتونید خیلی راحت تاریخ میلادی رو به شمسی تبدیل کنید . بوسیله کد زیر میتونید این کار رو انجام بدید .
Public Function Shamsi_Date() As String
Dim DT As Date = Date.Now
Dim Year, Month, Day As String
Dim Glob As New Globalization.PersianCalendar
Year = Glob.GetYear(DT)
Month = Glob.GetMonth(DT)
Day = Glob.GetDayOfMonth(DT)
Shamsi_Date = Year & "\" & Month & "\" & Day
MsgBox(Shamsi_Date)
End Function
امیدوارم استفاده کنید .......................
با اين كد هم ميتونيد تاريخ شمسي داخله تكست باكس بزاريد
در رويداد فوكوس كنترل جعبه متن كد زير را قرار دهيد البته فكركنم يه import نيازدارهالان خاطرم نيست اگه لازم داشت بعدا ميزارم
Dim p As New Globalization.PersianCalendar
TextBox2.Text = p.GetYear(Now).ToString & "/" & p.GetMonth(Now).ToString & "/" & p.GetDayOfMonth(Now).ToString