Problemer med år 2040 i UNIX stamps

Jeg bruger nedenstående 2 funktioner til at konvertere en date til et UNIX stamp og ligeledes til at konvertere et UNIX stamp til en normal dato.

Funktionerne fungerer perfekt - men men men, hvis jeg bevæger mig ind i år 2040 fejler funktionerne og jeg får et helt forkert output. Hvad går der galt - har nedenstående funktioner et problem specielt i forhold til år 2040 ?


function udate(oldDate)
' converts date to integer - unix time stamp
  udate = datediff("s", "01-01-1970 00:00:00", oldDate)
end function

function unudate(intTimeStamp)
' converts integer to date - unix time stamp
  unudate = dateadd("s", intTimeStamp, "01-01-1970 00:00:00")
end function


EKSEMPEL:

01-01-2004 00:00:00 - <%=udate("01-01-2004 00:00:00")%><br>
Konverter tilbage: <%=unudate(udate("01-01-2004 00:00:00"))%>

<br><br>

01-01-2040 00:00:00 - <%=udate("01-01-2040 00:00:00")%><br>
Konverter tilbage: <%=unudate(udate("01-01-2040 00:00:00"))%>