: 17 jul 2008, 09:25
Den lidt hurtigere og kortere version:
Til dem som morer sig med den slags :P
Kode: Vælg alt
Sub dag_short()
Dim i As Long
Dim AntalS As Long
Dim AntalSS As Long
For i = 1 To 36525
If DatePart("w", CDate(366 + i), vbMonday) = 7 Then
AntalS = AntalS + 1
End If
If DatePart("w", CDate(366 + i), vbMonday) = 7 And Format(CDate(366 + i), "d") = 1 Then
AntalSS = AntalSS + 1
End If
Next i
MsgBox "Der er " & AntalS & " søndage i det 19. århundrede" & Chr(13) & "Der er " & AntalSS & " søndage på den 1. i måned i det 19. århundrede"
End Sub