روزهای هفته

[Overhere]

سلام
من میخوام که label4.text برابر با روز هفته و label5.text برابر با ماه سال بشه...
کدشو لطف میکنین؟؟؟؟

[mahdi.a.v]

کد برای نمایش روز هفته :
Label1.Text = Date.Now.DayOfWeek.ToString


اگه فارسی شو میخوای :
Dim DayNames As New Dictionary(Of String, String) From {{"Saturday", "شنبه"}, {"Sunday", "یکشنبه"}, {"Monday", "دوشنبه"}, {"Tuesday", "سه شنبه"}, {"Wednesday", "چهارشنبه"}, {"Thursday", "پنجشنبه"}, {"Friday", "جمعه"}}
Label1.Text = DayNames(Date.Now.DayOfWeek.ToString)


برای نمایش روز در ماه :
Label1.Text = Date.Today.Day



برای نمایش ماه سال :
Label1.Text = Date.Today.Month




برای نمایش سال :
Label1.Text = Date.Today.Year


برای تبدیل روز و ماه و سال میلادی به شمسی :
Dim x As New System.Globalization.PersianCalendar()

Dim dt As Date
dt = #1/1/2007#
'Or
dt = New Date(2007, 1, 1)
'Or
dt = CDate("1/1/2007")

Dim y As Integer = x.GetYear(dt)
Dim m As Integer = x.GetMonth(dt)
Dim d As Integer = x.GetDayOfMonth(dt)

[Overhere]

اونوقت مثلا الان ماه september هستش چجوری میتونم september رو نمایش بدم؟؟؟؟نمیخاوم به عدد باشه.

[mahdi.a.v]

کدی که میخواستید :
Dim dt As String = Date.Today.Month


Select Case dt
Case Is = 12
Label1.Text = "December"
Case Is = 11
Label1.Text = "November"
Case Is = 10
Label1.Text = "October"
Case Is = 9
Label1.Text = "September"
Case Is = 8
Label1.Text = "August"
Case Is = 7
Label1.Text = "July"
Case Is = 6
Label1.Text = "June"
Case Is = 5
Label1.Text = "May"
Case Is = 4
Label1.Text = "April"
Case Is = 3
Label1.Text = "March"
Case Is = 2
Label1.Text = "February"
Case Is = 1
Label1.Text = "January"
End Select