تاریخ شمسی

[Armin.s]

سلام دوستان ،
من search زیاد کردم تو سایت که کدی در رابطه با تاریخ شمسی پیدا کنم و موفق نشدم .
من یه برنامه دارم که میخوام وقتی مثلا button ثبت زدم تاریخ رو از سیستم بگیره و تبدیل به تاریخ شمسی بشه و تو text box نمایش بده .
ممنون میشم ازتون اگه راهنماییم کنید .

[Peyman.Gh]

شما با استفاده از Globalization.PersianCalendar میتونید تاریخ میلادی را به شمسی تبدیل کنید.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim persian As New System.Globalization.PersianCalendar
Dim year As Integer = persian.GetYear(DateTime.Now)
Dim month As Integer = persian.GetMonth(DateTime.Now)
Dim day As Integer = persian.GetDayOfMonth(DateTime.Now)
Dim week As String = persian.GetDayOfWeek(DateTime.Now).ToString()
Dim [Date] As String = ((day.ToString() & "/") + month.ToString() & "/") + year.ToString()
TextBox1.Text = [Date]
End Sub

موفق باشید.

[Armin.s]

خیلی ممنونم ازت مشکلم حل شد.