Ir para conteúdo

POWERED BY:

Arquivado

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

Jow Xavier

[Resolvido] Painel com datas - estilo calendário

Por , em ASP Clássico

Recommended Posts

Jow Xavier    0

Jow Xavier
Postado

Boa tarde, estou tendo q desenvolver um painel para mostrar os projetos correspondentes as datas passadas como prazo.

 

Como faço para fazer isso, esse painel tem q ser de segunda a sexta ... Alguém pode me ajudar ... Ñ tenho a menor idéia de como fazer ... Eu já tenho no banco de dados uma tabela q tem armazenado o prazo ... então axo q preciso de um SCRIPT q exiba um painel tipo calendário, mais só de segunda a sexta ... então eu comparo a data do dia com a data do meu banco de dados, ai eu exibo as datas correspondentes a data do dia com a data do prazo.

 

Aguardo respostas !!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Olá

 

Tem uma função chamada dayofweek ou weekofday xiiiiiiiiiiiii não me lembro bem, mas sei que tem (ajudou pra caramba né ? hehehhe)

 

Outra coisa pode ser a comparação como no caso abaixo:

 

CODE
<%

If date >=#22/01/2009# And date < #22/02/2009# Then

blablabla

Else

blobloblo

End If

%>

 

tem tb esse script aqui que pode ser que serva para você

 

CODE
<% If request.form("data1") = "" then %>

<form action="data.asp" method="post">

<input type="text" name="data1">

<input type="text" name="data2">

<input type="submit">

</form>

<% Else %>

<%

 

dData1 = request.form("data1")

dData2 = request.form("data2")

sMsg = "Dias até a data escolhida: "& DateDiff("d", dData1, dData2)

response.write sMsg

%>

<% End If %>

 

Acho que é só vou dar uma olhada aqui e ver se lembro o nome da função direito

 

Abraços,

Vinicius Ianni

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Boa tarde !

 

Sabia que tinha algo parecido com o que voce quer, segue abaixo o código completo disso, com os devidos creditos.

CODE
<%Option Explicit%>

 

<HTML>

<HEAD>

<TITLE>Calendário</TITLE>

<META NAME="Generator" CONTENT="NotePad">

<META NAME="Author" CONTENT="Alexandre Sales Lima">

<META NAME="Keywords" CONTENT="Calendario">

<META NAME="Description" CONTENT="Calendario escrito em ASP">

</HEAD>

 

<BODY bgcolor=#FFFF99>

 

 

<%

'Lógica para construir o calendário

Session.LCID = 1046 'BRASIL

Dim URL,Dia, Mes, Ano, Agora, PrimeiroDiaMes, UltimoDiaMes

Dim Inicio,Fim, Start, TheEnd,i, j

 

URL= Request.ServerVAriables("SCRIPT_NAME")

 

if (Request.QueryString("Mes") <> Month(now))AND(Request.QueryString("Mes") <> "") Then

Mes=CInt(Request.QueryString("Mes"))'força que o resultado seja um inteiro

else

Mes = Month(now)

end if

 

Dia=Day(now)

 

Ano = Year(now)

Agora = DateSerial(Ano, mes, dia)

 

PrimeiroDiaMes=DateSerial(Year(Now),Mes,1)

UltimoDiaMes=DateSerial(Year(Now),Mes+1,1-1)

Inicio = ABS(1 - WeekDay(PrimeiroDiaMes))

Fim = 7 - WeekDay(UltimoDiaMes)

Start=1-Inicio

TheEnd = Day(UltimoDiaMes) + Fim

J=1 %>

 

 

<TABLE BORDER=0 WIDTH=160 CELLPADDING=0 ALIGN=left>

<TR>

<TD WIDTH="1%" VALIGN=top>

<TABLE CELLPADDING=1 CELLSPACING=0 BORDER=1 WIDTH="100%">

 

<TR>

<TD NOWRAP COLSPAN=4 ALIGN=CENTER BGCOLOR=dcdcdc>

<TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0>

<TR>

<TD>

<A HREF="<%=URL&"?mes="&(mes-1)%>"><IMG SRC="left4.gif" WIDTH=11 HEIGHT=11 BORDER=0></A>

</TD>

<TD NOWRAP VALIGN=middle>

<TT><B><%Response.Write MonthName(Month(Agora))& " " & Year(Agora) %></B></TT>

</TD>

<TD>

<A HREF="<%=URL&"?mes="&(mes+1)%>"><IMG SRC="right4.gif" WIDTH=11 HEIGHT=11 BORDER=0></A>

</TD>

</TR>

</TABLE>

</TD>

</TR>

<TR bgcolor=red>

<TD COLSPAN=4 align="Center">

<TABLE CELLSPACING=3 CELLPADDING=1 BORDER=0>

<TR>

<TD COLSPAN=1 align="center" width=85><font SIZE=-1 color=white><b>Do</b></font></TD>

<TD COLSPAN=1 align="center" width=85><font SIZE=-1 color=white><b>Se</b></font></TD>

<TD COLSPAN=1 align="center" width=85><font SIZE=-1 color=white><b>Te</b></font></TD>

<TD COLSPAN=1 align="center" width=85><font SIZE=-1 color=white><b>Qa</b></font></TD>

<TD COLSPAN=1 align="center" width=85><font SIZE=-1 color=white><b>Qu</b></font></TD>

<TD COLSPAN=1 align="center" width=85><font SIZE=-1 color=white><b>Se</b></font></TD>

<TD COLSPAN=1 align="center" width=85><font SIZE=-1 color=white><b>Sá</b></font></TD>

</TR>

</Table>

</TD>

</TR>

<TR>

<TD COLSPAN=4 align="Center">

<TABLE CELLSPACING=3 CELLPADDING=1 BORDER=0>

 

<TR bgcolor="#fef7e9">

 

<%For i= Start to TheEnd

if (i = day(now)) And (Mes=Month(now)) Then

Response.Write "<TD align= center width=85><FONT face=Arial,Helvetica size=-1 COLOR=red>"& Day(DateSerial(Year(Now),Mes,i)) & "</font></TD>"

Elseif (i<1) or (i > Day(UltimoDiaMes)) Then

Response.Write "<TD align= center width=85><FONT face=Arial,Helvetica size=-1 COLOR=gray><B>"& Day(DateSerial(Year(Now),Mes,i)) & "</B></TD>"

Else

Response.Write "<TD align= center width=85><FONT face=Arial,Helvetica size=-1 COLOR=blue>"& Day(DateSerial(Year(Now),Mes,i)) & "</TD>"

End if

 

If j = 7 then

J = 0

Response.Write "</tr>" %>

<TR bgcolor="#fef7e9">

<% end if

J = j + 1

 

Next

%>

</TR>

<Table>

</TD>

</tr></Table>

</BODY>

</HTML>

 

Agora é só se divertir.

 

Abraços,

Vinicius Ianni

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Bom dia.

Opá galera valeu mesmo pela ajudam, então eu tenho um o seguinte SCRIPT:

<% 
if session("login") <> true then
  response.redirect "default.asp"
end if
%>
<style type="text/css">
<!--
#apDiv1 {
	position:absolute;
	width:188px;
	height:324px;
	z-index:1;
	left: 23px;
	top: 57px;
}
-->
</style>
<link href="estilos.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style><table width="700" height="480" border="0" cellpadding="0" cellspacing="0">
  <tr>
	<td height="100" colspan="2" valign="top"><img src="img/barra_jobs.jpg" width="700" height="100" /></td>
  </tr>
  
  <!-- Menu Topo -->
  <tr>
  <td height="25" colspan="2" valign="top"><img src="titulo/tit_projetos.gif"></td>
  </tr> 
  <tr> 
	<td width="14%" valign="top"> </td>
	<td width="86%" height="42"><!--#include file="includes/links.asp"--></td>
  </tr>
  <tr> 
	<td valign="top"> 
	  <!--#include file="includes/projetos.asp"-->
	<td valign="top" nowrap class="link1_inativo" scope="col"><div align="left"> 
		<!-- #include file="config/conexao.asp"-->
<%

call abre_conectar

sql = "Select * from membros"  

set tab = cnn.execute(sql) %>
		  
</div>
		  <span class="titulo1">Usuário:</span> 
		  <%Response.write(Session("nome")) %>
				<a href="logout.asp" class="link1_inativo">(Sair)</a><br><br><br>

<%

'call abre_conectar


sql = "Select * from projetos "  

set tab = cnn.execute(sql) %>

<table width="100%" border="0">
  <tr>
	<td class="titulo1">Domingo</td>
	<td class="titulo1">Segunda Feira</td>
	<td class="titulo1">Terça Feira</td>
	<td class="titulo1">Quarta Feira</td>
	<td class="titulo1">Quinta Feira</td>
	<td class="titulo1">Sexta Feira</td>
	<td class="titulo1">Sábado</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
 
%>

</div>

</div>
</div><br><br>

	  </tr>
	</table></td>
  </tr>
</table>
Ele funciona, mas eu gostaria q só exibisse de segunda a sexta, com as datas correspondentes, q ignorasse a coluna de Sábado e Domingo ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Andei quebrando a cabeça aqui, mas com está meio corrido, vejamos se mais alguem pode ajudar:

 

tem está função

<%

function PegaDiaSemana(data)

strDiaSemana = "domingo,segunda-feira,terça-feira,quarta-feira,quinta-feira,sexta-feira,sábado"

arrayDiaSemana = split(strDiaSemana, ",")

PegaDiaSemana = arrayDiaSemana(weekday(data)-1)

end function

%>

 

e para chamar:

 

<%

Response.Write PegaDiaSemana(now)

%>

 

 

Pelo que entendi da duvida, é o sabado e o domingo que não quer que sejam exibidos, então se comparar a variavel dt com a arraydiasemana, provavelmente você terá o que quer, o unico porém é que quando faço isso dá tipos incompativeis, então temos que converter um dos dois parametros para fazer a comparação.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Bom dia, eu consegui resolver esse problema com um SCRIPT q eu consegui aki no forúm, passao pelo Mário Monterio.

 

<% Select Case Weekday(Date)
Case 1 %>

<table><tr>
<td class="titulo1"><%Response.Write(Date + 1)%></td>
<td class="titulo1"><% Response.Write(Date + 2)%></td>
<td class="titulo1"><% Response.Write(Date + 3)%></td>
<td class="titulo1"><% Response.Write(Date + 4)%></td>
<td class="titulo1"><% Response.Write(Date + 5)%></td>
</tr>

<tr>
<td class="titulo1"><%Response.Write("Segunda")%></td>
<td class="titulo1"><%Response.Write("Terça")%></td>
<td class="titulo1"><%Response.Write("Quarta")%></td>
<td class="titulo1"><%Response.Write("Quinta")%></td>
<td class="titulo1"><%Response.Write("Sexta")%></td>
</tr>
</table>

<%Case 2%>
<table>
<tr>
<td class="titulo1"><% Response.Write(Date)%></td>
<td class="titulo1"><% Response.Write(Date + 1)%></td>
<td class="titulo1"><% Response.Write(Date + 2)%></td>
<td class="titulo1"><% Response.Write(Date + 3)%></td>
<td class="titulo1"><% Response.Write(Date + 4)%></td>
</tr>

<tr>
<td class="titulo1"><%Response.Write("Segunda")%></td>
<td class="titulo1"><%Response.Write("Terça")%></td>
<td class="titulo1"><%Response.Write("Quarta")%></td>
<td class="titulo1"><%Response.Write("Quinta")%></td>
<td class="titulo1"><%Response.Write("Sexta")%></td>
</table>

<%Case 3%>
<table>
<tr>
<td class="titulo1"><% Response.Write(Date - 1)%></td>
<td class="titulo1"><% Response.Write(Date)%></td>
<td class="titulo1"><% Response.Write(Date + 1)%></td>
<td class="titulo1"><% Response.Write(Date + 2)%></td>
<td class="titulo1"><% Response.Write(Date + 3)%></td>
</tr>

<tr>
<td class="titulo1"><%Response.Write("Segunda")%></td>
<td class="titulo1"><%Response.Write("Terça")%></td>
<td class="titulo1"><%Response.Write("Quarta")%></td>
<td class="titulo1"><%Response.Write("Quinta")%></td>
<td class="titulo1"><%Response.Write("Sexta")%></td>
</tr>
</table>

<%Case 4%>
<table>
<tr>
<td class="titulo1"><% Response.Write(Date - 2)%></td>
<td class="titulo1"><% Response.Write(Date - 1)%></td>
<td class="titulo1"><% Response.Write(Date)%></td>
<td class="titulo1"><% Response.Write(Date + 1)%></td>
<td class="titulo1"><% Response.Write(Date + 2)%></td>
</tr>

<tr>
<td></td>
<td></td>
<td class="titulo1"><%Response.Write("Segunda")%></td>
<td class="titulo1"><%Response.Write("Terça")%></td>
<td class="titulo1"><%Response.Write("Quarta")%></td>
<td class="titulo1"><%Response.Write("Quinta")%></td>
<td class="titulo1"><%Response.Write("Sexta")%></td>
</tr>
</table>

<%Case 5%>
<table>
<tr>
<td class="titulo1"><% Response.Write(Date - 3)%></td>
<td class="titulo1"><% Response.Write(Date - 2)%></td>
<td class="titulo1"><% Response.Write(Date - 1)%></td>
<td class="titulo1"><% Response.Write(Date)%></td>
<td class="titulo1"><% Response.Write(Date + 1)%></td>
</tr>

<tr>
<td class="titulo1"><%Response.Write("Segunda")%></td>
<td class="titulo1"><%Response.Write("Terça")%></td>
<td class="titulo1"><%Response.Write("Quarta")%></td>
<td class="titulo1"><%Response.Write("Quinta")%></td>
<td class="titulo1"><%Response.Write("Sexta")%></td>
</tr>
</table>
<%End Select
%>
Valeu a atençao ai abraçaõooooo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Tranquilo tiozinho

 

Parabens

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