Ir para conteúdo

POWERED BY:

Arquivado

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

Marinho

Marcar datas em calendario

Por , em ASP Clássico

Recommended Posts

Marinho    0

Marinho
Postado

Estou precisando fazer uma consulta entre datas no bd e marcar no calendario esses dias.

Como faço isso ?

Ex: tenha a data x ate a data y

como faço para marcar os dias entre essas data no calendario de eventos ?

 

Segue abaixo o codigo do calendario.

 

ASP
<%

'Primeiro

valor = month(now)

ano = year(now)

 

if valor = 12 Then

 

Valor_Mais = 1 & "&ano=" & ano + 1

 

else

 

Valor_Mais = Valor + 1 & "&ano=" & ano

 

End if

 

 

 

if valor = 1 Then

 

Valor_Menos = 12 & "&ano=" & ano - 1

 

else

 

Valor_Menos = Valor1 - 1 & "&ano=" & ano

 

End if

 

 

 

Select Case valor

 

Case 1,3,5,7,8,10,12

 

Mes = 31

 

Case 4,6,9,11

 

Mes = 30

 

Case Else

 

If ano Mod 4 = 0 And (ano Mod 100 <> 0 Or ano Mod 400 = 0) Then

 

Mes = 29

 

Else

 

Mes = 28

 

End If

 

End Select

 

 

 

Total = 1

 

Dia = 1

 

data = "1/" & valor & "/" & ano

 

data2 = mes & "/" & valor & "/" & ano

 

X = weekday(cdate(data)) - 1

 

 

 

Colunas = Fix(Mes + X) / 7

 

 

 

If Colunas > 5 Then

 

Colunas = 6

 

Else

 

Colunas = 5

 

End if

 

%>

 

<table width="137" border="0" cellspacing="0" cellpadding="0">

 

<form method="post" action="../entrada.asp" name="form" onSubmit="return enviar();">

 

 

 

<tr>

 

<td width="137" align="center">

 

<table width="99%" border="0" cellpadding="0" cellspacing="0" bgcolor="#077AB1" class="mes">

<tr>

<td width="86" align="left" valign="top"><div align="center">

<%=MonthName(valor)%> </div></td>

</tr>

</table></td>

 

</tr>

 

<tr>

 

<td align="center"><table width="99%" border="0" cellpadding="0" cellspacing="1" bgcolor="#05487A" class="agenda">

<tr align="center" class="texto_marrom_01">

<td width="17" height="18" class="regulatabela" ><font color="#FFFFFF">D</font></td>

<td width="17" height="18" class="regulatabela" ><font color="#FFFFFF">S</font></td>

<td width="17" height="18" class="regulatabela" ><font color="#FFFFFF">T</font></td>

<td width="17" height="18" class="regulatabela" ><font color="#FFFFFF">Q</font></td>

<td width="17" height="18" class="regulatabela" ><font color="#FFFFFF">Q</font></td>

<td width="17" height="18" class="regulatabela" ><font color="#FFFFFF">S</font></td>

<td width="25" height="18" class="regulatabela" ><font color="#FFFFFF">S</font></td>

</tr>

</table></td>

 

</tr>

 

<tr>

 

<td><table width="137" border="0" cellpadding="0" cellspacing="1" class="agenda">

<tr>

 

 

<td width="135" height="58" bgcolor="#F2F9FF">

<%

 

FOR I = 1 TO Colunas

 

%>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="agenda">

<tr align="center" class="texto_marrom_01">

 

<%

 

FOR S = 1 TO 7

 

IF Dia <= Mes AND Total > x Then

 

Mostra = Dia

 

Cor = "#056DBA"

 

Dia = Dia + 1

 

Else

 

Mostra = " "

 

Cor = "#ffffff"

 

End IF

 

%>

 

 

<td width="133" height="20" bgcolor="<%=Cor%>" class="regulatabela"><%=mostra%></td>

 

<%

 

Total = Total + 1

 

NEXT

 

%>

 

</tr>

 

</table>

 

 

<%

 

NEXT

 

%>

</td>

 

</tr>

 

</table></td>

 

</tr>

 

 

 

</form>

 

</table>

<br />

<br />

<br />

<%

 

'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>

<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 = "calendario.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>---</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%>

 

 

Agradeço a ajuda

Obrigado !

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito