<code>
IF right(Date,5) > rs("Manad") & "-" & rs("Dag") Then
Ar=left(Date,4)
Else
Ar=left(Date,4)+1
End if
</code>

Vad är det för fel på denna

Det jag vill är att när dagens datum har gått förbi ex 2003-10-10 så ska den ändras till 2004-10-10

Jag har Månad och Dag i en databas och använder en loop

Har en varial som heter Ar som håller reda på året och ska lägga till om det har gått över men jag får det inte att fungerar alls

left(Date,4) är en sträng - alltså blir Ar en sträng.
Ex: om left(Date,4)="2001" så blir left(Date,4) = "20011"

Gör så här:

Ar=cint(left(Date,4)) + 1

alt

Ar=cstr(cint(left(Date,4))+1)
om du vill att Ar skall vara en sträng

<code>
Dim Ar
Ar = Year(Date)
If Date < DateSerail(Ar, rs("Manad"), rs("Dag")) Then
Ar = Ar + 1
End if
</code>

Får varken båda att fungerar
här är det http://www.tspse.net/cj/countdown/fodelsedagar.asp?avd=Pellesoft

Den läggar inte till så det blir år 2004 för dom som redan har fyllt i år.

Har testat både
För näraro år är det denna
<code>
IF right(Date,5) > rs("Manad") & "-" & rs("Dag") Then
Ar=cint(left(Date,4))+1
Else
Ar=cint(left(Date,4))
End if
</code>