PDA

View Full Version : سوال: مشخص کردن نام روز یک تاریخ


delasaee
یک شنبه 09 آبان 1389, 18:18 عصر
سلام به همگی
من با DatePicker تاریخ شمسی رو دریافت می کنم
حالا می خوام مشخص کنم این تاریخ(1389/08/07) چندشنبه هستش
راه حلی دارید؟
alirezash
یک شنبه 09 آبان 1389, 18:42 عصر
دوست عزیز روز هفته توی تمام تاریخ ها یکی است .
پس از تابع خود .net روز رو بدست بیار

Dim arkweekday As String

Select Case DateAndTime.Weekday(DateAndTime.Now).ToString
Case "1"
arkweekday = "یک شنبه"
Case "2"
arkweekday = "دو شنبه"
Case "3"
arkweekday = "سه شنبه"
Case "4"
arkweekday = "چهار شنبه"
Case "5"
arkweekday = "پنج شنبه"
Case "6"
arkweekday = "جمعه"
Case "7"
arkweekday = "شنبه"
End Select
alirezash
یک شنبه 09 آبان 1389, 18:43 عصر
و مقدار arkweekday هر کجا که خواستی استفاده کن
alirezash
یک شنبه 09 آبان 1389, 18:43 عصر
و بجای DateAndTime.Now هم تاریخ میلادی که می خوای رو بزار
delasaee
یک شنبه 09 آبان 1389, 19:02 عصر
ممنون دوست عزیز
فقط من به 2 تا مشکل خوردم
وقتی 1389/09/01 رو انتخاب می کنم 3 رو بر میگردونه
درصورتی که دوشنبه هست
وقتی هم 1389/02/31 رو انتخاب میکنم error میده مشکل چیه؟
dataking
یک شنبه 09 آبان 1389, 19:13 عصر
سلام
یک کلیک اینجا (http://barnamenevis.org/forum/showthread.php?t=256303)بکنید قطعا نتیجه می گیرید
delasaee
یک شنبه 09 آبان 1389, 19:32 عصر
سلام
یک کلیک اینجا (http://barnamenevis.org/forum/showthread.php?t=256303)بکنید قطعا نتیجه می گیرید

ممنون دوست عزیز
ولی این کامپوننت کمکی نکرد
من می خوام یه تاریخ شمسی بدم و روز رو دریافت کنم
dataking
یک شنبه 09 آبان 1389, 19:44 عصر
وقتی 1389/09/01 رو انتخاب می کنم 3 رو بر میگردونه
خب این یعنی سومین روز هفته که می شه دوشنبه دیگه چرا خوت راخسته می کنی
دوست من یک یعنی شنبه 2 یعنی یکشنبه 3 یعنی دوشنبه 4 یعنی سه شنبه 5 یعنی چهارشنبه
6 یعنی پنجشنبه و 7 یعنی آدینه جمعه فریدی (روزآخر هفته )
دیگه حل حل حل شد درسته

Dim arkweekday As String

Select Case DateAndTime.Weekday(DateAndTime.Now).ToString
Case "1"
arkweekday = "شنبه"
Case "2"
arkweekday = "یکشنبه"
Case "3"
arkweekday = "دوشنبه"
Case "4"
arkweekday = "سه شنبه"
Case "5"
arkweekday = "چهارشنبه"
Case "6"
arkweekday = "پنجشنبه"
Case "7"
arkweekday = "جمعه"
delasaee
یک شنبه 09 آبان 1389, 20:02 عصر
ممنون ولی مشکل اصلاً این نیست
حالا روز های دیگه رو اشتباه می ده
dataking
یک شنبه 09 آبان 1389, 20:10 عصر
دوست خوبم همون تکه سورس را بزار و کامل توضیه بده ( توی یک فایل ورد همراه سورس) قول می دم اگه عمری باقی باشه فردا آمدش کنم برات بذارم
شب شما بخیر
delasaee
یک شنبه 09 آبان 1389, 20:16 عصر
ممنون
اینم سورس فایلم