Código de calendário em português

[fabinhosantos 0]

Bom dia

 

Alguem sabe de um código de um calendário em português para que eu possa criar uma busca por eventos clicando na data do calendário?

 

obrigado pela atenção

[xanburzum 169]

tem um exemplo que postei no lab. de script, tem varias vizualizações, por mês, dia ,semana, você pode agendar eventos etc

[fabinhosantos 0]

tem um exemplo que postei no lab. de script, tem varias vizualizações, por mês, dia ,semana, você pode agendar eventos etc

 

Não entendi bem, copiei o codigo e o calendario foi gerando só que não há nenhum links nos dias...

 

O que eu preciso:

 

Exibir na minha pagina inicial um calendario do mes atual com um link em cada dia, onde sera passado os parametros de ano, mes e dia... dai na outra página eu verifico se há eventos para a data passada...

 

claro que se eu pudesse na pagina ir passando os meses seria ótimo, mas já servia exibir os dias do mês atual com um link...

[xanburzum 169]

ele vai ser assim, conforme a imagem abaixo, e você pode inserir vários eventos.

 

[fabinhosantos 0]

ele vai ser assim, conforme a imagem abaixo, e você pode inserir vários eventos.

 

 

Muito obrigado pela dica, mas não seria isso...

 

Se alguem tiver uma dica de como exibir um calendario do mes atual na pagina com link nos dias eu agradeço.

 

valeu

[xanburzum 169]

nesse code você tem essa opção também, veja se é o código correto

perceba que nessa imagem você tem os dias em azul, ou seja como links

[fabinhosantos 0]

nesse code você tem essa opção também, veja se é o código correto

perceba que nessa imagem você tem os dias em azul, ou seja como links

 

acredito que baixei errado então... voçê poderia postar o link aqui?

 

muito obrigado.... valeu!

[fabinhosantos 0]

nesse code você tem essa opção também, veja se é o código correto

perceba que nessa imagem você tem os dias em azul, ou seja como links

 

Consegui um codigo e adaptei para listar todos os dias do mes em sequencia.

 

fica assim:

 

<< Janeiro >>

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

 

Só que eu gostaria de colocar tambem uma legenda com a inicial de cada dia, tipo:

 

S D S T Q Q S S D S T Q Q S S D S T Q Q S S D S T Q Q S S D S

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

 

Tem como para cada dia do mês recuperar dinamicamente o dia da semana equivalente?

 

Segue o codigo:

 

<%
' ***Begin Function Declaration***
' New and improved GetDaysInMonth implementation.
' Thanks to Florent Renucci for pointing out that I
' could easily use the same method I used for the
' revised GetWeekdayMonthStartsOn function.
Function GetDaysInMonth(iMonth, iYear)
Dim dTemp
dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1))
GetDaysInMonth = Day(dTemp)
End Function

Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)
Dim dTemp
dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)
GetWeekdayMonthStartsOn = WeekDay(dTemp)
End Function

Function SubtractOneMonth(dDate)
SubtractOneMonth = DateAdd("m", -1, dDate)
End Function

Function AddOneMonth(dDate)
AddOneMonth = DateAdd("m", 1, dDate)
End Function
' ***End Function Declaration***


Dim dDate     ' Date we're displaying calendar for
Dim iDIM      ' Days In Month
Dim iDOW      ' Day Of Week that month starts on
Dim iCurrent  ' Variable we use to hold current day of month as we write table
Dim iPosition ' Variable we use to hold current position in table


' Get selected date.  There are two ways to do this.
' First check if we were passed a full date in RQS("date").
' If so use it, if not look for seperate variables, putting them togeter into a date.
' Lastly check if the date is valid...if not use today
If IsDate(Request.QueryString("date")) Then
dDate = CDate(Request.QueryString("date"))
Else
If IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Then
	dDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year"))
Else
	dDate = Date()
	' The annoyingly bad solution for those of you running IIS3
	If Len(Request.QueryString("month")) <> 0 Or Len(Request.QueryString("day")) <> 0 Or Len(Request.QueryString("year")) <> 0 Or Len(Request.QueryString("date")) <> 0 Then
		Response.Write "The date you picked was not a valid date.  The calendar was set to today's date.<BR><BR>"
	End If
	' The elegant solution for those of you running IIS4
	'If Request.QueryString.Count <> 0 Then Response.Write "The date you picked was not a valid date.  The calendar was set to today's date.<BR><BR>"
End If
End If

'Now we've got the date.  Now get Days in the choosen month and the day of the week it starts on.
iDIM = GetDaysInMonth(Month(dDate), Year(dDate))
iDOW = 1

%>


<html>
<head>
<style type="text/css">
.menu2:link {
FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #FF9900; FONT-FAMILY: Arial; TEXT-DECORATION: none;
}
.menu2:visited {
FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #FF9900; FONT-FAMILY: arial; TEXT-DECORATION: none;
}
.menu2:hover {
FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #FF9900; FONT-FAMILY: arial; TEXT-DECORATION: none;
}
.menu2:active {
FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #FF9900; FONT-FAMILY: arial; TEXT-DECORATION: none;
}
.textodiaatual 
{
FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #ffffff; FONT-FAMILY: Arial; TEXT-DECORATION: none;
}
.textomesatual 
{
FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #FF9900; FONT-FAMILY: Arial; TEXT-DECORATION: none;
}
</style>

</head>
<body leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<!-- Outer Table is simply to get the pretty border-->
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 width="680" HEIGHT="68">
<TR>
<TD BGCOLOR=#FFFFFF>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 width="680" HEIGHT="68">
   <TR ><TD ALIGN="center" HEIGHT="4" BGCOLOR=#FFFFFF></td></tr>

<TR HEIGHT="24">
	<TD ALIGN="center">
		<TABLE WIDTH=680 BORDER=0 CELLSPACING=0 CELLPADDING=0>
			<TR>
				<TD ALIGN="right" width="160"><A class="menu2" HREF="calendario.asp?date=<%= SubtractOneMonth(dDate) %>" target="exibir1"><<</A></TD>
				<TD ALIGN="center" width="130"><div class=textomesatual><%= MonthName(Month(dDate)) & "  " & Year(dDate) %></div></TD>
				<TD ALIGN="left" width="160"><A class="menu2" HREF="calendario.asp?date=<%= AddOneMonth(dDate) %>" target="exibir1">>></A></TD>
			</TR>
		</TABLE>
	</TD>
</TR>

<TR HEIGHT="36">
	<TD ALIGN="center">
		<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
		<tr>
<%


' Write days of month in proper day slots
iCurrent = 1
iPosition = iDOW
Do While iCurrent <= iDIM

' If the day we're writing is the selected day then highlight it somehow.
If iCurrent = Day(dDate) Then
	Response.Write vbTab & vbTab & "<TD BGCOLOR=#208BE1 align=center valign=middle><div class=textodiaatual><B>" & iCurrent & "</B></div></TD>" & vbCrLf
Else
	Response.Write vbTab & vbTab & "<TD align=center valign=middle><A class=menu2 HREF=""calendario.asp?date=" & Month(dDate) & "-" & iCurrent & "-" & Year(dDate) & """>" & iCurrent & "</A></TD>" & vbCrLf
End If


' Increment variables
iCurrent = iCurrent + 1
iPosition = iPosition + 1
Loop


%>
            </tr>
		</TABLE>
	</TD>
</TR>
<TR><TD ALIGN="center" height="4" BGCOLOR=#FFFFFF></td></tr>
</TABLE>
</TD>
</TR>
</TABLE>

</body>
</html>

[xanburzum 169]

e quiser , para fins didáticos , me manda um email, que te dou um reply, com o código, muito bom, serve como agenda também, tem a parte administrativa e tudo mais...