دادن تاريخ به كروي و بركردان هفته از سال

[farhad13459]

دوستان چگونه ميشود تاريخي به كروي داد و شماره هفته از سال را نمايش دهد؟

[amirzazadeh]

دوستان چگ.نه ميشود تاريخي به كروي داد و شماره هفته از سال را نمايش دهد؟
براي تاريخ شمسي از اين نمونه كمك بگيريد

[farhad13459]

با سلام به amirzazadeh
اين ماژول شما تاريخ 7/01/89 را هفته اول سال برمي گرداند لطفا" اگر ممكنه آنرا اصلاح كنيد.

[amirzazadeh]

سلام
خوب دوست من هفتم فروردين هفته اول سال محسوب ميشه.

[farhad13459]

سلام مجدد
آقاي amirzazadeh عزيز تاريخ 7/1/89 در هفته دوم سال 89 قرار دارد اگر اين ماژول طوري تغيير كند كه اين تاريخ را در هفته دوم نمايش دهد مشكل من حل مي گردد.

[mehdi_fiz]

سلام دوست عزیز
شما از کامپوننت آقای پیروزمهر استفاده کنید به جز این کلی تابع کاربردی دیگر هم دارد
این هم لینک دریافت http://www.cpsd.ir/downloads/PDCSetup.exe
موفق باشید

[amirzazadeh]

سلام مجدد
آقاي amirzazadeh عزيز تاريخ 7/1/89 در هفته دوم سال 89 قرار دارد اگر اين ماژول طوري تغيير كند كه اين تاريخ را در هفته دوم نمايش دهد مشكل من حل مي گردد.
سلام
كد رو به اين شكل اصلاح كنيد:

Function WeekOfYear(ByVal F_date As Long) As Long
Dim o As Long
o = DayWeekNo(Left(F_date, 2) & "0101")
Select Case o
Case Is = 0
If SalRooz(F_date) Mod 7 = 0 Then
WeekOfYear = SalRooz(F_date) \ 7
Else
WeekOfYear = SalRooz(F_date) \ 7 + 1
End If
Case Is = 1
If SalRooz(F_date) < 6 Then
WeekOfYear = 1
Else
WeekOfYear = SalRooz(F_date) \ 7 + 1
End If
Case Is = 2
If SalRooz(F_date) < 5 Then
WeekOfYear = 1
Else
WeekOfYear = (SalRooz(F_date) + 1) \ 7 + 1
End If
Case Is = 3
If SalRooz(F_date) < 4 Then
WeekOfYear = 1
Else
WeekOfYear = (SalRooz(F_date) + 2) \ 7 + 1
End If


End Select
End Function.........................
موفق باشيد

[farhad13459]

با سلام خدمت دوست گرامي آقايamirzazadeh و تشكر از شما
دو ست گرامي امكان اينكه شماره هفته هاي فرد بصورت 00 نمايش داده شود هست يا خير (مثلا" اگر شماره هفته سوم بصورت 03 نمايش داده شود)

[farhad13459]

با سلام
دوست عزيز ماژولي كه زحمت كشيديد تا پايان سال 91 به خوبي كار مي كرد ولي در سال 92 شماره هفته را برنمي گرداند ممنون ميشوم كه انرا اصلاح فرمائيد.