Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal to fazendo uma agenda semanal e gostária de receber uma ajuda para começar.
Quero saber se alguem tem ideia de como pegar os dias da semana corrente
para que dai eu possa pesquisar no banco os dados relacionado aos dias da semana.
Alguem tem ideia de como pegar os dias da semana para que eu possa começar pq procurei na net só tem calendário mensal.
Obrigado pela atenção e ajuda
Olá Filipe busquei lá tmbm mas não achei
Achei o seguinte códiogo na net ele cria uma lista com os dias da semana só que você tem que passar o ultimo dia da semana
Agora tinha que ver um geito de passar esse ultimo dia da semana dinamico e colocar as consultas do banco de dados dentro dos loop
Quem puder ajudar será bem util isso para todos abraços.
<ul>
<%
'//: POR BRUNO MORAIS ALISTE
'//: MB_MORAIS@HOTMAIL.COM
Dim DataInicio, DataFim, DataAtual
'Mês/Dia/Ano
DataInicio = #02/14/2009# ' A DATA DE INÍCIO
DataAtual = Date() -1
DataFim = DataInicio
Do
DataAtual = DataAtual + 1
Response.write "<li>" & DataAtual & "</li>"
Loop Until DataAtual = DataFimNesse script que criei eu pego a data e faço passo a passo de um calendário!
dá uma procurada no forum, que postei uma parte de um calendario, para você ver apenas a semana, os eventos da mesma e fazer um busca no bd apartir disso, tenho um calendario com visualizações por dia, semana,mes, ano , o qual disponibilizei apenas a parte interessada noi forum, vê ae, qualquer coisa retorna...
Olá Xanburzum Bom dia, Nossa procurei aqui no forum e não achei será que poderia me passar o link d topico ou quem sabe me mandar esse codigo para que eu possa ver como funciona para montar o calendario semanal com os eventos do banco de dados... ficaria muito grato. abraços...
viu o que passei?
Oi Ted K vi sim mas não dei conta de entender a logica por isso queria ver esse do xanburzum pq assim ver os dias da semana corrente deu certo só preciso agora passar o ultimo dia da semana para rodar o script e ver como pego os registro do banco dentro dos response.write pois quero montar a agenda assim
HOJE | Terça | Quarta | Quinta | Sexta | Sabado | Domingo
DADOS|DADOS|DADOS|DADOS|DADOS|DADOS|DADOS|
DADOS|DADOS|DADOS|DADOS|DADOS|DADOS|DADOS|
DADOS|DADOS|DADOS|DADOS|DADOS|DADOS|DADOS|
quero rodar a pesquisa na base de acordo com os dias da semana
este é o trceho do código onde recupero apenas os eventos da semana
'****************************************************************************
*****
'****** Draw Week View *******************************************************
'****************************************************************************
*****
Sub DrawWeekView
%>
<script LANGUAGE=JAVASCRIPT>
function goDeleteEvent(CurrentLink){
if (confirm('Tem certeza de que deseja apagar o evento selecionado? ATENÇÃO! Isso não pode ser desfeita!') == true){
window.location.reload(CurrentLink);
}else{
return false;
}
}
</SCRIPT>
<%
WeekDayTitleName = Weekday(WorkingDate, 1)
WorkingDate = DateAdd("w", 1-WeekDayTitleName, WorkingDate)
response.write "<TABLE WIDTH='100%' CELLPADDING=5 CELLSPACING=0 BORDER=0 STYLE='font-family:" & MainFontFace & ";'>"
response.write "<TR>"
response.write "<TD VALIGN=TOP>"
TitleToWrite = "Eventos entre: <font color=yellow>" & FormatDateTime(WorkingDate,1) & "</font> and <font color=yellow>" & FormatDateTime(DateAdd("d",6,WorkingDate),1) & "</font>"
Call DrawTitle("100%","24",TitleToWrite,"11pt")
Call DrawHLine(2)
For I = 1 to 7
If I > 1 then
WorkingDate = DateAdd("d",1,WorkingDate)
End If
TitleToWrite = "Events for: <font color=yellow>" & FormatDateTime(WorkingDate,1) & "</font>"
Call DrawSmallTitle("100%","18",TitleToWrite,"9pt")
If Session("CalendarFilter") > 0 then
SQL = "SELECT * FROM Cal_Events WHERE Cal_EventCalendarID = "& Session("CalendarFilter") &" AND Cal_EventDate = #" & WorkingDate & "# ORDER BY Cal_EventStartTime"
Else
SQL = "SELECT * FROM Cal_Events WHERE Cal_EventDate = #" & WorkingDate & "# ORDER BY Cal_EventStartTime"
End If
Set RS=dbc.execute(SQL)
If RS.EOF then
response.write "<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr><td width=30></td><td>"
response.write "<font style='font-family:" & MainFontFace & ";font-size:8pt;'>"
response.write "Não existem eventos nesta data."
response.write "</font>"
response.write "</td></tr></table>"
'------------------------------------------------------------------------------------------------
End If
Do While NOT RS.EOF
response.write "<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr><td width=30></td><td>"
response.write "<table width='100%' cellpadding=3 cellspacing=0 border=0 style='border:1px solid " & LightLineColor & ";'>"
response.write "<tr class='EventTitleBar'>"
response.write "<td colspan=2>"
response.write RS("Cal_EventTitle")
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
If RS("Cal_EventImage") <> "" then
response.write "<td width=48 valign=top>"
response.write "<img src='" & ImageFolder & "48/" & RS("Cal_EventImage") & "' BORDER=0>"
response.write "</td>"
Else
response.write "<td width=48 valign=top>"
response.write "<img src='" & ImageFolder & "blank.gif' BORDER=0>"
response.write "</td>"
End If
response.write "<td valign=top style='font-family:" & MainFontFace & ";font-size:8pt;'>"
response.write "<table width='100%' cellpadding=2 cellspacing=0 border=1 bordercolor=white style='border-collapse:collapse;'>"
response.write "<tr><td valign=top class='EventLeftTD'>Data:</td><td valign=top class='EventRightTD'>" & FormatDateTime(RS("Cal_EventDate"),1) & "</td></tr>"
response.write "<tr><td valign=top class='EventLeftTD'>Titulo:</td><td valign=top class='EventRightTD'>" & RS("Cal_EventTitle") & "</td></tr>"
response.write "<tr><td valign=top class='EventLeftTD'>Descrição:</td><td valign=top class='EventRightTD'>" & RS("Cal_EventBody") & "</td></tr>"
If RS("Cal_EventAllDay") = "YES" then
response.write "<tr><td valign=top class='EventLeftTD'>Hora:</td><td valign=top class='EventRightTD'>ALL DAY EVENT</td></tr>"
Else
response.write "<tr><td valign=top class='EventLeftTD'>Hora:</td><td valign=top class='EventRightTD'>" & FormatTime(RS("Cal_EventStartTime")) & " - " & FormatTime(RS("Cal_EventEndTime")) & "</td></tr>"
End If
If Session("Cal_UserID") = 1 then
response.write "<tr><td valign=top class='EventLeftTD'>ADMIN:</td><td valign=top class='EventRightTD'>"
response.write "<A HREF='calendar.asp?action=editevent&eventID=" & RS("Cal_EventID") & "' onclick=""NewWindow(this.href,'aspWebCalendarADDEVENT','500','540','no');return false;"">EDIT</a> | "
response.write "<A HREF='calendar.asp?action=deleteevent&eventID=" & RS("Cal_EventID") & "&prevaction=" & request.querystring("action") & "&date=" & request.querystring("date") & "' onclick='goDeleteEvent(this.href);return false;'>DELETE</A>"
response.write "</td></tr>"
End If
'If RS("Cal_EventLink") <> "" then
' response.write "<tr><td valign=top class='EventLeftTD'>Link:</td><td valign=top class='EventRightTD'>" & RS("Cal_EventLink") & "</td></tr>"
'Else
' response.write "<tr><td valign=top class='EventLeftTD'>Link:</td><td valign=top class='EventRightTD'>NONE</td></tr>"
'End If
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "</table><font style='font-size:6pt;'><br></font>"
response.write "</td></tr></table>"
'---------------------------------------------------------------------------------------------------
RS.MoveNext
Loop
RS.Close
Set RS=Nothing
Next
response.write "</TD>"
response.write "<TD WIDTH='" & MiniCalendarWidth & "' ALIGN=RIGHT VALIGN=TOP>"
PreviousMonth = DateAdd("m",-1,WorkingDate)
NextMonth = DateAdd("m",1,WorkingDate)
Call DrawMiniCalendar(PreviousMonth)
Call DrawMiniCalendar(WorkingDate)
Call DrawMiniCalendar(NextMonth)
response.write "</TD>"
response.write "</TR>"
response.write "</TABLE>"End Sub
dá uma olhada no que te mandei...
Ja procurou no laboratorio de scripts ?
Verifica no de javascript tambem tem umas coisas desta!