مشکل در کار با persianCalandar

[pooya1072]

سلام
امروز یکشنبه 5/3/92 . من می خوام این تاریخ رو از persiancalandar بگیرم . معادل تاریخ میلادی امروز 26/5/2013
از دستورات زیر استفاده کردم :

Dim pc As New PersianCalandar
dim DayOfMonth as integer=pc.GetDayOfMonth(Today)
Dim DayOfWeek AS Integer=pc.GetDayOfWeek(Today)
مقدار DayOfMonth درسته و 5 رو بر میگردونه ولی مقدار DayOfWeek که باید 1 (معادل یکشنبه) باشه رو 0 بر میگردونه که معادل روز شنبه میشه . من این رو روی دو سیستم دیگه هم تست کردم . شما هم تستش کنید . ببینید می تونید مشکل رو حل کنید .
ممنون

[محمد آشتیانی]

سلام

مشکلی نیست، دات نت روز مبدا رو یکشنبه در نظر میگیره

[rm.manesh]

با سلام . اگر فرض کنیم که لیبلی داشته باشیم با کد زیر مشکل شما حل میشود و تمام روزها صحیح نشان داده میشود

Dim g As New Globalization.PersianCalendar

Dim b As String

( Select Case g.GetDayOfWeek(Now.Date
Case DayOfWeek.Saturday
b = "شنبه"
Case DayOfWeek.Sunday
b = "یکشنبه"
Case DayOfWeek.Monday
b = "دوشنبه"
Case DayOfWeek.Tuesday
b = "سه شنبه"
Case DayOfWeek.Wednesday
b = "چهارشنبه"
Case DayOfWeek.Thursday
b = "پنج شنبه"
Case DayOfWeek.Friday
b = "جمعه"
End Select
Me.label.Text = b

[vb341]

شما از today استفاده میکنی . امکان داره تاریخ سیستمها درست نباشه . تنظیمات سیستم رو چک کن

[pooya1072]

ممنون ... مشکل حل شد.
اینکه یکشنبه روز مبدا