antal dagar till...

Jag har ett litet ASP-script som jag behöver konvertera och använda i ett CGI-script. Hur gör man?

<%
dim datum
datum = DateDiff("d",Date,"2002-07-26")
%>
<%=datum%> dagar till.......

Tacksam för hjälp :D

Celia

Följande borde funka:

use Time::Local;

my $days = int((timelocal(0,0,0,26,6,2002) - time) / 86400) + 1;

print <<_HTML_;
Content-type: text/html

$days dagar till ...
_HTML_

Avrundningsalgoritmen är lite "rå", så det kommer inte fungera när dagen D är här. Månaderna börjar räknas från 0, så det blir alltså 6 i stället för 7.