Foros del Web » Programando para Internet » ASP Clásico »

Colorear días con actividades en un calendario.

Estas en el tema de Colorear días con actividades en un calendario. en el foro de ASP Clásico en Foros del Web. Hola a todos. Tengo un calendario hecho en ASP donde me colorea el día en el que estamos, y donde podemos pinchar los días para ...
  #1 (permalink)  
Antiguo 22/03/2010, 11:04
 
Fecha de Ingreso: febrero-2004
Mensajes: 85
Antigüedad: 15 años, 8 meses
Puntos: 0
Colorear días con actividades en un calendario.

Hola a todos. Tengo un calendario hecho en ASP donde me colorea el día en el que estamos, y donde podemos pinchar los días para abrir una ventana nueva donde muestro actividades que hay ese día. Estas actividades las tengo en una base de datos access.

Lo que estoy intentando hacer pero no soy capaz es de marcar los días (el color de fondo), en rojo por ejemplo, donde hay actividades, y donde no hay, que no salga coloreado.

Os pongo el código:


Cita:
<%
Dim giorno,mese,anno,tmese,day1,primog, mese2, anno2, dayoff,ultimog,x,giorno1

giorno = request("giorno")
If giorno = "" then
giorno = day(now())
End If

mese = request("mese")
If mese = "" then
mese = month(now())
End If
anno = request("anno")
If anno = "" then
anno = year(now())
End If
If mese = 12 then
mese2 = 1
anno2 = anno+1
else
mese2 = mese+1
anno2 = anno
End If

day1 = Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno))
dayoff = Cdate("1"+"/"+Cstr(mese2)+"/"+Cstr(anno2))-1
primog = Weekday(Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno)))-1
ultimog = Weekday(dayoff)-1

If ultimog = 0 then
ultimog = 7
End If

If primog = 0 then
primog = 7
End If
Select Case mese
case 1
tmese = "Enero"
case 2
tmese = "Febrero"
case 3
tmese = "Marzo"
case 4
tmese = "Abril"
case 5
tmese = "Mayo"
case 6
tmese = "Junio"
case 7
tmese = "Julio"
case 8
tmese = "Agosto"
case 9
tmese = "Septiembre"
case 10
tmese = "Octubre"
case 11
tmese = "Noviembre"
case 12
tmese = "Diciembre"
End Select
x=1
%>


<HTML>
<HEAD>

</HEAD>

<BODY>
<table width="190" border="0" cellpadding="0" cellspacing="0" bordercolor="#50A9D3">
<tr bgcolor="#3399CC">
<td bgcolor="#3399CC">
<div align="center"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif"><strong><%=anno%></strong></font> </div>
</td>
</tr>
</table>
<table width="190" border="0" cellpadding="0" cellspacing="0" bordercolor="#50A9D3">
<tr bgcolor="#3399CC">
<td width="20" bgcolor="#297BA3"><div align="center"><a href="eventos_calendario.asp?mese=<%if mese > 1 then response.write mese-1 else response.write 12 End If%>&anno=<%if mese > 1 then response.write anno else response.write anno-1 End If%>"><img src="imagenes/eventos_ant.png" width="12" height="11" border="0"></a></div></td>
<td bgcolor="#2F8CB9"><div align="center"><font color="#FFFFFF"><strong><%=tmese%></strong></font></div></td>
<td width="20" bgcolor="#297BA3"><div align="center"><a href="eventos_calendario.asp?mese=<%if mese < 12 then response.write mese+1 else response.write 1 End If%>&anno=<%if mese < 12 then response.write anno else response.write anno+1 End If%>"><img src="imagenes/eventos_sig.png" width="12" height="11" border="0"></a></div></td>
</tr>
</table>
</font>
<table width="190" border="0" cellpadding="0" cellspacing="0" bordercolor="#50A9D3">
<tr bgcolor="#3399CC">
<td bgcolor="#FFFFFF">
<table width="190" border="1" cellpadding="0" cellspacing="0">
<tr align="center">
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>L</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>M</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>M</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>J</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong>V</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong> S</strong></font></td>
<td bgcolor="#333333"><font color="#FFFFFF" size="2"><strong> D </strong></font></td>
</tr>
<tr>
<%
giorno1 = (day1-primog+x)
Do While giorno1 <= (dayoff+7-ultimog)
%>
<td <%If day(day1-primog+x)=day(now()) and month(day1-primog+x)=month(now()) then response.write "bgcolor=""#D6EAF5""" End If%><%If day(day1-primog+x)="25" and month(day1-primog+x)="3" then response.write "bgcolor=""#3399CC""" End If%>>

<div align="center"> <font color ="<%if giorno1 >= day1 and giorno1 <= dayoff then
response.write "#000000" ' Dias del mes
Else
response.write "#666666"' Dias del otro mes
End If%>">
<%if giorno1 >= day1 and giorno1 <= dayoff then%>
<a href="eventos_info.asp?dia=<%=day(day1-primog+x)%>&mes=<%=month(day1-primog+x)%>&ano=<%=year(day1-primog+x)%>" target="eventos_info"><font face="Arial, Helvetica, sans-serif" size="2"><b><%=day(day1-primog+x)%></b></font></a>
<%else%>
<%=day(day1-primog+x)%>
<%End If%>
</font></div>
</td>
<%If weekday(day1 - primog + x - 1) = 7 Then
response.write "</tr>"
End If%>
<%
giorno1 = giorno1 + 1
x=x+1
loop
%>


</table>
</td>
</tr>
</table>
</BODY>
</HTML>

A ver si me podeis ayudar.


Un saludo.
  #2 (permalink)  
Antiguo 22/03/2010, 11:56
 
Fecha de Ingreso: febrero-2008
Ubicación: Buenos Aires
Mensajes: 58
Antigüedad: 11 años, 8 meses
Puntos: 0
Respuesta: Colorear días con actividades en un calendario.

luismi78,

Yo utilizo estilos, hago el IF pero segun lo que sea muestro un estilo u otro para mostrar el color. Tengo 2 tipos de actividades: una en color azul con un estilo y otra con color amarillo con otro estilo.

A vos no te está coloreando nada? o solo de un color?


Consejo: quizás fue cuando lo copiaste y pegaste en el post, pero sino, te recomiendo formatear el código, lo vas a entender mas facil y va a ser mas ordenado para buscar cosas.


Cita:
<td <%
If day(day1-primog+x)=day(now()) and month(day1-primog+x)=month(now()) then
response.write "bgcolor=""#D6EAF5"""
End If %>
<% If day(day1-primog+x)="25" and month(day1-primog+x)="3" then
response.write "bgcolor=""#3399CC"""
End If %>>

<div align="center">
<font color ="<%
if giorno1 >= day1 and giorno1 <= dayoff then
response.write "#000000" ' Dias del mes
Else
response.write "#666666"' Dias del otro mes
End If %>">
<% if giorno1 >= day1 and giorno1 <= dayoff then %>
<a href="eventos_info.asp?dia=<%=day(day1-primog+x)%>&mes=<%=month(day1-primog+x)%>&ano=<%=year(day1-primog+x)%>" target="eventos_info">
<font face="Arial, Helvetica, sans-serif" size="2">
<b><%=day(day1-primog+x)%></b></font></a>
<% else %>
<%=day(day1-primog+x)%>
<%End If%>
</font></div>
</td>
Viendo el código de esta manera nos encontramos que cuando pones el response.write para mostrar el bgcolor usas doble comillas, proba con comillas simples, ej: response.write "bgcolor='#3399CC'"

Fijate como te funciona eso y nos contas!!

Saludos!
  #3 (permalink)  
Antiguo 22/03/2010, 12:13
 
Fecha de Ingreso: febrero-2004
Mensajes: 85
Antigüedad: 15 años, 8 meses
Puntos: 0
Respuesta: Colorear días con actividades en un calendario.

Muchas gracias yakare. Voy a probar lo que me comentas y os cuento como me ha ido .

Un saludo.
  #4 (permalink)  
Antiguo 23/03/2010, 02:41
 
Fecha de Ingreso: febrero-2004
Mensajes: 85
Antigüedad: 15 años, 8 meses
Puntos: 0
Respuesta: Colorear días con actividades en un calendario.

Hola de nuevo. Leyendo más detenidamente tu respuesta me he dado cuenta que no es exactamente lo que necesito. El problema no es que no sepa colorear las celdas, si no que no consigo resaltar solo los días en el calendario en los que hay alguna actividad.. Por ejemplo, si en la base de datos tengo que el dia 26 de marzo hay una actividad, que ese día me salga resaltado en el calendario.

Espero haberlo explicado bien
  #5 (permalink)  
Antiguo 23/03/2010, 07:12
 
Fecha de Ingreso: febrero-2008
Ubicación: Buenos Aires
Mensajes: 58
Antigüedad: 11 años, 8 meses
Puntos: 0
Respuesta: Colorear días con actividades en un calendario.

Cuando comienza el Do While hay un pequeño problema. Tenes 2 if dentro de la celda que le indican 2 bgcolor distintos...

Hacé 2 cosas, saca el if de dentro de la celda y usa variables para guardar el color del background.

creaste una variable giorno1 y sin embargo estas poniendo en todos lados [day1-primog+x]

yo te separe el codigo de la celda, lo que deberias ver es reacomodar los 2 if que tenes para poner en una variable el color que deberia salir en pantalla.
Código:
 giorno1 = day1-primog+x
Do While giorno1 <= (dayoff+7-ultimog)
If day(giorno1)=day(now()) and month(giorno1)=month(now()) then 
  response.write "bgcolor=""#D6EAF5""" 
 End If
 If day(giorno1)="25" and month(giorno1)="3" then 
  response.write """#3399CC""" 
 End If %>
<td bgcolor="<% =color %>">
Espero haber ayudado! Saludos!
  #6 (permalink)  
Antiguo 23/03/2010, 09:04
 
Fecha de Ingreso: febrero-2004
Mensajes: 85
Antigüedad: 15 años, 8 meses
Puntos: 0
Respuesta: Colorear días con actividades en un calendario.

Muchas gracias de nuevo yakare. Voy a probar lo que me comentas.

Un saludo.
  #7 (permalink)  
Antiguo 24/03/2010, 07:24
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 12 años, 9 meses
Puntos: 126
Respuesta: Colorear días con actividades en un calendario.

Hola

Y ya van dos veces hoy

Código ASP:
Ver original
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
  2. <% Option Explicit %>
  3. <%
  4. Dim oConn, SQL, rs, registros, j
  5. Dim Fecha
  6. Fecha = 0
  7. 'conexion
  8. ' ==== campos ===
  9. 'Fecha = 23/04/2010, 24/05/2010, .....
  10. 'AnyoMes = 20104, 20105, ....
  11. ' ============
  12.  
  13. SQL ="SELECT Fecha, AnyoMes FROM Calendario WHERE AnyoMes >= "&CInt(Year(Date)) & CInt(Month(Date))&""
  14. set rs = oConn.Execute(SQL)
  15. registros = rs.getrows()
  16. rs.Close
  17. Set rs = Nothing
  18. oConn.Close
  19. Set oConn = Nothing
  20.  
  21. Dim arreglo()
  22. Redim arreglo(UBound(registros,2))
  23. For j = 0 to UBound(registros,2)
  24. arreglo(j) = registros(Fecha,j)
  25. Next 'j
  26. %>
  27. <html>
  28. <head>
  29. <title>Horarios</title>
  30. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  31. <style type="text/css">
  32. .calFondoCalendario {background-color:#EEEEEE;border: 1px solid #C9C9C9;border-width: 1px 1px 1px 1px;}
  33. #calFondoMes {background-color:#C9C9C9;font-family:Arial, Helvetica, sans-serif; font-size:11px;font-weight:bold;text-align:center;}
  34. .calFondoDias, .calFondoSemanas, .calFondoNumeroSemanas {background-color:#C9C9C9;font-family:Arial, Helvetica, sans-serif; font-size:9px; font-weight:900; }
  35. #calDias, #calFinSemana {font-family:Arial, Helvetica, sans-serif; font-size:11px; font-weight:700;}
  36. #calDias a:link, #calDias a:visited {color:#333333;text-decoration:none;}
  37. #calDias a:hover, #calDias a:active {color:#333333;text-decoration:none;}
  38. #calDiasMarcado, #calFinSemanaMarcado {background-color:#C9C9C9;font-family:Arial, Helvetica, sans-serif; font-size:11px; font-weight:700;}
  39. #calDiasMarcado a:link, #calDiasMarcado a:visited {color:#FFFFFF;text-decoration:none;}
  40. #calDiasMarcado a:hover, #calDiasMarcado a:active {color:#FFFFFF;text-decoration:none;}
  41. #calFinSemanaMarcado a:link, #calFinSemanaMarcado a:visited {color:#FF0000;text-decoration:none;}
  42. #calFinSemanaMarcado a:hover, #calFinSemanaMarcado a:active {color:#FF0000;text-decoration:none;}
  43. #calFinSemana a:link, #calFinSemana a:visited {color:#FF0000;text-decoration:none;}
  44. #calFinSemana a:hover, #calFinSemana a:active {color:#FF0000;text-decoration:none;}
  45. .calDiaVacio {background-color:#FFFFFF;color:#C9C9C9;font-family:Arial, Helvetica, sans-serif; font-size:11px; font-weight:700;text-align:center;}
  46. #paginador {background-color:#EEEEEE;height:30px;padding-top:7px;}
  47. #paginador a:link, #paginador a:visited{background-color:#A4A4A4;color:#FFFFFF;font-family:Arial, Helvetica, sans-serif; font-size:9px; font-weight:900;text-decoration:none;padding:3px;border: 1px solid #C9C9C9;border-width: 1px 1px 1px 1px;}
  48. #paginador a:hover, #paginador a:active{background-color:#EEEEEE;color:#333333;font-family:Arial, Helvetica, sans-serif; font-size:9px; font-weight:900;text-decoration:none;padding:3pxborder: 1px solid #C9C9C9;border-width: 1px 1px 1px 1px;}
  49. </style>
  50. </head>
  51. <body bgcolor="#FFFFFF">
  52. <%
  53. Const URL = "OtraPagina.asp"
  54. Dim Mes, ElMes
  55. Dim Anyo, ElAnyo
  56. Dim FechaInicio, FechaActual, FechaFinal
  57. Dim DiaActual
  58. Dim i, SumarMesQuery, MesAnyo
  59. Dim PrimerDiaMes
  60. Dim Semana, nSemanas01, nSemanas31
  61. Dim DiasMesSiguiente, DiasMesAnterior
  62. Dim Columna, Fila
  63. Dim UltimoDiaMesAnterior
  64. Dim EstamosEnEl, cad
  65. Dim unmesmenos, unmesmas, menos, mas, mesmenos, mesmas, anyomas, anyomenos
  66.  
  67. ' Si viene vacía o no es numerica
  68. If Request.Querystring("mes") = "" or Not IsNumeric(Request.Querystring("mes")) then
  69. Mes = CInt(Month(Date))
  70. Else
  71. Mes = CInt(Request.Querystring("mes"))
  72. End If
  73. If Request.Querystring("anyo") = "" or Not IsNumeric(Request.Querystring("anyo")) then
  74. Anyo = CInt(Year(Date))
  75. Else
  76. Anyo = CInt(Request.Querystring("anyo"))
  77. End If
  78. FechaInicio = CDate("1/" & Month(Date) & "/" & Year(Date))
  79. FechaActual = CDate("1/" & Mes & "/" & Anyo)
  80. FechaFinal = DateAdd("m", 6, FechaInicio)
  81. %>
  82. <div style="background-color:#EEEEEE;padding-top:20px;border: 1px solid #C9C9C9;border-width: 1px 1px 1px 1px;">
  83. <!-- Empezamos a montar el Calendario -->
  84. <div id="ContenedorCalendario">
  85. <table border="0" cellspacing="0px" cellpadding="0px" width="85%" align="center">
  86. <tr>
  87. <%
  88. IF FechaActual > FechaFinal then ' Aún no ha progresado un año (empezó 01/03/2010 termina 01/09/2010)
  89. %>
  90. <td id="calFondoMes">No puede hacer una reserva con mas de 6 meses de antelación</td></tr></table>
  91. <div id="paginador" align="center">
  92. <a href="<%=Request.Servervariables("SCRIPT_NAME")%>?mes=<%=Month(FechaFinal)%>&anyo=<%=Year(FechaFinal)%>">Atr&aacute;s</a>
  93. </div>
  94. <%
  95. ELSEIF FechaActual < FechaInicio then ' Se ha manipulado las var con una fecha menor a la de inicio (empezó 01/03/2010 quiere imprimir 01/02/2010)
  96. %>
  97. <td id="calFondoMes">No puede hacer una reserva con una fecha ya pasada</td></tr></table>
  98. <div id="paginador" align="center">
  99. <a href="<%=Request.Servervariables("SCRIPT_NAME")%>?mes=<%=Month(Date)%>&anyo=<%=Year(Date)%>">Atr&aacute;s</a>
  100. </div>
  101. <%
  102. ELSE
  103. For i = 0 to 2
  104. SumarMesQuery = DateAdd("m", i, DateSerial(Anyo, Mes, 1))
  105. MesAnyo = Split(SumarMesQuery,"/")
  106. ElMes = MesAnyo(1)
  107. ElAnyo = MesAnyo(2)
  108. %>
  109. <td>
  110. <table border="0" cellspacing="1px" cellpadding="3px" width="200px" align="center" class="calFondoCalendario">
  111. <tr align="center">
  112. <td colspan="8">
  113. <div id="calFondoMes">
  114. <%=Nombre_Mes(ElMes)%>,&nbsp;<%=ElAnyo%>
  115. </div>
  116. <%
  117. Call Dias()
  118. DiaActual = 1
  119. PrimerDiaMes = DatePart("w", DateAdd("d", -1, DateSerial(ElAnyo, ElMes, 1)), vbMonday)
  120. Semana = DatePart("ww", CDate("01/" & ElMes & "/" & ElAnyo), vbMonday, vbFirstFourDays) ' Número de la semana del mes actual
  121. nSemanas31 = DatePart("ww", CDate("12/31/" & ElAnyo), vbMonday, vbFirstFourDays) 'Número de semanas del año
  122. nSemanas01 = DatePart("ww", CDate("01/01/" & ElAnyo), vbMonday, vbFirstFourDays) 'Número de semana de la primera semana del año siguiente
  123. DiasMesSiguiente = 0
  124. For Fila = 0 to 5
  125. %>
  126. <tr height="20px">
  127. <%
  128. ' ============== Número de la Semana ==============
  129. IF Fila = 0 then
  130. If Semana = nSemanas01 then  'La última semana del año anterior comprende algún día del siguiente año
  131. %>
  132. <td class="calFondoNumeroSemanas"><%=Semana%></td>
  133. <%
  134. Else
  135. %>
  136. <td class="calFondoNumeroSemanas"><%if Len(Semana) = 1 then Response.Write "0"&Semana else Response.Write Semana end if%></td>
  137. <%
  138. End If
  139. ELSE
  140. If Semana >= nSemanas31 then 'Primera semana del año
  141. Semana = 1
  142. Else
  143. Semana = Semana +1
  144. End If
  145. %>
  146. <td class="calFondoNumeroSemanas"><%if Len(Semana) = 1 then Response.Write "0"&Semana else Response.Write Semana end if%></td>
  147. <%
  148. END IF
  149. ' ============== Fin  Número de la Semana ==============
  150. For Columna = 0 to 6
  151. IF Fila = 0 and Columna < PrimerDiaMes then ' No hay día
  152. UltimoDiaMesAnterior = UltimoDia((ElMes-1),ElAnyo)
  153. DiasMesAnterior = ((UltimoDiaMesAnterior - (PrimerDiaMes-1)) + Columna)
  154. %>
  155. <td class="calDiaVacio"><%=DiasMesAnterior%></td>
  156. <%
  157. ELSEIF DiaActual > UltimoDia(ElMes, ElAnyo) then ' No hay día
  158. DiasMesSiguiente = DiasMesSiguiente +1
  159. %>
  160. <td class="calDiaVacio"><%=DiasMesSiguiente%></td>
  161. <%
  162. ELSE
  163. EstamosEnEl = CDate(DiaActual & "/" & ElMes & "/" & ElAnyo)
  164. cad = EstamosEnEl & " = " & Join(arreglo, " or " & EstamosEnEl & " = ")
  165. %>
  166. <td bgcolor="#FFFFFF" align="center">
  167. <%
  168. If Columna = 5 or Columna = 6 then ' es fin de semana
  169. if eval(cad) Then ' lo marcamos con reservado
  170. %>
  171. <div id="calFinSemanaMarcado">
  172. <a href="<%=URL%>?day=<%=DiaActual%>&month=<%=ElMes%>&year=<%=ElAnyo%>"><%=DiaActual%></a>
  173. </div>
  174. <%
  175. else
  176. %>
  177. <div id="calFinSemana">
  178. <a href="<%=URL%>?day=<%=DiaActual%>&month=<%=ElMes%>&year=<%=ElAnyo%>"><%=DiaActual%></a>
  179. </div>
  180. <%
  181. end if
  182. Else
  183. if eval(cad) Then ' lo marcamos como reservado
  184. %>
  185. <div id="calDiasMarcado">
  186. <a href="<%=URL%>?day=<%=DiaActual%>&month=<%=ElMes%>&year=<%=ElAnyo%>"><%=DiaActual%></a>
  187. </div>
  188. <%
  189. else
  190. %>
  191. <div id="calDias">
  192. <a href="<%=URL%>?day=<%=DiaActual%>&month=<%=ElMes%>&year=<%=ElAnyo%>"><%=DiaActual%></a>
  193. </div>
  194. <%
  195. end if
  196. End If
  197. %>
  198. </td>
  199. <%
  200. DiaActual = DiaActual +1
  201. END IF
  202. Next ' Columna
  203. %>
  204. </tr>
  205. <%
  206. Next ' Fila
  207. %>
  208. </table></td>
  209. <%
  210. Next 'i
  211. %>
  212. </tr>
  213. </table>
  214. </div>
  215. <!-- Fin Calendario -->
  216. <!-- Paginador  -->
  217. <div id="paginador" align="center">
  218. <%
  219. unmesmenos = DateAdd("m", -3, DateSerial(ElAnyo, ElMes, 1))
  220. unmesmas = DateAdd("m", -1, DateSerial(ElAnyo, ElMes, 1))
  221. menos = split(unmesmenos, "/")
  222. mas = split(unmesmas, "/")
  223. mesmenos = menos(1)
  224. anyomenos = menos(2)
  225. mesmas = mas(1)
  226. anyomas = mas(2)
  227. %>
  228. <a href="<%=Request.Servervariables("SCRIPT_NAME")%>?mes=<%=mesmenos%>&anyo=<%=anyomenos%>">Anterior</a>
  229. <a href="<%=Request.Servervariables("SCRIPT_NAME")%>?mes=<%=mesmas%>&anyo=<%=anyomas%>">Siguiente</a>
  230. </div>
  231. <%
  232. END IF
  233. %>
  234. </div>
  235. <!-- Fin Paginador  -->
  236. </body>
  237. </html>
  238. <%
  239. Sub Dias()
  240. %>
  241. </td>
  242. </tr>
  243. <tr align="center">
  244. <td rows="6"><div class="calFondoSemanas">Sem</div></td>
  245. <td><div class="calFondoDias">Lun</div></td>
  246. <td><div class="calFondoDias">Mar</div></td>
  247. <td><div class="calFondoDias">Mi&eacute;</div></td>
  248. <td><div class="calFondoDias">Jue</div></td>
  249. <td><div class="calFondoDias">Vie</div></td>
  250. <td><div class="calFondoDias">S&aacute;b</div></td>
  251. <td><div class="calFondoDias">Dom</div></td>
  252. </tr>
  253. <%
  254. ' Sub y Funciones
  255. End Sub
  256.  
  257. Function Nombre_Mes(ElMes)
  258. Select Case ElMes
  259. Case 1
  260. Nombre_Mes = "Enero"
  261. Case 2
  262. Nombre_Mes = "Febrero"
  263. Case 3
  264. Nombre_Mes = "Marzo"
  265. Case 4
  266. Nombre_Mes = "Abril"
  267. Case 5
  268. Nombre_Mes = "Mayo"
  269. Case 6
  270. Nombre_Mes = "Junio"
  271. Case 7
  272. Nombre_Mes = "Julio"
  273. Case 8
  274. Nombre_Mes = "Agosto"
  275. Case 9
  276. Nombre_Mes = "Septiembre"
  277. Case 10
  278. Nombre_Mes = "Octubre"
  279. Case 11
  280. Nombre_Mes = "Noviembre"
  281. Case 12
  282. Nombre_Mes = "Diciembre"
  283. Case Else
  284. Nombre_Mes = "ERROR!"
  285. End Select
  286. End Function
  287.  
  288. Function UltimoDia(ElMes, ElAnyo)
  289. Select Case ElMes
  290. Case 1, 3, 5, 7, 8, 10, 12
  291. UltimoDia = 31
  292.  
  293. Case 4, 6, 9, 11
  294. UltimoDia = 30
  295.  
  296. Case 2
  297. If IsDate(ElAnyo & "-" & ElMes & "-" & "29") Then UltimoDia = 29 Else UltimoDia = 28
  298.  
  299. Case Else
  300. UltimoDia = 31
  301. End Select
  302. End Function
  303. %>

Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />

Etiquetas: calendario, colorear
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:03.