Hata: Biçim veya DatePart iþlevler hatalý bir hafta numarasý son Pazartesi yýl için iade

  ISO 8601 "Data elements and interchange formats - Information interchange   - Representation of dates and times"
  ISO 8601 : 1988 (E) paragraph 3.17:
  "week, calendar: A seven day period within a calendar year, starting
  on a Monday and identified by its ordinal number within the year;
  the first calendar week of the year is the one that includes the
  first Thursday of that year. In the Gregorian calendar, this is
  equivalent to the week which includes 4 January."
				

• Bir yýl içinde 52 veya 53 Takvim haftalar bölünür.
• Takvimi haftada 7 gün var. Pazartesi günü, 1, Pazar 7 gündür.
• Ilk yýlda bir takvim haftasý en az 4 gün içeren kullanýlýr.
• Yýlda bir Pazar günü sonuçlandý, 1-3, son gün sonraki yýlýn ilk takvim haftasý ait veya geçerli yýlýn son takvim haftasý ilk 1-3 gün, gelecek yýla ait.
• Yalnýzca baþlangýç veya üzerinde bir Perþembe concluding yýlda 53 Takvim haftalar vardýr.

Üste

Davranýþý yeniden oluþturma adýmlarý

1. Proje standart exe DOSYASý, Visual Basic'te baþlatýn. Varsayýlan olarak, Form1 oluþturulur.
2. Iki CommandButtons Form1'e ekleyin.
3. Aþaðýdaki kodu Form1 kodu penceresine yapýþtýrýn:

   Option Explicit
   
   Private Sub Command1_Click()
   ' This code tests a "problem" date and the days around it
   Dim DateValue As Date
   Dim i As Integer
   
   Debug.Print "   Format function:"
   DateValue = #12/27/2003#
   For i = 1 To 4   ' examine the last 4 days of the year
       DateValue = DateAdd("d", 1, DateValue)
       Debug.Print "Date: " & DateValue & "   Day: " & _
         Format(DateValue, "ddd") & "   Week: " & _
         Format(DateValue, "ww", vbMonday, vbFirstFourDays)
   Next i
   End Sub
   
   Private Sub Command2_Click()
   ' This code lists all "Problem" dates within a specified range
     Dim MyDate As Date
     Dim Years As Long
     Dim days As Long
     Dim woy1 As Long
     Dim woy2 As Long
     Dim ToPrint As String
   
     For Years = 1850 To 2050
       For days = 0 To 3
         MyDate = DateSerial(Years, 12, 28 + days)
         woy1 = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
         woy2 = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
         If woy2 > 52 Then
           If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then _
             woy2 = 1
         End If
         If woy1 <> woy2 Then
           ToPrint = MyDate & String(13 - Len(CStr(MyDate)), " ")
           ToPrint = ToPrint & Format(MyDate, "dddd") & _
             String(10 - Len(Format(MyDate, "dddd")), " ")
           ToPrint = ToPrint & woy1 & String(5 - Len(CStr(woy1)), " ")
           ToPrint = ToPrint & woy2
           Debug.Print ToPrint
         End If
       Next days
     Next Years
   End Sub
   					

4. CTRL tuþunu basýlý tutun ve bir komut penceresi açmak için G tuþuna basýn.
5. Projeyi çalýþtýrýn Command1 üzerinde týklatýn ve komut penceresinde aþaðýdaki sonuçlarý Not:

      Format function:
   Date: 12/28/03   Day: Sun   Week: 52
   Date: 12/29/03   Day: Mon   Week: 53
   Date: 12/30/03   Day: Tue   Week: 1
   Date: 12/31/03   Day: Wed   Week: 1
   						

   böylece baþlangýç haftasý 1 hafta 53 parçasý deðil ve 29/12/2003 olarak nitelendirilmesi gereken Not, bu biçimi, tüm Hafta Pazartesi ile baþlatýn.
6. Belirtilen aralýk içinde bu sorunla karþýlaþan tarihlerin bir listesini görmek için Command2 üzerinde ek Yardým düðmesini týklatýn. Liste içerir tarih, haftanýn günleri gün (Pazartesi her zaman) # <a1>Biçim</a1> (53) ve döndürmesi gereken hafta sayýsýný (1). Örneðin:

   12/29/1851   Monday    53   1
   12/31/1855   Monday    53   1
   12/30/1867   Monday    53   1
   12/29/1879   Monday    53   1
   12/31/1883   Monday    53   1
   12/30/1895   Monday    53   1
   ...
   					

Üste

Geçici çözümler

Function WOY (MyDate As Date) As Integer   ' Week Of Year
  WOY = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
  If WOY > 52 Then
    If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then WOY = 1
  End If
End Function
				

Üste

Adým adým örnek

1. Proje standart exe DOSYASý, Visual Basic'te baþlatýn. Varsayýlan olarak, Form1 oluþturulur.
2. Proje menüsünden, yeni bir modül ekleyin ve aþaðýdaki kodu yapýþtýrýn:

   Option Explicit
   
   Function WeekNumber(InDate As Date) As Integer
     Dim DayNo As Integer
     Dim StartDays As Integer
     Dim StopDays As Integer
     Dim StartDay As Integer
     Dim StopDay As Integer
     Dim VNumber As Integer
     Dim ThurFlag As Boolean
   
     DayNo = Days(InDate)
     StartDay = Weekday(DateSerial(Year(InDate), 1, 1)) - 1
     StopDay = Weekday(DateSerial(Year(InDate), 12, 31)) - 1
     ' Number of days belonging to first calendar week
     StartDays = 7 - (StartDay - 1)
     ' Number of days belonging to last calendar week
     StopDays = 7 - (StopDay - 1)
     ' Test to see if the year will have 53 weeks or not
     If StartDay = 4 Or StopDay = 4 Then ThurFlag = True Else ThurFlag = False
     VNumber = (DayNo - StartDays - 4) / 7
     ' If first week has 4 or more days, it will be calendar week 1
     ' If first week has less than 4 days, it will belong to last year's
     ' last calendar week
     If StartDays >= 4 Then 
        WeekNumber = Fix(VNumber) + 2 
     Else 
        WeekNumber = Fix(VNumber) + 1
     End If
     ' Handle years whose last days will belong to coming year's first 
     ' calendar week
     If WeekNumber > 52 And ThurFlag = False Then WeekNumber = 1
     ' Handle years whose first days will belong to the last year's 
     ' last calendar week
     If WeekNumber = 0 Then
        WeekNumber = WeekNumber(DateSerial(Year(InDate) - 1, 12, 31))
     End If
   End Function
   
   Function Days(DayNo As Date) As Integer
     Days = DayNo - DateSerial(Year(DayNo), 1, 0)
   End Function
   					

3. Bir KomutDüðmesi Form1'e ekleyin.
4. Aþaðýdaki kodu Form1 kodu penceresine yapýþtýrýn:

   Private Sub Command1_Click()
      Dim DateValue As Date, i As Integer
      
      Debug.Print "   WeekNumber function:"
      DateValue = #12/27/2003#
      For i = 1 To 4   ' examine the last 4 days of the year
          DateValue = DateAdd("d", 1, DateValue)
          Debug.Print "Date: " & DateValue & "   Day: " & _
             Format(DateValue, "ddd") & "   Week: " & WeekNumber(DateValue)
      Next i
   End Sub
   					

5. CTRL tuþunu basýlý tutun ve bir komut penceresi açmak için G tuþuna basýn.
6. Projeyi çalýþtýrýn ve komut penceresinde aþaðýdaki sonuçlarý görmek için Command1 týklatýn:

      WeekNumber function:
   Date: 12/28/03   Day: Sun   Week: 52
   Date: 12/29/03   Day: Mon   Week: 1
   Date: 12/30/03   Day: Tue   Week: 1
   Date: 12/31/03   Day: Wed   Week: 1
   					

   Not, Pazartesi günleri 1, olmasý gereken gibi olarak kabul edilir.

Üste