find mandage i 2005

Det er fredage jeg er udeefter, og ikke som der står i overskriften :-)

Kunne sikkert gøres pænere......

Sub FindFriday()
Dim Date1 As Date, Date2 As Date, i As Integer, j As Integer
Dim StartYear As Integer
StartYear = 2005
For i = 1 To 12
  Date1 = DateSerial(StartYear, i, 1)
  For j = 0 To 6
    Date2 = Date1 + j
    If WeekDay(Date2) = 5 Then
      Debug.Print Date2
      Exit For
    End If
  Next j
Next i

End Sub

super.
Han du også løse den i vb.net ?

Nope - arbejder jeg desværre ikke med. (Men nu ved du at det er en "Weekday" funktion du skal lede efter...)

OK, men mange tak for hjælpen......