hej. Umiałby ktoś przegryść to na Delphi??? (Label:=$Roznica)
(SCRIPT LANGUAGE="JavaScript")
function Odlicz() {
Now=new Date();
Month=new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
Data=document.Baner.Data.value;
if (!(Data.charAt(2)=="/" && Data.charAt(5)=="/" && Data.length==10)) alert("Podałeś nieprawidłowy format daty.")
else {
Teraz=Month[Now.getMonth()]+" "+Now.getDate()+", "+Now.getYear();
Dzien=Data.substring(0,2);
Ms=Data.substring(3,5);
Rok=Data.substring(6,10);
if (document.layers) Kiedys=Month[Ms-1]+" "+Dzien+", "+(1+Rok.substring(2,4));
else Kiedys=Month[Ms-1]+" "+Dzien+", "+Rok;
Roznica=Math.abs(Math.round((Date.parse(Teraz)-Date.parse(Kiedys))/(10006060*24)));
if (Roznica==0) alert("Przecież to dzisiaj!!!");
else alert("Różnica pomiędzy podaną datą,na dniem dzisiejszym wynosi "+Roznica+" dni");
}
}
(/SCRIPT)
(FORM NAME=Baner)
(INPUT TYPE=Text VALUE="20/04/2000" SIZE=10 NAME="Data")
(INPUT TYPE=Button VALUE="Odlicz" onClick="Odlicz()")
(FORM)