سوال: دریافت تاریخ و برگرداندن روز هفته! [بایگانی]

paria136

دوشنبه 19 بهمن 1388, 22:57 عصر

سلام
من میخوام تاریخ شمسی رو دستی بهش بدم و روز هفته اون تاریخ رو برگردونه!
خواهش میکنم کمکم کنید خیلی حیاتیه!!!!!:ناراحت::ناراحت:

javadt

سه شنبه 20 بهمن 1388, 00:05 صبح

شما می تونی از shamsi.dll استفاده کنی توی سایت هست
اینجا رو هم ببین
http://www.barnamenevis.org/forum/search.php?searchid=2049757

paria136

سه شنبه 20 بهمن 1388, 10:43 صبح

شما می تونی از shamsi.dll استفاده کنی توی سایت هست
اینجا رو هم ببین
http://www.barnamenevis.org/forum/search.php?searchid=2049757

لینکی که گذاشتید میگه هیچ مورد جدیدی یافت نشد!:متفکر:
درواقع من میخوام توی text box تاریخ رو بگیره و با msgbox روز هفته رو اعلام کنه. با این مشکل دارم:ناراحت:

javadt

سه شنبه 20 بهمن 1388, 12:34 عصر

بیا دوست عزیز برات گذاشتم
با همون shamsi.dll هست که گفتم
نام ماه رو بر اساس تاریخ تکس باکس و نام روز رو بر اساس تاریخ سیستم بر می گردونه

paria136

سه شنبه 20 بهمن 1388, 23:36 عصر

بیا دوست عزیز برات گذاشتم
با همون shamsi.dll هست که گفتم
نام ماه رو بر اساس تاریخ تکس باکس و نام روز رو بر اساس تاریخ سیستم بر می گردونه

اگر تاریخ داخل text box رو عوض کنید جواب نمیده
تست کنید اگر جواب گرفتید مشکل از سیستم منه:خجالت:

xxxxx_xxxxx

چهارشنبه 21 بهمن 1388, 01:00 صبح

سلام،
تابع ShamsiWeekDayName تنها نام امروز رو نشون میده، یعنی بر اساس تاریخ جاری عمل می کنه و ورودی نداره که بخوایم بهش بگیم فلان تاریخ چندشنبه بود.

برای این کار باید شمسی رو به میلادی تبدیل کنید و بعد با یکی دو تا از توابع خود VB به نام Weekday و WeekdayName نام روز هفته رو بدست بیارید.

به این صورت:

MsgBox WeekdayName(Weekday(Shamsi2Miladi(Text1.Text)))
تابع Shamsi2Miladi:

Public Function Shamsi2Miladi(shdate As String) As String
Dim shms As New ClassShamsi
Shamsi2Miladi = shms.Shamsi2Miladi(shdate)
End Function

paria136

چهارشنبه 21 بهمن 1388, 19:17 عصر

سلام،
تابع ShamsiWeekDayName تنها نام امروز رو نشون میده، یعنی بر اساس تاریخ جاری عمل می کنه و ورودی نداره که بخوایم بهش بگیم فلان تاریخ چندشنبه بود.

برای این کار باید شمسی رو به میلادی تبدیل کنید و بعد با یکی دو تا از توابع خود VB به نام Weekday و WeekdayName نام روز هفته رو بدست بیارید.

به این صورت:

MsgBox WeekdayName(Weekday(Shamsi2Miladi(Text1.Text)))
تابع Shamsi2Miladi:

Public Function Shamsi2Miladi(shdate As String) As String
Dim shms As New ClassShamsi
Shamsi2Miladi = shms.Shamsi2Miladi(shdate)
End Function

خیلی ممنون واقعا این کد بهم کمک کرد فقط یه مشکل دیگه هست اینه که وقتی اجرا میشه اول خطای not valid میده بعد روز هفته رو اعلام میکنه این پیغام رو نمیدونم چطوری حذفش کنم:متفکر: