Gerador de calendário
Abaixo comentamos um ótimo código, bem simples
e funcional, para gerar calendário em páginas ASP. Este código
foi enviado por Juliano Benedette Ferreira, juliano_ferreira_1@hotmail.com.
‘====================================
<%
<%
Option Explicit
‘EM TODOS OS PROGRAMAS
‘COLOCAR ESTE COMANDO,
‘POIS FICA MAIS FÁCIL
‘ACHAR UM ERRO
Session.LCID = 1046
‘Deixa tudo no formato brasileiro
%>
<html↳HTML45 conteúdosA importância do HTML e CSS para quem trabalha com UI Design e Design SystemProduto & UX · dez 2024Como hostear seu site HTML gratuitamente com GitHub PagesDev (Back & Front) · jun 2025SQL Server – Como criar um versionamento de código das suas Stored Procedures em HTML e com comentários da alteraçãoData · nov 2020Ver tudo em Dev (Back & Front) →>
<body>
<%
dim dt ‘Variável que controla
a Data
if request("dt") = empty then
dt = NOW() ‘Traz data e hora
else
dt = request("dt")
end if
dim pd ‘Variável do primeiro
dia
dim ud ‘Variável do último dia
pd = DateSerial(year(dt),month(dt),1)
ud = DateSerial(year(dt),month(dt)+1,1)-1
dim ma ‘Mês anterior ao atual
dim mp ‘Mês posterior ao atual
ma = DateSerial(year(dt),month(dt)-1,1) ‘Para voltar 1 mês
mp = DateSerial(year(dt),month(dt)+1,1) ‘Para andar 1 mês
‘————————-
‘Montagem da Grade de Dias
‘————————-
dim gr(42) ‘Matriz
dim li ‘Linhas da Grade
dim co ‘Colunas da Grade
dim ct ‘Contador da Grade
ct = 1
dim lp ‘Suporte aos Loops
‘————————-
‘Montagem dos Quadros Brancos
‘————————-
for lp = 1 to weekday(pd)- 1
gr(ct) = " "
ct = ct + 1
next
‘————————-
‘Lendo o Mês Atual
‘————————-
for lp = pd to ud
if lp = date then
gr(ct) = "<font color = red>" & day(lp) & "</font>"
else
gr(ct) = day(lp)
end if
ct = ct + 1
next
‘—————————–
‘Montagem do Resto dos Quadros
‘—————————–
for lp = ct to 42
gr(lp) = " " ‘Coloquei LP dentro do GR porque ele já
‘tem o valor de CT (que é a posição
‘do último dia + 1)
next
ct = 1
%>
<html><body><center>
<table border=1 cellspacing = 0>
<tr>
<td>
<a href= "cal.asp?dt=<%=ma%>">
<img src="direita.gif">
</a>
</td>
<td colspan = 5 align = center>
<font face = "verdana" size = 3><b>
<%=Ucase(MonthName(month(dt),true))%>/<%=year(dt)%>
</b></font>
</td>
<td>
<a href = "cal.asp?dt=<%=mp%>">
<img src="esquerda.gif">
</a>
</td>
</tr>
<tr>
<td>DOM</td><td>SEG</td><td>TER</td>
<td>QUA</td><td>QUI</td><td>SEX</td><td>SAB</td>
</tr>
<%for li = 1 to 6%>
<tr>
<%for co = 1 to 7%>
<td><%=gr(ct)%></td>
<%ct = ct + 1%>
<%next%>
</tr>
<%next%>
%>
Espero que seja útil e que aproveitam! Abraço!
O desafio das APIs de pagamento instantâneo no backend moderno
Desafio das APIs | Pagar uma conta em segundos… conta de uma demanda que cresceu muito mais rápido do que os sistemas tradicionais conseguiam acompanhar.
Bootcamp com 10 mil bolsas gratuitas: DIO e NTTDATA lançam formação para iniciantes e profissionais de tecnologia
Infraestrutura Tech: Conheça os profissionais por trás de uma black friday
CodeCon Summit 2024: iMasters e CodeCon se unem para um evento épico
Redação iMastersDesenvolvedores lançam primeiro laptop para jogos de tela dupla do mundo
Redação iMastersGoogle fala sobre possível substituto do Android
Redação iMastersTecnologia: Chatbots terão 22 bilhões de interações até 2023, diz agência
Redação iMasters
