Entrar
Cadastre-se
Registar
Entrar
#1
Calendário do Mês Sáb Nov 02, 2013 6:08 pm
Admin
Admin
Mensagens : 88
Dinheiro : 196
Reputação : 0
Data de inscrição : 19/10/2013
Idade : 28
Barra de Alerta : 
Itens
Excelente algoritmo de calendário do Mês corrente em ASP.
- Código:
<!-- Calendario do Mês corrente em ASP!
Por: Mario Bruno Morais Aliste -->
<%Response.Expires=0%>
<html>
<title>Calendário Do Mês Corrente em ASP!</title>
<head>
<style>
td {
border-style:outset;
font-family:Arial;
font-size:12px
}
input {
font-family:Arial;
font-size:12px;
background-color:#FFFFCC;
cursor:pointer;
border-style:groove
}
</style>
</head>
<body>
<table width="100%" height="100%">
<tr height="10">
<td align="center" width="10%">Domingo</td>
<td align="center" width="10%">Segunda-Feira</td>
<td align="center" width="10%">Terça-Feira</td>
<td align="center" width="10%">Quarta-Feira</td>
<td align="center" width="10%">Quinta-Feira</td>
<td align="center" width="10%">Sexta-Feira</td>
<td align="center" width="10%">Sabado</td>
</tr><%
' A data origem
Data=Request("dt")
If Data="" Then
Data=CDate("01/"&Month(Date())&"/"&Year(Date()))
Else
Data=CDate(Data)
End If
' Funcao para pegar o ultimo dia do mes
Function UltimoDia(Data)
UltimoDia=Day(DateSerial(Year(Data),Month(Data)+1,0))
End function
' Data iterativa
Dt=Data
' Enquanto o mes for igual...
While Month(Dt)=Month(Data)
' Inicia a linha da tabela
Response.Write vbCrLf&"<tr>"&vbCrLf
' Loop que percorre os dias da semana
For i=1 To 7 Step 1
' Inicia a coluna da tabela
Response.Write "<td valign=middle align=center>"
' Se o dia for igual ao contador da interacao e o mes ainda for igual ao da origem
If WeekDay(Dt)=i And Month(Dt)=Month(Data) Then
' Imprimo o dia do mes
If Day(dt)=Day(Date()) Then
ni="<b>"
nf="</b>"
Else
ni=""
nf=""
End If
Response.Write ni&Day(Dt)&nf
' Somo + 1 dia na data iterativa
Dt=DateAdd("d",1,Dt)
' Se nao atender as condicoes acima
Else
Response.Write " "
End If
Response.Write "</td>"&vbCrLf
Next
Response.Write "</tr>"
Wend
%>
</table>
</body>
</html>
