Ayuda! Calendario que comienze en Lunes (adjunto codigo)

19/10/2004 - 17:26 por Karmico | Informe spam

Hola!

Alguien podria hacer que esta calendario comenzara en Lunes?
Copiar, pegar y probar yo estoy loco ya!

Gracias por vuestra ayuda.

<%
'on error resume next
Dim Fiestas(31)
Dim MyMonth 'Month of calendar
Dim MyYear 'Year of calendar
Dim FirstDay 'First day of the month. 1 = Monday
Dim CurrentDay 'Used to print dates in calendar
Dim Col 'Calendar column
Dim Row 'Calendar row

MyMonth = Request.Querystring("m")
MyYear = Request.Querystring("a")

If IsEmpty(MyMonth) then MyMonth = Month(Date)
if IsEmpty(MyYear) then MyYear = Year(Date)

Call ShowHeader (MyMonth, MyYear)

FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1)) -1
CurrentDay = 1

'Let's build the calendar
For Row = 0 to 5
For Col = 0 to 6
If Row = 0 and Col < FirstDay then
response.write "<td> </td>"
elseif CurrentDay > LastDay(MyMonth, MyYear) then
response.write "<td> </td>"
else
response.write "<td"

if MyMonth = Month(Date) and CurrentDay = Day(Date) then
response.write " align=""center"" class=""celda1"">"
else
response.write " align=""center"" class=""celda2"">"
end if

mes = MyMonth
dia = CurrentDay
ano = Myyear

if len(mes) = 1 then
mes = "0"& mes
end if
if len(dia) = 1 then
dia = "0"& dia
end if

fecha = dia & "/" & mes & "/" & ano

if ExisteFecha(fecha) = 1 then
response.write "<a title = """ & Fiestas(clng(CurrentDay)) & """
href=""javascript:Win('eventos.asp?d=" & CurrentDay & "&m=" & MyMonth &
"&a=" & MyYear & "')"" class=""calendario"">" _
& CurrentDay & "</a></td>"
descripcion = null
else
response.write"" & CurrentDay & "</td>"
'fin
end if
CurrentDay = CurrentDay + 1
End If

Next
Response.write "<tr>"
Next

response.write "</table>"

' Sub and functions

Sub ShowHeader(MyMonth,MyYear)
%>
<table border="0" width="150" cellspacing="1" cellpadding="0" align="center"
class="borde" bgcolor="#0000AD">
<tr align="center">
<td colspan="7">
<table border="0" width="150" cellspacing="1" cellpadding="0"
bgcolor="#ffffff">
<tr>
<td align="left">
<%
response.write "<a class=""2"" href = ""default.asp?"
if MyMonth - 1 = 0 then
response.write "m&a=" & MyYear -1
else
response.write "m=" & MyMonth - 1 & "&a=" & MyYear
end if
response.write """><img border=""0"" src=""images/flechadetras.gif""
alt=""Anterior mes""></a>"
%>

</td><td align='center'>
<%
response.write " " & MonthName(MyMonth) & " " & MyYear &
" "
%>

</td><td align='right'>
<%
response.write "<a class=""2"" href = ""default.asp?"
if MyMonth + 1 = 13 then
response.write "m=1&a=" & MyYear + 1
else
response.write "m=" & MyMonth + 1 & "&a=" & MyYear
end if
response.write """><img border=""0"" src=""images/flechadelante.gif""
alt=""Siguiente mes""></a>"
%>

</td></tr></table>
</td>
</tr>
<tr align="center">
<td>
D</td>
<td>
L</td>
<td>
M</td>
<td>
X</td>
<td>
J</td>
<td>
V</td>
<td>
S</td>
</tr>
<%
End Sub
Function MonthName(MyMonth)
Select Case MyMonth
Case 1
MonthName = "Enero"
Case 2
MonthName = "Febrero"
Case 3
MonthName = "Marzo"
Case 4
MonthName = "Abril"
Case 5
MonthName = "Mayo"
Case 6
MonthName = "Junio"
Case 7
MonthName = "Julio"
Case 8
MonthName = "Agosto"
Case 9
MonthName = "Septiembre"
Case 10
MonthName = "Octubre"
Case 11
MonthName = "Noviembre"
Case 12
MonthName = "Diciembre"
Case Else
MonthName = "ERROR!"
End Select
End Function

Function LastDay(MyMonth, MyYear)
' Returns the last day of the month. Takes into account leap years
' Usage: LastDay(Month, Year)
' Example: LastDay(12,2000) or LastDay(12) or Lastday

Select Case MyMonth
Case 1, 3, 5, 7, 8, 10, 12
LastDay = 31

Case 4, 6, 9, 11
LastDay = 30

Case 2
If IsDate(MyYear & "-" & MyMonth & "-" & "29") Then LastDay = 29 Else
LastDay = 28

Case Else
LastDay = 0

End Select
End Function

'funcion para averiguar si existe evento en esa fecha (esto ignorarlo)
function ExisteFecha(fecha)
ExisteFecha = 0
end function
%>

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Matias Iacono

19/10/2004 - 17:46 | Informe spam

No creo que puedas hacer que empiese asi nomas ya que, por lo que veo, los
dias en si, son una tabla fija:

D</td>
<td>
L</td>
<td>
M</td>
<td>
X</td>
<td>
J</td>
<td>
V</td>
<td>
S</td>
</tr>

No son creados dinamicamente.

Saludos

Matias Iacono
Microsoft MVP

"Karmico" wrote in message
news:cl3bka$b7f$

Hola!

Alguien podria hacer que esta calendario comenzara en Lunes?
Copiar, pegar y probar yo estoy loco ya!

Gracias por vuestra ayuda.

<%
'on error resume next
Dim Fiestas(31)
Dim MyMonth 'Month of calendar
Dim MyYear 'Year of calendar
Dim FirstDay 'First day of the month. 1 = Monday
Dim CurrentDay 'Used to print dates in calendar
Dim Col 'Calendar column
Dim Row 'Calendar row

MyMonth = Request.Querystring("m")
MyYear = Request.Querystring("a")

If IsEmpty(MyMonth) then MyMonth = Month(Date)
if IsEmpty(MyYear) then MyYear = Year(Date)

Call ShowHeader (MyMonth, MyYear)

FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1)) -1
CurrentDay = 1

'Let's build the calendar
For Row = 0 to 5
For Col = 0 to 6
If Row = 0 and Col < FirstDay then
response.write "<td> </td>"
elseif CurrentDay > LastDay(MyMonth, MyYear) then
response.write "<td> </td>"
else
response.write "<td"

if MyMonth = Month(Date) and CurrentDay = Day(Date) then
response.write " align=""center"" class=""celda1"">"
else
response.write " align=""center"" class=""celda2"">"
end if

mes = MyMonth
dia = CurrentDay
ano = Myyear

if len(mes) = 1 then
mes = "0"& mes
end if
if len(dia) = 1 then
dia = "0"& dia
end if

fecha = dia & "/" & mes & "/" & ano

if ExisteFecha(fecha) = 1 then
response.write "<a title = """ & Fiestas(clng(CurrentDay)) & """
href=""javascript:Win('eventos.asp?d=" & CurrentDay & "&m=" & MyMonth &
"&a=" & MyYear & "')"" class=""calendario"">" _
& CurrentDay & "</a></td>"
descripcion = null
else
response.write"" & CurrentDay & "</td>"
'fin
end if
CurrentDay = CurrentDay + 1
End If

Next
Response.write "<tr>"
Next

response.write "</table>"

' Sub and functions

Sub ShowHeader(MyMonth,MyYear)
%>
<table border="0" width="150" cellspacing="1" cellpadding="0"

align="center"

class="borde" bgcolor="#0000AD">
<tr align="center">
<td colspan="7">
<table border="0" width="150" cellspacing="1" cellpadding="0"
bgcolor="#ffffff">
<tr>
<td align="left">
<%
response.write "<a class=""2"" href = ""default.asp?"
if MyMonth - 1 = 0 then
response.write "m&a=" & MyYear -1
else
response.write "m=" & MyMonth - 1 & "&a=" & MyYear
end if
response.write """><img border=""0""

src=""images/flechadetras.gif""

alt=""Anterior mes""></a>"
%>

</td><td align='center'>
<%
response.write " " & MonthName(MyMonth) & " " & MyYear &
" "
%>

</td><td align='right'>
<%
response.write "<a class=""2"" href = ""default.asp?"
if MyMonth + 1 = 13 then
response.write "m=1&a=" & MyYear + 1
else
response.write "m=" & MyMonth + 1 & "&a=" & MyYear
end if
response.write """><img border=""0""

src=""images/flechadelante.gif""

alt=""Siguiente mes""></a>"
%>

</td></tr></table>
</td>
</tr>
<tr align="center">
<td>
D</td>
<td>
L</td>
<td>
M</td>
<td>
X</td>
<td>
J</td>
<td>
V</td>
<td>
S</td>
</tr>
<%
End Sub
Function MonthName(MyMonth)
Select Case MyMonth
Case 1
MonthName = "Enero"
Case 2
MonthName = "Febrero"
Case 3
MonthName = "Marzo"
Case 4
MonthName = "Abril"
Case 5
MonthName = "Mayo"
Case 6
MonthName = "Junio"
Case 7
MonthName = "Julio"
Case 8
MonthName = "Agosto"
Case 9
MonthName = "Septiembre"
Case 10
MonthName = "Octubre"
Case 11
MonthName = "Noviembre"
Case 12
MonthName = "Diciembre"
Case Else
MonthName = "ERROR!"
End Select
End Function

Function LastDay(MyMonth, MyYear)
' Returns the last day of the month. Takes into account leap years
' Usage: LastDay(Month, Year)
' Example: LastDay(12,2000) or LastDay(12) or Lastday

Select Case MyMonth
Case 1, 3, 5, 7, 8, 10, 12
LastDay = 31

Case 4, 6, 9, 11
LastDay = 30

Case 2
If IsDate(MyYear & "-" & MyMonth & "-" & "29") Then LastDay = 29 Else
LastDay = 28

Case Else
LastDay = 0

End Select
End Function

'funcion para averiguar si existe evento en esa fecha (esto ignorarlo)
function ExisteFecha(fecha)
ExisteFecha = 0
end function
%>

Responder a este mensaje

#2 Sashka

19/10/2004 - 19:36 | Informe spam

¡Importante!: Colabora con el grupo. Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Todo lo que tienes que hacer es, además claro de cambiar el orden de las
letras a mano) en la línea 19:

FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1))-1

restale 2 en lugar de 1.

Lo que pasa es que eso se usa para definir en que columna se pinta (las
columnas van de la 0 a la 6) y los dias del 1 al 7.
Entonces alli obtienes el número de columna si dia es martes (3) la
columna es (tal como está ahora) 2... y tu quieres que sea 1 (lunes = 0,
martes = 1) ... le restas 2 y ya está!!

Espero que este clara la explicación :))

Sashka
MS MVP Access
MCP ASP.Net

"Karmico" escribió en el mensaje
news:cl3bka$b7f$

Hola!

Alguien podria hacer que esta calendario comenzara en Lunes?
Copiar, pegar y probar yo estoy loco ya!

Gracias por vuestra ayuda.

<%
'on error resume next
Dim Fiestas(31)
Dim MyMonth 'Month of calendar
Dim MyYear 'Year of calendar
Dim FirstDay 'First day of the month. 1 = Monday
Dim CurrentDay 'Used to print dates in calendar
Dim Col 'Calendar column
Dim Row 'Calendar row

MyMonth = Request.Querystring("m")
MyYear = Request.Querystring("a")

If IsEmpty(MyMonth) then MyMonth = Month(Date)
if IsEmpty(MyYear) then MyYear = Year(Date)

Call ShowHeader (MyMonth, MyYear)

FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1)) -1
CurrentDay = 1

'Let's build the calendar
For Row = 0 to 5
For Col = 0 to 6
If Row = 0 and Col < FirstDay then
response.write "<td> </td>"
elseif CurrentDay > LastDay(MyMonth, MyYear) then
response.write "<td> </td>"
else
response.write "<td"

if MyMonth = Month(Date) and CurrentDay = Day(Date) then
response.write " align=""center"" class=""celda1"">"
else
response.write " align=""center"" class=""celda2"">"
end if

mes = MyMonth
dia = CurrentDay
ano = Myyear

if len(mes) = 1 then
mes = "0"& mes
end if
if len(dia) = 1 then
dia = "0"& dia
end if

fecha = dia & "/" & mes & "/" & ano

if ExisteFecha(fecha) = 1 then
response.write "<a title = """ & Fiestas(clng(CurrentDay)) & """
href=""javascript:Win('eventos.asp?d=" & CurrentDay & "&m=" & MyMonth &
"&a=" & MyYear & "')"" class=""calendario"">" _
& CurrentDay & "</a></td>"
descripcion = null
else
response.write"" & CurrentDay & "</td>"
'fin
end if
CurrentDay = CurrentDay + 1
End If

Next
Response.write "<tr>"
Next

response.write "</table>"

' Sub and functions

Sub ShowHeader(MyMonth,MyYear)
%>
<table border="0" width="150" cellspacing="1" cellpadding="0"
align="center"
class="borde" bgcolor="#0000AD">
<tr align="center">
<td colspan="7">
<table border="0" width="150" cellspacing="1" cellpadding="0"
bgcolor="#ffffff">
<tr>
<td align="left">
<%
response.write "<a class=""2"" href = ""default.asp?"
if MyMonth - 1 = 0 then
response.write "m&a=" & MyYear -1
else
response.write "m=" & MyMonth - 1 & "&a=" & MyYear
end if
response.write """><img border=""0""
src=""images/flechadetras.gif""
alt=""Anterior mes""></a>"
%>

</td><td align='center'>
<%
response.write " " & MonthName(MyMonth) & " " & MyYear &
" "
%>

</td><td align='right'>
<%
response.write "<a class=""2"" href = ""default.asp?"
if MyMonth + 1 = 13 then
response.write "m=1&a=" & MyYear + 1
else
response.write "m=" & MyMonth + 1 & "&a=" & MyYear
end if
response.write """><img border=""0""
src=""images/flechadelante.gif""
alt=""Siguiente mes""></a>"
%>

</td></tr></table>
</td>
</tr>
<tr align="center">
<td>
D</td>
<td>
L</td>
<td>
M</td>
<td>
X</td>
<td>
J</td>
<td>
V</td>
<td>
S</td>
</tr>
<%
End Sub
Function MonthName(MyMonth)
Select Case MyMonth
Case 1
MonthName = "Enero"
Case 2
MonthName = "Febrero"
Case 3
MonthName = "Marzo"
Case 4
MonthName = "Abril"
Case 5
MonthName = "Mayo"
Case 6
MonthName = "Junio"
Case 7
MonthName = "Julio"
Case 8
MonthName = "Agosto"
Case 9
MonthName = "Septiembre"
Case 10
MonthName = "Octubre"
Case 11
MonthName = "Noviembre"
Case 12
MonthName = "Diciembre"
Case Else
MonthName = "ERROR!"
End Select
End Function

Function LastDay(MyMonth, MyYear)
' Returns the last day of the month. Takes into account leap years
' Usage: LastDay(Month, Year)
' Example: LastDay(12,2000) or LastDay(12) or Lastday

Select Case MyMonth
Case 1, 3, 5, 7, 8, 10, 12
LastDay = 31

Case 4, 6, 9, 11
LastDay = 30

Case 2
If IsDate(MyYear & "-" & MyMonth & "-" & "29") Then LastDay = 29 Else
LastDay = 28

Case Else
LastDay = 0

End Select
End Function

'funcion para averiguar si existe evento en esa fecha (esto ignorarlo)
function ExisteFecha(fecha)
ExisteFecha = 0
end function
%>

Responder a este mensaje

#3 Sashka

19/10/2004 - 21:16 | Informe spam

¡Importante!: Colabora con el grupo. Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Me acabo de dar cuenta que cuando día sea 1 (domingo) -2 será -1... entonces
hay que verificarlo y pasarle el valor 6...

FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1))-2
If FirstDay = -1 then FirstDay = 6

Sashka
MS MVP Access
MCP ASP.Net

"Sashka" escribió en el mensaje
news:

¡Importante!: Colabora con el grupo. Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Todo lo que tienes que hacer es, además claro de cambiar el orden de las
letras a mano) en la línea 19:

FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1))-1

restale 2 en lugar de 1.

Lo que pasa es que eso se usa para definir en que columna se pinta (las
columnas van de la 0 a la 6) y los dias del 1 al 7.
Entonces alli obtienes el número de columna si dia es martes (3)
la columna es (tal como está ahora) 2... y tu quieres que sea 1 (lunes =
0, martes = 1) ... le restas 2 y ya está!!

Espero que este clara la explicación :))

Sashka
MS MVP Access
MCP ASP.Net

"Karmico" escribió en el mensaje
news:cl3bka$b7f$

Hola!

Alguien podria hacer que esta calendario comenzara en Lunes?
Copiar, pegar y probar yo estoy loco ya!

Gracias por vuestra ayuda.

<%
'on error resume next
Dim Fiestas(31)
Dim MyMonth 'Month of calendar
Dim MyYear 'Year of calendar
Dim FirstDay 'First day of the month. 1 = Monday
Dim CurrentDay 'Used to print dates in calendar
Dim Col 'Calendar column
Dim Row 'Calendar row

MyMonth = Request.Querystring("m")
MyYear = Request.Querystring("a")

If IsEmpty(MyMonth) then MyMonth = Month(Date)
if IsEmpty(MyYear) then MyYear = Year(Date)

Call ShowHeader (MyMonth, MyYear)

FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1)) -1
CurrentDay = 1

'Let's build the calendar
For Row = 0 to 5
For Col = 0 to 6
If Row = 0 and Col < FirstDay then
response.write "<td> </td>"
elseif CurrentDay > LastDay(MyMonth, MyYear) then
response.write "<td> </td>"
else
response.write "<td"

if MyMonth = Month(Date) and CurrentDay = Day(Date) then
response.write " align=""center"" class=""celda1"">"
else
response.write " align=""center"" class=""celda2"">"
end if

mes = MyMonth
dia = CurrentDay
ano = Myyear

if len(mes) = 1 then
mes = "0"& mes
end if
if len(dia) = 1 then
dia = "0"& dia
end if

fecha = dia & "/" & mes & "/" & ano

if ExisteFecha(fecha) = 1 then
response.write "<a title = """ & Fiestas(clng(CurrentDay)) & """
href=""javascript:Win('eventos.asp?d=" & CurrentDay & "&m=" & MyMonth &
"&a=" & MyYear & "')"" class=""calendario"">" _
& CurrentDay & "</a></td>"
descripcion = null
else
response.write"" & CurrentDay & "</td>"
'fin
end if
CurrentDay = CurrentDay + 1
End If

Next
Response.write "<tr>"
Next

response.write "</table>"

' Sub and functions

Sub ShowHeader(MyMonth,MyYear)
%>
<table border="0" width="150" cellspacing="1" cellpadding="0"
align="center"
class="borde" bgcolor="#0000AD">
<tr align="center">
<td colspan="7">
<table border="0" width="150" cellspacing="1" cellpadding="0"
bgcolor="#ffffff">
<tr>
<td align="left">
<%
response.write "<a class=""2"" href = ""default.asp?"
if MyMonth - 1 = 0 then
response.write "m&a=" & MyYear -1
else
response.write "m=" & MyMonth - 1 & "&a=" & MyYear
end if
response.write """><img border=""0""
src=""images/flechadetras.gif""
alt=""Anterior mes""></a>"
%>

</td><td align='center'>
<%
response.write " " & MonthName(MyMonth) & " " & MyYear &
" "
%>

</td><td align='right'>
<%
response.write "<a class=""2"" href = ""default.asp?"
if MyMonth + 1 = 13 then
response.write "m=1&a=" & MyYear + 1
else
response.write "m=" & MyMonth + 1 & "&a=" & MyYear
end if
response.write """><img border=""0""
src=""images/flechadelante.gif""
alt=""Siguiente mes""></a>"
%>

</td></tr></table>
</td>
</tr>
<tr align="center">
<td>
D</td>
<td>
L</td>
<td>
M</td>
<td>
X</td>
<td>
J</td>
<td>
V</td>
<td>
S</td>
</tr>
<%
End Sub
Function MonthName(MyMonth)
Select Case MyMonth
Case 1
MonthName = "Enero"
Case 2
MonthName = "Febrero"
Case 3
MonthName = "Marzo"
Case 4
MonthName = "Abril"
Case 5
MonthName = "Mayo"
Case 6
MonthName = "Junio"
Case 7
MonthName = "Julio"
Case 8
MonthName = "Agosto"
Case 9
MonthName = "Septiembre"
Case 10
MonthName = "Octubre"
Case 11
MonthName = "Noviembre"
Case 12
MonthName = "Diciembre"
Case Else
MonthName = "ERROR!"
End Select
End Function

Function LastDay(MyMonth, MyYear)
' Returns the last day of the month. Takes into account leap years
' Usage: LastDay(Month, Year)
' Example: LastDay(12,2000) or LastDay(12) or Lastday

Select Case MyMonth
Case 1, 3, 5, 7, 8, 10, 12
LastDay = 31

Case 4, 6, 9, 11
LastDay = 30

Case 2
If IsDate(MyYear & "-" & MyMonth & "-" & "29") Then LastDay = 29 Else
LastDay = 28

Case Else
LastDay = 0

End Select
End Function

'funcion para averiguar si existe evento en esa fecha (esto ignorarlo)
function ExisteFecha(fecha)
ExisteFecha = 0
end function
%>

Responder a este mensaje

#4 Karmico

20/10/2004 - 09:29 | Informe spam

Muchas Gracias Sashka me sirvió de mucho!!!

Un saludo.

Karmico.

"Sashka" escribió en el mensaje
news:

¡Importante!: Colabora con el grupo. Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Me acabo de dar cuenta que cuando día sea 1 (domingo) -2 será -1...

entonces

hay que verificarlo y pasarle el valor 6...

FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1))-2
If FirstDay = -1 then FirstDay = 6

Sashka
MS MVP Access
MCP ASP.Net

"Sashka" escribió en el mensaje
news:

> ¡Importante!: Colabora con el grupo. Contesta a este mensaje y dinos si

> sirvió o no la respuesta dada. Muchas gracias

> Todo lo que tienes que hacer es, además claro de cambiar el orden de las
> letras a mano) en la línea 19:
>
> FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1))-1
>
> restale 2 en lugar de 1.
>
> Lo que pasa es que eso se usa para definir en que columna se pinta (las
> columnas van de la 0 a la 6) y los dias del 1 al 7.
> Entonces alli obtienes el número de columna si dia es martes (3)
> la columna es (tal como está ahora) 2... y tu quieres que sea 1 (lunes > > 0, martes = 1) ... le restas 2 y ya está!!
>
> Espero que este clara la explicación :))
>
> Sashka
> MS MVP Access
> MCP ASP.Net
>
> "Karmico" escribió en el mensaje
> news:cl3bka$b7f$
>> Hola!
>>
>> Alguien podria hacer que esta calendario comenzara en Lunes?
>> Copiar, pegar y probar yo estoy loco ya!
>>
>> Gracias por vuestra ayuda.
>>
>> <%
>> 'on error resume next
>> Dim Fiestas(31)
>> Dim MyMonth 'Month of calendar
>> Dim MyYear 'Year of calendar
>> Dim FirstDay 'First day of the month. 1 = Monday
>> Dim CurrentDay 'Used to print dates in calendar
>> Dim Col 'Calendar column
>> Dim Row 'Calendar row
>>
>> MyMonth = Request.Querystring("m")
>> MyYear = Request.Querystring("a")
>>
>> If IsEmpty(MyMonth) then MyMonth = Month(Date)
>> if IsEmpty(MyYear) then MyYear = Year(Date)
>>
>> Call ShowHeader (MyMonth, MyYear)
>>
>> FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1)) -1
>> CurrentDay = 1
>>
>>
>> 'Let's build the calendar
>> For Row = 0 to 5
>> For Col = 0 to 6
>> If Row = 0 and Col < FirstDay then
>> response.write "<td> </td>"
>> elseif CurrentDay > LastDay(MyMonth, MyYear) then
>> response.write "<td> </td>"
>> else
>> response.write "<td"
>>
>> if MyMonth = Month(Date) and CurrentDay = Day(Date) then
>> response.write " align=""center"" class=""celda1"">"
>> else
>> response.write " align=""center"" class=""celda2"">"
>> end if
>>
>> mes = MyMonth
>> dia = CurrentDay
>> ano = Myyear
>>
>> if len(mes) = 1 then
>> mes = "0"& mes
>> end if
>> if len(dia) = 1 then
>> dia = "0"& dia
>> end if
>>
>> fecha = dia & "/" & mes & "/" & ano
>>
>> if ExisteFecha(fecha) = 1 then
>> response.write "<a title = """ & Fiestas(clng(CurrentDay)) & """
>> href=""javascript:Win('eventos.asp?d=" & CurrentDay & "&m=" & MyMonth &
>> "&a=" & MyYear & "')"" class=""calendario"">" _
>> & CurrentDay & "</a></td>"
>> descripcion = null
>> else
>> response.write"" & CurrentDay & "</td>"
>> 'fin
>> end if
>> CurrentDay = CurrentDay + 1
>> End If
>>
>> Next
>> Response.write "<tr>"
>> Next
>>
>> response.write "</table>"
>>
>>
>> ' Sub and functions
>>
>>
>> Sub ShowHeader(MyMonth,MyYear)
>> %>
>> <table border="0" width="150" cellspacing="1" cellpadding="0"
>> align="center"
>> class="borde" bgcolor="#0000AD">
>> <tr align="center">
>> <td colspan="7">
>> <table border="0" width="150" cellspacing="1" cellpadding="0"
>> bgcolor="#ffffff">
>> <tr>
>> <td align="left">
>> <%
>> response.write "<a class=""2"" href = ""default.asp?"
>> if MyMonth - 1 = 0 then
>> response.write "m&a=" & MyYear -1
>> else
>> response.write "m=" & MyMonth - 1 & "&a=" & MyYear
>> end if
>> response.write """><img border=""0""
>> src=""images/flechadetras.gif""
>> alt=""Anterior mes""></a>"
>> %>
>> 
>> </td><td align='center'>
>> <%
>> response.write " " & MonthName(MyMonth) & " " & MyYear &
>> " "
>> %>
>> 
>> </td><td align='right'>
>> <%
>> response.write "<a class=""2"" href = ""default.asp?"
>> if MyMonth + 1 = 13 then
>> response.write "m=1&a=" & MyYear + 1
>> else
>> response.write "m=" & MyMonth + 1 & "&a=" & MyYear
>> end if
>> response.write """><img border=""0""
>> src=""images/flechadelante.gif""
>> alt=""Siguiente mes""></a>"
>> %>
>> 
>> </td></tr></table>
>> </td>
>> </tr>
>> <tr align="center">
>> <td>
>> D</td>
>> <td>
>> L</td>
>> <td>
>> M</td>
>> <td>
>> X</td>
>> <td>
>> J</td>
>> <td>
>> V</td>
>> <td>
>> S</td>
>> </tr>
>> <%
>> End Sub
>> Function MonthName(MyMonth)
>> Select Case MyMonth
>> Case 1
>> MonthName = "Enero"
>> Case 2
>> MonthName = "Febrero"
>> Case 3
>> MonthName = "Marzo"
>> Case 4
>> MonthName = "Abril"
>> Case 5
>> MonthName = "Mayo"
>> Case 6
>> MonthName = "Junio"
>> Case 7
>> MonthName = "Julio"
>> Case 8
>> MonthName = "Agosto"
>> Case 9
>> MonthName = "Septiembre"
>> Case 10
>> MonthName = "Octubre"
>> Case 11
>> MonthName = "Noviembre"
>> Case 12
>> MonthName = "Diciembre"
>> Case Else
>> MonthName = "ERROR!"
>> End Select
>> End Function
>>
>> Function LastDay(MyMonth, MyYear)
>> ' Returns the last day of the month. Takes into account leap years
>> ' Usage: LastDay(Month, Year)
>> ' Example: LastDay(12,2000) or LastDay(12) or Lastday
>>
>>
>> Select Case MyMonth
>> Case 1, 3, 5, 7, 8, 10, 12
>> LastDay = 31
>>
>> Case 4, 6, 9, 11
>> LastDay = 30
>>
>> Case 2
>> If IsDate(MyYear & "-" & MyMonth & "-" & "29") Then LastDay = 29 Else
>> LastDay = 28
>>
>> Case Else
>> LastDay = 0
>>
>> End Select
>> End Function
>>
>> 'funcion para averiguar si existe evento en esa fecha (esto ignorarlo)
>> function ExisteFecha(fecha)
>> ExisteFecha = 0
>> end function
>> %>
>>
>>
>>
>>
>
>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida