Codeme

Bem Vindo ao CODME
Cadastre-se agora para obter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações pós status, gerenciar seu perfil e muito mais. Esta mensagem será removido depois de ter cadastrado.
Entrar na Conta Criar uma conta


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

#1 Calendário do Mês em Sab Nov 02, 2013 6:08 pm

Admin

avatar

Admin


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 "&nbsp;"
      End If

       Response.Write "</td>"&vbCrLf   
      
   Next
   
   Response.Write "</tr>"
       
 Wend
 
%>
</table>
</body>
</html>

Ver perfil do usuário http://codme.umforum.net

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]


Permissão deste fórum:
Você não pode responder aos tópicos neste fórum