نمایش نام روز هفته

[nasiiiiiii]

سلام دوستان خوبم
نمی دونم سوالم درست یا نه :خجالت: ام می خوام بدونم می تونم کاری کنم تا علاوه بر این که تاریخ شمسی و ساعت سیستمو نمایش میدم(تا اینجا روبلدم):لبخند: روز هفته ام نمایش بدم (شنبه , یکشنبه ,.....)

[salehbagheri]

شما ابتدا باید روزهای هفته رو به فارسی تبدیل کرده و در متغیری ذخیره کنید!


Dim DayNames As New Dictionary(Of String, String) From

>"جمعه"}} {{"Saturday", "شنبه"}, {"Sunday", "یکشنبه"}, {"Monday", "دوشنبه"}, {"Tuesday", "سه شنبه"}, {"Wednesday", "چهارشنبه"}, {"Thursday", "پنجشنبه"}, {"Friday",


سپس به این صورت استفاده کنید:


YourLabel.Text = DayNames(Date.Now.DayOfWeek.ToString)



البته روشهای بهینه تری هم هست، من این کد رو بدون کمپایل نوشتم ...

[ebraham]

آسانترين روش استفاده از دستور case هست يعني now.dayofweekسپس بايد تبديلش كني به شمسي

[koorosh-soft]

یا اینکه تو یه آرایه نام روز هارو بنویسی شماره روز رو پرت کنی تو آرایه

[misha898]

Dim dayname As String

Function MiladiToShamsi(ByVal Year As Integer, ByVal month As Integer, ByVal day As Integer) As String
Try
Dim Date_M As Date = Year & "/" & month & "/" & day
Dim Date_Sh As New Globalization.PersianCalendar
Return Date_Sh.GetYear(Date_M) & "/" & Format(Date_Sh.GetMonth(Date_M), "00") & "/" & Format(Date_Sh.GetDayOfMonth(Date_M), "00")
Catch ex As Exception
Return 0
End Try
End Function

Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim language As New System.Globalization.CultureInfo("fa-ir")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(language)
Dim year As Integer, month As Integer, day As Integer
year = Date.Now.Year
month = Date.Today.Month
day = Date.Now.Day
Select Case Date.Now.DayOfWeek
Case DayOfWeek.Friday
dayname = "جمعه"
Case DayOfWeek.Monday
dayname = "دوشنبه"
Case DayOfWeek.Saturday
dayname = "شنبه"
Case DayOfWeek.Sunday
dayname = "یکشنبه"
Case DayOfWeek.Thursday
dayname = "پنج شنبه"
Case DayOfWeek.Tuesday
dayname = "سه شنبه"
Case DayOfWeek.Wednesday
dayname = "چهارشنبه"
End Select
datestate.Text = dayname & " " & MiladiToShamsi(year, month, day)

End Sub