این هم کد تبدیل تاریخ میلادی به شمسی
کد:
Sub PersianDate()
Dim jc As New PersianCalendar
Dim ThisDate As Date = Date.Now
DateLable.Text = jc.GetYear(ThisDate) & "/" & jc.GetMonth(ThisDate) & "/" & jc.GetDayOfMonth(ThisDate)
WeekLable.Text = jc.GetDayOfWeek(ThisDate)
If WeekLable.Text = 0 Then
WeekLable.Text = "یکشنبه"
ElseIf WeekLable.Text = 1 Then
WeekLable.Text = "دوشنبه"
ElseIf WeekLable.Text = 2 Then
WeekLable.Text = "سه شنبه"
ElseIf WeekLable.Text = 3 Then
WeekLable.Text = "چهارشنبه"
ElseIf WeekLable.Text = 4 Then
WeekLable.Text = "پنج شنبه"
ElseIf WeekLable.Text = 5 Then
WeekLable.Text = "جمعه"
ElseIf WeekLable.Text = 6 Then
WeekLable.Text = "شنبه"
End If
TimeLable.Text = jc.GetHour(ThisDate) & ":" & jc.GetMinute(ThisDate) & ":" & jc.GetSecond(ThisDate)
End Sub
باید Imports System.Globalization رو هم بالای صفحه کپی کنید.
بعد توی page_load دستور PersianDate() رو بنویسی.یعنی اینکه زیربرنامه رو فراخوانی میکنی با این کار.
من برای پروژه ام از این کد استفاده کردم.جواب میده.با این کد روز و زمان و تاریخ رو بهت نشون میده. مثلا :شنبه ساعت 11:00 تاریخ 1390/04/05:20:
میدونم که تاپیک برای خیلی وقت پیش بوده ولی جواب درستی به این سوال داده نشده بود و چون میدونم بچه های vb.net به این کد نیاز دارن ، دوست داشتم در اختیارشون بزارم و یه تاپیک جدید درست نکنم.