Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] calendário do Mês atual

Recommended Posts

Exibe o calendário do Mês atual

 

 

<!-- Exibe o Mês atual
	 Por: Mario Bruno Morais Aliste -->
<%Response.Expires=0%>
<html>	 
<title>Calendário Do Mês atual</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>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.