ASP – Classe para Calendário

março 25, 2009 | Arquivado em: ASP.net | Escrito por: X@nBuRzUm

O que é Calendário ???

Calendário  é um sistema para contagem e agrupamento de dias que visa atender, principalmente, às necessidades civis e religiosas de uma cultura. A palavra deriva do latim calendarium ou livro de registro, que por sua vez derivou de calendae, que indicava o primeiro dia de um mês romano. As unidades principais de agrupamento são o mês e o ano.

Em toda linguagem é amplamente utilizado, voce pode, usar em seu blog, na sua empresa, com agenda de eventos, etc. Com uma interface usuário amigável, com uma interface usuário amigável.

 

Este código demonstra a classe Calendáio, em que pode exibir um calendario. Abaixo uma demonstração de como usar a classe.

 

 

Exemplo, usando a classe.

 

<!–#include file=”classeCalendario.asp”–>
<html>
<head>
   <title> Controle Calendario</title>
</head>

<body>
<div align=”right”>
<%

Set Cal = New Calendario
Cal.border=false ‘Display Borda  
Cal.value = Now ‘Define data atual
Cal.calMonth = 4 ‘Define Mês Atual
Cal.calYear = 2002 ‘Define ano em curso
Cal.fonts = “Tahoma” ‘Define Fonte
Cal.fontSize=2 ‘Define tamanho da Fonte
Cal.showDate = True ‘Ainda não implementado
Cal.showNav =True ‘Visualizar Links anterior e próximo
Cal.showForm = True ‘Visualizar Mês e Ano formulário  
Cal.display ‘Mostrar Calendário

Set Cal = Nothing

%>

</div>
</body>
</html>

Abaixo o código da classe, salve este arquivo como, classecalendario.asp

  

<%
Class Calendario

Private cShowDate
Private cValue
Private cBorder
Private cMonth
Private cYear
Private arrMonths(12)
Private cFonts
Private cFontSize
Private cShowNav
Private cShowForm

Private Sub  Class_Initialize()
   cBorder = True
‘    arrMonths(1) = “Janeiro”
‘    arrMonths(2) = “Fevereiro”
‘    arrMonths(3) = “Março”
‘    arrMonths(4) = “Abril”
‘    arrMonths(5) = “Maio”
‘    arrMonths(6) = “Junhi”
‘    arrMonths(7) = “Julho”
‘    arrMonths(8) = “Agosto”
‘    arrMonths(9) = “Setembro”
‘    arrMonths(10) = “Outubro”
‘    arrMonths(11) = “Novembro”
‘    arrMonths(12) = “Dezembro”
   arrMonths(1) = “Jan”
   arrMonths(2) = “Fev”
   arrMonths(3) = “Mar”
   arrMonths(4) = “Abr”
   arrMonths(5) = “Mai”
   arrMonths(6) = “Jun”
   arrMonths(7) = “Jul”
   arrMonths(8) = “Ago”
   arrMonths(9) = “Set”
   arrMonths(10) = “Out”
   arrMonths(11) = “Nov”
   arrMonths(12) = “Dez”

   cValue = Now
   cMonth = Month(Now)
   cYear = Year(Now)
   cFonts = “Verdana”
   cFontSize = 2
   cShowNav = False
   cShowForm = False
   cShowDate = False
End Sub

Private Sub Class_Terminate()

End Sub

Public Property Let Border(byRef uBorder)
   cBorder = uBorder
End Property

Public Property Get Border()
   Border = cBorder
End Property

Public Property Get Value()
   Value = cValue
End Property

Public Property Let Value(byRef uValue)
   cValue = uValue
   cMonth = Month(uValue)
   cYear = Year(uValue)
End Property

Public Property Let CalMonth(byRef uMonth)
   cMonth = uMonth
End Property

Public Property Get CalMonth()
   CalMonth = cMonth
End Property

Public Property Let CalYear(byRef uYear)
   cYear = uYear
End Property

Public Property Get CalYear()
   CalYear = cYear
End Property

Public Property Let Fonts(byRef uFonts)
   cFonts = uFonts
End Property

Public Property Get Fonts()
   Fonts = cFonts
End Property

Public Property Let FontSize(byRef uFontSize)
   cFontSize = uFontSize
End Property

Public Property Get FontSize()
   FontSize = cFontSize
End Property

Public Property Let ShowNav(byRef uShowNav)
   cShowNav = uShowNav
End Property

Public Property Get ShowNav()
   ShowNav = cShowNav
End Property

Public Property Let ShowForm(byRef uShowForm)
   cShowForm = uShowForm
End Property

Public Property Get ShowForm()
   ShowForm = cShowForm
End Property

Public Property Let ShowDate(byRef uShowDate)
   cShowDate = uShowDate
End Property

Public Sub Display
   If cShowNav or cShowForm Then

       Select Case request(“CalAction”)

       Case “back”
           cYear = request(“currYear”)
           If request(“currMonth”) < 1 Then
               cMonth = 12
               cYear = request(“currYear”) – 1
           Else
               cMonth = request(“currMonth”)
           End If
       Case “forward”
    
           cYear = request(“currYear”)
           If request(“currMonth”) > 12 Then
               cMonth = 1
               cYear = request(“currYear”) + 1
           Else
               cMonth = request(“currMonth”)
           End If
       Case “goto”
        
           cMonth = request(“currMonth”)
           If request(“currYear”) <> “” Then
               cYear = Int(request(“currYear”))
           End IF

       End Select
   End If

   cDay = Weekday(arrMonths(cMonth) & “/” & 1 & “/” & cYear)

   Days = DaysInMonth()
   If cBorder Then%>
       <table border=”0″ cellpadding=0 bgcolor=”#000000″>
       <tr><td bgcolor=”#FFFFFF”>
   <%End If%>
   <table border=”0″ cellspacing=1 cellpadding=1>
     <tr>

   <%If cShowNav Then%>
      
       <td align=”center” bgcolor=”#666666″><font color=”#FFFFFF” size=1 face=”<%=cFonts%>”><a href=”<%= Request.ServerVariables(“SCRIPT_NAME”) %>?CalAction=back&currMonth=<%=cMonth – 1%>&currYear=<%=cYear%>”>««</a></font></td>
       <td colspan=”5″align=”center” bgcolor=”#666666″><font color=”#FFFFFF” size=<%=cFontSize%> face=”<%=cFonts%>”><b><%=arrMonths(cMonth) & ” ” & cYear%></b></font></td>
   <td align=”center” bgcolor=”#666666″><font color=”#FFFFFF” size=1 face=”<%=cFonts%>”><a href=”<%= Request.ServerVariables(“SCRIPT_NAME”) %>?CalAction=forward&currMonth=<%=cMonth + 1%>&currYear=<%=cYear%>”>»»</a></font></td>

   <%Else%>
       <td colspan=”7″align=”center” bgcolor=”#666666″><font color=”#FFFFFF” size=<%=cFontSize%> face=”<%=cFonts%>”><b><%=arrMonths(cMonth) & ” ” & cYear%></b></font></td>

   <%End If%>

     </tr>
       <tr>
       <td align=”center” width=25 bgcolor=”#666666″><font color=”#FFFFFF” size=<%=cFontSize%> face=”<%=cFonts%>”><b>D</b></font></td>
       <td align=”center” width=25 bgcolor=”#666666″><font color=”#FFFFFF” size=<%=cFontSize%> face=”<%=cFonts%>”><b>S</b></font></td>
       <td align=”center” width=25 bgcolor=”#666666″><font color=”#FFFFFF” size=<%=cFontSize%> face=”<%=cFonts%>”><b>T</b></font></td>
       <td align=”center” width=25 bgcolor=”#666666″><font color=”#FFFFFF” size=<%=cFontSize%> face=”<%=cFonts%>”><b>Q</b></font></td>
       <td align=”center” width=25 bgcolor=”#666666″><font color=”#FFFFFF” size=<%=cFontSize%> face=”<%=cFonts%>”><b>Q</b></font></td>
       <td align=”center” width=25 bgcolor=”#666666″><font color=”#FFFFFF” size=<%=cFontSize%> face=”<%=cFonts%>”><b>S</b></font></td>
       <td align=”center” width=25 bgcolor=”#666666″><font color=”#FFFFFF” size=<%=cFontSize%> face=”<%=cFonts%>”><b>S</b></font></td>
     </tr>
     <tr>
       <%i = 1
       For j = 1 to cDay – 1%>
           <td align=”center” bgcolor=”#999999″></td>
           <%If i > 6 Then
               response.write(“</tr><tr>”)
               i = 0
           End If
           i = i + 1
       Next
       For j = 1 to Days%>
           <td align=”center” bgcolor=”#999999″><font color=”#000000″ size=<%=cFontSize%> face=”<%=cFonts%>”><b><%=j%></b></font></td>
           <%If i > 6 And j <= Days – 1 Then
               response.write(“</tr><tr>”)
               i = 0
           End If
           i = i + 1
       Next
       If i > 1 Then
           For m = i to 7%>
               <td align=”center” bgcolor=”#999999″></td>
           <%Next
       End IF%>
     </tr>
   </table>
   <%If cBorder Then%>
       </td></tr>
       </table>
   <%End If
   If cShowForm Then BottomForm
End Sub

Private Sub BottomForm%>
   <table border=”0″ cellspacing=1 cellpadding=1 width=200>
   <form method=”GET” action=”<%= Request.ServerVariables(“SCRIPT_NAME”) %>”>
   <tr>
   <td align=”right” width=”25%”><font color=”#000000″ size=<%=cFontSize%> face=”<%=cFonts%>”><b>MÊS</b></font></td>
   <td><select name=”currMonth”>
   <%For i = 1 to 12%>
   <option value=<%=i%><%If i = Int(cMonth) Then response.write ” Selected”%>><%=arrMonths(i)%></option>
   <%Next%>
   </select></td>
   <td align=”right” width=”25%”><font color=”#000000″ size=<%=cFontSize%> face=”<%=cFonts%>”><b>ANO</b></font></td>
   <td><input type=”text” name=”currYear” maxlength=4 size=4  value=”<%=cYear%>”></td>
   </tr>

   <tr><td colspan=4 align=”right”><input type=”submit” value=”OK”></td></tr>
   <input type=”hidden” name=”calAction” value=”goto”>
   </form>
   </table>
<%End Sub

Private Function DaysInMonth()
   Select Case cMonth
       Case 1,3,5,7,8,10,12
           DaysInMonth = 31
       Case 4,5,6,9,11
           DaysInMonth = 30
       Case 2
           If cYear Mod 4 Then
               DaysInMonth = 28
           Else
               DaysInMonth = 29
           End If
   Case Else
       Exit Function
   End Select
End Function

End Class

%>

 

 

 

 

Escrito por X@nBuRzUm on março 25, 2009. Arquivado em ASP.net. Você pode seguir as respostas a esse artigo pelo RSS 2.0. Você pode deixar respostas para esse artigo

Deixe uma resposta

O seu endereço de email não será publicado Campos obrigatórios são marcados *

*

Você pode usar estas tags e atributos de HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>