1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| <%@LANGUAGE="JAVASCRIPT"%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function MonFormatDateTime(maDate, monFormat)
MonFormatDateTime = FormatDateTime(DateJavaToSQL(maDate), monFormat )
End Function
</SCRIPT>
<%
function DateDelphiToJava(dateaconvertir)
{
return ( new Date( (dateaconvertir-25569)*(1000*3600*24)+(-120*60*1000) ) );
}
function DateJavaToSQL(dateaconvertir)
{
return (dateaconvertir.getDate()+'/'+(dateaconvertir.getMonth()+1)+'/'+dateaconvertir.getYear()+" "+dateaconvertir.getHours()+":"+dateaconvertir.getMinutes()+":00");
}
%>
<%
var debutdelphi = 37909;
%>
<html>
<head>
</head>
<body>
<% for(var i=0;i<15;i++){ %>
<%=MonFormatDateTime(DateDelphiToJava(debutdelphi+i),1)%><br>
<% } %>
</body>
</html> |