ارسال پاسخ 
 
امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
چالش بدست آوردن محدوده هفته ای خاص در سال خاص با GetSpecificWeekRange
نویسنده پیام
royasaz آفلاین
در حال پیشرفت
**

ارسال‌ها: 10
تاریخ عضویت: آبا ۱۳۹۰
اعتبار: 0
ارسال: #1
چالش بدست آوردن محدوده هفته ای خاص در سال خاص با GetSpecificWeekRange
سلام
تابع GetSpecificWeekRange در اکتیوکس pdc جهت تعیین محدوده هفته ای خاص در سال جاری میباشد که با دادن شماره هفته محدوده هفته را به ما میدهد همچنین تابع WeekNumber برای بدست آوردن شماره هفته خاص در هر سالی میباشد حال اگر بخواهیم نحدوده هفته ای خاص را در سال خاص "به غیر از سال جاری را بدست آوریم به نظر می آمد که با دستور:
MyVar.GetSpecificWeekRange(MyVar.WeekNumber(Form_F orm1.Texts)
بتوان محدوده هفته را بدست آورد ولی در صورتی که هفته مورد نظر در سال جاری باشد این تابع جواب میدهد در غیر اینصورت چون تابع بر اساس شماره هفته محدوده را میدهد و شماره هفته را از تاریخ به غیر از سال جاری بدست آورده باشیم ولی در آخر با محدوده هفته ای از سال جاری مواجه می شویم
خوب جال برمیگردیم بر سر سوال اول برای بدست آوردن محدوده هفته ای خاص در سالی به غیر از سال جاری چه باید کرد
البته با سایر توابع همین اکتیوکس به روش ذیل محدوده مورد نظر را بدست آورده ام به این صورت که ابتدا نام روز تاریخ مورد نظر را گرفته مثال"دوشنبه" درصورتی که شنبه باشد به تاریخ 6 روز اضافه محدوده بدست می آید درغیر اینصورت بوسیله دستور for...next شش مرحله ای از تاریخ مورد نظر یک روز کم کرده تا برابر با شنبه شود سپس شش روز به آن اظافه میکنیم محدوده هفته مورد نظر در هر سالی بدست میآد
حال سوال من این است با روش ذکر شده که الگریتم آن در ذیل است آیا مشکل ساز میشود
و در کل از جناب نبیل عزیر می پرسم آیا به جای مبنای کار تابع GetSpecificWeekRange که بر اساس شماره هفته میباشد و در سال جاری محدود میشود آیا امکان عوض شدن مبنای آن بر اساس نام روز که در این صورت نه نیاز به شماره هفته می باشد و نه در سال جاری محدود میشود، وجود دارد
.... *ويرايش شد CPSD Admin*
کد:
Function Aval_ht() As String

Dim aval As String
aval = Form_Form1.Texts
If MyVar.DayOfDate(aval) <> "ÔäÈå" Then
For x = 1 To 6
aval = MyVar.AddToDate(aval, Rooz, 1, KamKardan)
If MyVar.DayOfDate(aval) = "ÔäÈå" Then Exit For
Next x
End If
'Aval_ht = aval & ";" & MyVar.AddToDate(aval, Rooz, 6, EzafeKardan)
۹ بهمن ۱۳۹۰ ۱۰:۵۴ عصر
یافتن تمامی ارسال‌های این کاربر نقل قول این ارسال در یک پاسخ
ارسال پاسخ 


پیام‌های داخل این موضوع
چالش بدست آوردن محدوده هفته ای خاص در سال خاص با GetSpecificWeekRange - royasaz - ۹ بهمن ۱۳۹۰ ۱۰:۵۴ عصر

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  نحوه تعیین محدوده ماه جاری royasaz 2 9,361 ۲ بهمن ۱۳۹۰ ۰۶:۱۷ عصر
آخرین ارسال: CPSD Admin
  بدست آوردن محدوده هفته جاری royasaz 2 9,322 ۲ بهمن ۱۳۹۰ ۰۶:۱۵ عصر
آخرین ارسال: CPSD Admin

پرش به انجمن:


‍CPSD.ir Website

وب سايت      |      وبلاگ      |      فروشگاه

 

Center Point SD - Software Developer

Yaldex PopUp