opdater dato med skudår ?

brug dateadd i stedet - i dateadd kan du lægge et år til direkte; http://www.functionx.com/vb/Lesson09.htm

tak for hjælpen, jeg kigger på det !!

men denne funktion kan du tjække om det er skudår


Private Sub Form_Load()
  Me.Caption = IsShotYear("1-1-2004")
End Sub

Public Function IsShotYear(ByVal varDato As Variant) As Boolean
Dim intYear As Integer
  intYear = Year(CDate(varDato))
  If intYear Mod 4 = 0 Then IsShotYear = True
  If intYear Mod 100 = 0 Then IsShotYear = False
  If intYear Mod 400 = 0 Then IsShotYear = True
End Function

If intYear Mod 1000 = 0 Then IsShotYear = True

skal den ikke også med ?

nææ, jeg huskede forkert, sorry.

Tak

hvad kom så til at virke?

Jeg brugte dateadd(yyyy,1,Cells(i,1))
Det virker fint.

hvis er svar har været korrekt hvorfor beholder du så point selv?

Jeg kunne ikke se at nogen af jer havde afgivet et svar, kun kommentare, men jeg opretter straks et spørgsmål med titel - "Manglende point", der kan du gå ind og få dine point !!