Script de Fecha en Visual Basic para Internet Explorer
Regreso a Guía de HTML
Este Script se utiliza para colocar la fecha actual en cualquier parte de la página. En el presente ejemplo se colocó dentro de una tabla centrada con ancho del 40%.
<center><table border=1 cellpadding=3 cellspacing=3 width=40%> <tr><td align=center> <B> <SCRIPT LANGUAGE="VBScript"> <!-- d=weekday(date) if d = 1 then today="Domingo" elseif d = 2 then today="Lunes" elseif d = 3 then today="Martes" elseif d = 4 then today="Miércoles" elseif d = 5 then today="Jueves" elseif d = 6 then today="Viernes" elseif d = 7 then today="Sábado" end if m=month(date) if m=1 then mon="Enero" elseif m=2 then mon="Febrero" elseif m=3 then mon="Marzo" elseif m=4 then mon="Abril" elseif m=5 then mon="Mayo" elseif m=6 then mon="Junio" elseif m=7 then mon="Julio" elseif m=8 then mon="Agosto" elseif m=9 then mon="Septiembre" elseif m=10 then mon="Octubre" elseif m=11 then mon="Noviembre" elseif m=12 then mon="Diciembre" end if Document.Write today & " " & day(now) & " de " & mon & "." --> </SCRIPT> </B> </td></tr></table></center>