Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia pessoal!
Estou precisando inserir um aplicativo de calendário em meu site, e gostaria de saber se alguem já teve este problema, como fez pra resolver.
O que eu necessito, são aqueles calendários, geralmente disponíveis em sites de turismo, companhias aéras e rodoviárias, onde você seleciona a data de ida e volta e automaticamente o campo é preenchido.
Alguém tem algum sugestão de como posso conseguir isso??
Muito obrigado!
Thiago
Oi Douglas,
Muito obrigado pela ajuda!
Já tive alguns problemas também em utilizar códigos prontos, que bem melhor fazermos o nosso próprio...
Valeu!!!
Abraços
tem alguns exemplos que postei no fórum, vc pode usá-los, inclusive um que pode ser usado para agendar eventos e compromissos.
Bom dia Thiago, eu já passei muito por isso! Vou te falar a melhor solução: Crie sua solução! Digo isso pois já quebrei a cabeça tentando instalar aqueles firmeworks de calendario atravez de jquery e sempre me deu mais problemas do que solução... Vou postar abaixo um codigo que uso para gerar calendarios em ASP, a partir disso ai fica facil vc juntar com CSS e criar algo bacana!
<%
mes = request("mes")
ano = request("ano")
diaa = day(now)
an = year(now)
if mes = "" then
mes = month(now)
mesatual = 1
else
mesatual = 0
end if
if ano = "" then
ano = year(now)
end if
if mes = 12 Then
mes_Mais = 1 & "&ano=" & ano + 1
else
mes_Mais = mes + 1 & "&ano=" & ano
End if
if mes = 1 Then
mes_Menos = 12 & "&ano=" & ano - 1
else
mes_Menos = mes - 1 & "&ano=" & ano
End if
Select Case mes
Case 1,3,5,7,8,10,12
dias = 31
Case 4,6,9,11
dias = 30
Case Else
If ano Mod 4 = 0 And (ano Mod 100 <> 0 Or ano Mod 400 = 0) Then
dias = 29
Else
dias = 28
End If
End Select
Total = 1
Dia = 1
data = "1/" & mes & "/" & ano
X = weekday(cdate(data)) - 1
Colunas = Fix(dias + X) / 7
If Colunas > 5 Then
Colunas = 6
Else
Colunas = 5
End if
'abaixo criei um filtro para evitar o cara a acessar o calendario passado...
MyDate = "1/"&mes&"/"&ano
dif = DateDiff("m",Date(),CDate(MyDate))
if dif<0 then
response.redirect("index.asp?erro=Mes passado")
end if
%>