Codigos fuentes - vbscript - Fecha y hora - Almanaque HTML (en vbscript)

MYGNET: http://www.mygnet.net/index.php [Imprimir | Cerrar vista de impresión]
Inicio | Códigos | Vbscript | | Almanaque html en vbscript
Almanaque HTML (en vbscript)
Publicado el Lunes 12 de septiembre de 2005 a las 14:11:26 por Yaguá
Lecturas
Nombre: Almanaque HTML (en vbscript)
Descargar
Descripción:
Este es un almanaque hecho en HTML con vbscrip que yo tengo en mi escritorio. El archivo de descarga hay una ayuda para instalarlo.
URL: http://www.mygnet.net/codigos/vbscript/fecha_y_hora/almanaque_html_en_vbscript.885
Código Fuente:
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Almanaque - San Antonio Software</TITLE>
<STYLE>
.san-antonio
{
    COLOR: #009900;
    FILTER: shadow(Color=#a9a9a9, direction=45);
    FONT-FAMILY: 'Lucida Handwriting';
    FONT-WEIGHT: 900;
    FONT-SIZE: 26pt;
    LETTER-SPACING: -3pt;
    TEXT-TRANSFORM: capitalize;
    HEIGHT: 11mm;
    WIDTH:65mm;
    TEXT-ALIGN: center
}
.soft
{
    COLOR: red;
    FILTER: shadow(Color=#a9a9a9, direction=45);
    FONT-SIZE:26pt;
    FONT-WEIGHT: bold;
    LETTER-SPACING: 10pt;
    HEIGHT: 11mm;
    WIDTH:65mm;
    TEXT-ALIGN: center
}
.direccion
{
    COLOR: blue;
    FONT-FAMILY: Arial;
    FONT-SIZE: 9pt;
    FONT-WEIGHT: 500;
    TEXT-ALIGN: center
}
.web
{
    COLOR: red;
    FONT-FAMILY: Arial;
    FONT-SIZE: 20pt;
    FONT-WEIGHT: bolder;
    TEXT-ALIGN: center;
    TEXT-DECORATION: none
}
.marquesina
{
    COLOR: #009900;
    FILTER: shadow(Color=white, direction=45);
    FONT-FAMILY: 'Arial';
    FONT-WEIGHT: 900;
    FONT-SIZE: 14pt;
    WIDTH:280
}
TABLE.menu
{
    BACKGROUND-COLOR: pink;
    BORDER-BOTTOM: lightpink thin inset;
    BORDER-LEFT: lightpink thin;
    BORDER-RIGHT: lightpink thin inset;
    BORDER-TOP: lightpink thin;
    COLOR: Salmon ;
    FONT-FAMILY: Arial;
    FONT-SIZE: 9pt;
    POSITION: absolute;
    VISIBILITY: hidden
}
SPAN.menu
{
    BACKGROUND-COLOR: lightpink;
    COLOR: red;
    FONT-FAMILY: Arial;
    FONT-SIZE: 10pt;
    POSITION: relative;
    TEXT-TRANSFORM: capitalize;
    WIDTH: 100%
}
DIV.menu
{
    CURSOR: hand;
    LEFT: 2pt;
    POSITION: absolute;
    WIDTH: 100%;
    Z-INDEX: 10
}
 
</STYLE>
 
<SCRIPT LANGUAGE=VBScript id=menu>
'Funcion para ocultar los menú cuando el mouse los abandona
Sub ocultarMenu(menuAOcultar)
 
	document.all(menuAOcultar).style.visibility = "hidden"
 
End Sub
 
'Función que muestra los menús cuando el mouse está encima de ellos
Sub mostrarMenu(menuAMostrar)
 
	document.all(menuAMostrar).style.visibility = "visible"
 
End Sub
 
'Función que subraya el menú sobre el que se encuentra el cursor
Sub subrayar(objeto)
 
	document.all(objeto).style.textDecoration = "underline"
 
End Sub
 
Sub nosubrayar(objeto)
 
	document.all(objeto).style.textDecoration = "none"
 
End Sub
 
</SCRIPT>
 
</HEAD>
<BODY bgcolor=mistyrose>
 
<!-- Título ------------------------------------------------------------->
<A class=web HREF="http://www.sasoft.com.ar">www.sasoft.com.ar</A><BR>
 
<!--Marquesina ---------------------------------------------------------->
<MARQUEE onstart=cambiarTexto() id=pie 
          behavior=scroll 
          direction=left 
          loop=-1 
          scrollamount=1 
          scrolldelay=1 
            class=marquesina>
</MARQUEE>
 
<table><tr><td>
 
<!-- Nombre del mes actual ---------------------------------------------->
<table>
  <tr>
    <th width=150 align=left>
      <h2 style="color:blue"><span id=NombreMes></span>
    <th>
      <a name="imgAtras" style="font-size:14.0pt; CURSOR: hand"><<</a>
      &nbsp;<span id=AnnoActual style="color:blue; font-size=14.0pt"></span>&nbsp;
      <a name="imgAdelante" style="font-size:14.0pt; CURSOR: hand">>></a>
  </tr>
</table>
 
<!-- Menus de los meses ------------------------------------------------->
<div id=mnuMeses 
  onmouseover=mostrarMenu("mnuPOPMeses") 
  onmouseout=ocultarMenu("mnuPOPMeses") class=menu>
<span class=menu>Meses<br>
<TABLE id=mnuPOPMeses class=menu  align=left width=40%>
 
	<!-- Enero ------------------------------------------------------------>
	<TR>
		<TD id=mnuEne onmouseover=subrayar("mnuEne")
			onmouseout=nosubrayar("mnuEne")
			onclick=GenerarMes(1)>Enero</TD>
	</TR>
 
	<!-- Febrero ------------------------------------------------------------>
	<TR>
		<TD id=mnuFeb onmouseover=subrayar("mnuFeb")
			onmouseout=nosubrayar("mnuFeb")
			onclick=GenerarMes(2)>Febrero</TD>
	</TR>
 
	<!-- Marzo ------------------------------------------------------------>
	<TR>
		<TD id=mnuMar onmouseover=subrayar("mnuMar")
			onmouseout=nosubrayar("mnuMar")
			onclick=GenerarMes(3)>Marzo</TD>
	</TR>
 
	<!-- Abril ------------------------------------------------------------>
	<TR>
		<TD id=mnuAbr onmouseover=subrayar("mnuAbr")
			onmouseout=nosubrayar("mnuAbr")
			onclick=GenerarMes(4)>Abril</TD>
	</TR>
 
	<!-- Mayo ------------------------------------------------------------->
	<TR>
		<TD id=mnuMay onmouseover=subrayar("mnuMay")
			onmouseout=nosubrayar("mnuMay")
			onclick=GenerarMes(5)>Mayo</TD>
	</TR>
 
	<!-- Junio ------------------------------------------------------------>
	<TR>
		<TD id=mnuJun onmouseover=subrayar("mnuJun")
			onmouseout=nosubrayar("mnuJun")
			onclick=GenerarMes(6)>Junio</TD>
	</TR>
 
	<!-- Julio ------------------------------------------------------------>
	<TR>
		<TD id=mnuJul onmouseover=subrayar("mnuJul")
			onmouseout=nosubrayar("mnuJul")
			onclick=GenerarMes(7)>Julio</TD>
	</TR>
 
	<!-- Agosto ----------------------------------------------------------->
	<TR>
		<TD id=mnuAgo onmouseover=subrayar("mnuAgo")
			onmouseout=nosubrayar("mnuAgo")
			onclick=GenerarMes(8)>Agosto</TD>
	</TR>
 
	<!-- Setiembre -------------------------------------------------------->
	<TR>
		<TD id=mnuSet onmouseover=subrayar("mnuSet")
			onmouseout=nosubrayar("mnuSet")
			onclick=GenerarMes(9)>Setiembre</TD>
	</TR>
 
	<!-- Octubre------------------------------------------------------------>
	<TR>
		<TD id=mnuOct onmouseover=subrayar("mnuOct")
			onmouseout=nosubrayar("mnuOct")
			onclick=GenerarMes(10)>Octubre</TD>
	</TR>
 
	<!-- Noviembre --------------------------------------------------------->
	<TR>
		<TD id=mnuNov onmouseover=subrayar("mnuNov")
			onmouseout=nosubrayar("mnuNov")
			onclick=GenerarMes(11)>Noviembre</TD>
	</TR>
 
	<!-- Diciembre --------------------------------------------------------->
	<TR>
		<TD id=mnuDic onmouseover=subrayar("mnuDic")
			onmouseout=nosubrayar("mnuDic")
			onclick=GenerarMes(12)>Diciembre</TD>
	</TR>
 
</TABLE></span>
</div>
 
<!-- Hoja del almanaque ------------------------------------------------->
<p><div id=HojaMes></div>
 
</table>
 
-- Propaganda --------------------------------------------------------->
<p>
<A style="text-decoration:none; cursor: hand "HREF="http://www.sasoft.com.ar">
<SPAN class=san-antonio>San  Antonio</SPAN><BR>
<SPAN class=soft>Software</SPAN><BR></A>
<SPAN class=direccion>
  Laprida 1228 - 3200 Concordia - Entre Ríos<BR>
  ++54 345 421 4693
    <A HREF="mailto:mail@sasoft.com">mail@sasoft.com.ar</A><BR>
  <CENTER>REPUBLICA ARGENTINA</CENTER>
</SPAN>
</P>
 
<!--
********************************************************************************************
-->
<script language="VBSCRIPT">
 
dim MesActual
dim Cadena
dim Anno
dim i
dim strMarq
 
     MesActual=month(now)
     Anno=year(now)
     GenerarHoja MesActual,Anno
     i=0
 
sub cambiarTexto()
 
     if i=13 then
          i=1
     else
          i=i+1
     end if
 
     select case i
          case 1
               strMarq = "Software para Windows."
          case 2
               strMarq = "Bases de datos."
          case 3
               strMarq = "Aplicaciones cliente/servidor."
          case 4
               strMarq = "Planillas, "
          case 5
               strMarq = "complementos, "
          case 6     
               strMarq = "plantillas."
          case 7
               strMarq = "Trabaje menos... "
          case 8
               strMarq = "¡Automatice su trabajo!"
          case 9
               strMarq = "Si no tiene tiempo... "
          case 10
               strMarq = "¡Lo hacemos por usted!"
          case 11
               strMarq = "Se sorprenderá "
          case 12
               strMarq = "de que tan poca plata,... "
          case 13
               strMarq = "¡le rinda tanto!"
     end select
     pie.innerHTML=strMarq
end sub
 
sub EscribirMes(Mes)
dim capmes,restomes,cadmes
     cadmes=monthname(mes)
     capmes=Ucase(left(cadmes,1))
     if mes=9 then
        restomes=right(cadmes,len(cadmes)-1)
        restomes=left(restomes,1)
        restomes=restomes & right(cadmes,len(cadmes)-3)
     else
        restomes=right(cadmes,len(cadmes)-1)
     end if
     cadmes=capmes & restomes
     NombreMes.InnerHTML=CadMes
end sub
 
sub EscribirTitulosColumnas()
     Cadena= Cadena & "<Table Border=solid 2.25pt BorderColor=#FFCC00>"
     Cadena= Cadena & "<tr>" _
                    & "<th bgcolor=#FFCC00 border='solid' style='font-size:10.0pt; color:blue'>Sem.</th>" _
                    & "<th bgcolor=#FFCC00 border='solid' style='font-size:10.0pt'>Dom.</th>" _
                    & "<th bgcolor=#FFCC00 border='solid' style='font-size:10.0pt'>Lun.</th>" _
                    & "<th bgcolor=#FFCC00 border='solid' style='font-size:10.0pt'>Mar.</th>" _
                    & "<th bgcolor=#FFCC00 border='solid' style='font-size:10.0pt'>Mie.</th>" _
                    & "<th bgcolor=#FFCC00 border='solid' style='font-size:10.0pt'>Jue.</th>" _
                    & "<th bgcolor=#FFCC00 border='solid' style='font-size:10.0pt'>Vie.</th>" _
                    & "<th bgcolor=#FFCC00 border='solid' style='font-size:10.0pt'>Sab.</th>" _
		    & "</tr>"
end sub
 
sub GenerarHoja(Mes,Anno)
Dim miMes, Fecha, PrimerDiaSemana, i, miDia, Hoy
Dim CadSemana
    Cadena=""
    EscribirMes(Mes)
    AnnoActual.innerHTML=Anno
    EscribirTitulosColumnas
    Fecha = DateSerial(Anno, Mes, 1)
    PrimerDiaSemana = Weekday(Fecha, vbSunday)
    Hoy = Date
    Fecha=Fecha-PrimerDiaSemana
    Do
        CadSemana="<tr>"
        Sem = DatePart("ww", Fecha+6, vbSunday)
        CadSemana=CadSemana & "<td style='color:blue' align='center'>" & Sem & "</td>"
        For i = 0 To 6
            Fecha = Fecha + 1
            if month(Fecha)<>mes then
                 CadSemana=CadSemana & "<td> </td>"
            else
              If i = 0 Then
                If Fecha=Hoy Then
						      CadSemana = CadSemana & "<td bgcolor=#FF0000 style='color:#FFFFFF' align='center'><b>" & Day(Fecha) & "</b></td>"
					      Else
						      CadSemana = CadSemana & "<td style='color:#FF0000' align='center'><b>" & Day(Fecha) & "</b></td>"
					      End If	
              Else
                If Fecha=Hoy Then
						      CadSemana = CadSemana & "<td bgcolor=#FFCC00 STYLE='color=#FFFFFF' align='center'><b>" & Day(Fecha) & "</b></td>"
					      Else
						      CadSemana = CadSemana & "<td align='center'><b>" & Day(Fecha) & "</b></td>"
					      End If	
              End If
            end if
        Next
        CadSemana=CadSemana & "</tr>"
	Cadena=Cadena & CadSemana
        miMes = Month(Fecha)
    Loop until miMes <> Mes
    Cadena=Cadena & "</table>"
 
    HojaMes.innerHTML=Cadena
 
End sub
 
Function GenerarMes(MesNuevo)
   MesActual=MesNuevo
   GenerarHoja MesActual,Anno		
end Function
 
sub imgAtras_onclick()
   Anno=Anno-1
   GenerarHoja MesActual,Anno		
end sub
 
sub imgAdelante_onclick()
   anno=anno+1
   GenerarHoja MesActual,Anno		
end sub
 
</script>
 
</BODY>
</HTML>
Descargar
Agregar comentario
Ingreso
Últimos registrados
  dech
  nicofer
  poni123
  Asghold
  veronicahp
  Y0Taylor
  Yzomtin
  alannah
  ernestomix
  ronycg
¿Más sobre ti?
¿Cuantos años tienes?
¿Eres...?
Tu correo?
¿En que te desempeñas actualmente?
Saber más de ti nos ayudara a construir una comunidad más de acuerdo a tus necesidades.
Estadísticas
Seleccionar Navegadores
Donde no hay harina, todo es mohína.
( Refrán)

MyGnet © Agosto 2005 - Enero 2009, My Group Net - La comunidad de programación
usuario
contraseña