Montando Calendário
#1
Posted 20/05/2005, 10:18
Como posso pegar essa data e montar um calendário, provavelmente terei que separar os valores ( 19 ) ( 05 ) ( 2005 ), devo ter que usar o Split
Analista de Sistema Senior
Tel.: + 55 - (21) 3824-4698- Cel: + 55 - (21) 9127-2772
E-Mail: andre.figueiredo@veirano.com.br
Skype: andre.figueiredo.veirano.com.br
#2
Posted 20/05/2005, 11:37
para separar a data, ficaria assim:
data = "19/05/2005"
data_n = split(data,"/")
response.write "Dia:"&data_n(0)
response.write "<br>"
response.write "Mes:"&data_n(1)
response.write "<br>"
response.write "Ano:"&data_n(2)
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
#3
Posted 20/05/2005, 12:45
Acho que não vou conseguir fazer isso, vou pesquisar mais sobre Calendários, assim relacionar o Dia do Calendario na data cadastrada no Banco.
Valeu
Analista de Sistema Senior
Tel.: + 55 - (21) 3824-4698- Cel: + 55 - (21) 9127-2772
E-Mail: andre.figueiredo@veirano.com.br
Skype: andre.figueiredo.veirano.com.br
#4
Posted 20/05/2005, 12:55
vc tem que ter todos os dias do calendario na tela... e dai vc faz um simples IF para ver se o dia do calendario coinside com alguma data do seu banco, se sim, coloca em negrito, por exemplo...
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
#5
Posted 20/05/2005, 13:07
Não recomendaria isso, já que o servidor pode gravar a data diferentemente.como assim montar um calendario?
para separar a data, ficaria assim:data = "19/05/2005"
data_n = split(data,"/")
response.write "Dia:"&data_n(0)
response.write "<br>"
response.write "Mes:"&data_n(1)
response.write "<br>"
response.write "Ano:"&data_n(2)
Então eu Recomendaria pegar onde Dia fosse Day(Data) Mes = Month(Data) e Ano = Year(Data)..
Segunda Resposta. Você precisa montar o calendário?
#6
Posted 20/05/2005, 13:12
<%
session.LCID = 1046 ' = a Brasil
%>
só estiver usando um campo date, e o banco for mysql.. dai sim.. mas ele vai saber q ta granvando aaaa-mm-dd
dai é so mudar a posição do split...
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
#7
Posted 27/05/2005, 12:36
Ex. 24/05/2005 e 25/05/2005 ( Cadastro no Banco )
Ex. Link só está no dia 25/05/2005 ( No calendario )
dim dt 'Variável que controla a Data
if request("dt") = empty then
dt = Date '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
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
for lp = 1 to weekday(pd)- 1
gr(ct) = "<font color=003430 size=5 face=Times New Roman, Times, serif>"
ct = ct + 1
next
for lp = pd to ud
if lp = objRS("data") then ' Data do Bando de Dados
gr(ct) = "<a href="&objRS("link")&" target=_blank class=menu>" & day(lp) & "</a>"
else
gr(ct) = day(lp)
end if
ct = ct + 1
next
for lp = ct to 42
gr(lp) = "<font color=003422 size=2 face=Times New Roman, Times, serif>" 'Coloquei LP dentro do GR porque ele já
'tem o valor de CT (que é a posição
'do último dia + 1)
next
ct = 1
Analista de Sistema Senior
Tel.: + 55 - (21) 3824-4698- Cel: + 55 - (21) 9127-2772
E-Mail: andre.figueiredo@veirano.com.br
Skype: andre.figueiredo.veirano.com.br
#8
Posted 27/05/2005, 12:51
#9
Posted 27/05/2005, 12:53
Analista de Sistema Senior
Tel.: + 55 - (21) 3824-4698- Cel: + 55 - (21) 9127-2772
E-Mail: andre.figueiredo@veirano.com.br
Skype: andre.figueiredo.veirano.com.br
#10
Posted 27/05/2005, 13:38
#11
Posted 27/05/2005, 15:25
não seria porque seu formulário não está enviando uma data valida para essa sua pagina ??
dim dt 'declara a variavel dt
if request("dt") = empty then 'aqui vc diz se dt vier vazia do form .. então
dt = Date 'Traz data e hora '... dt será igual a data a atual
dai quando vc disse que aparece somente a ultima data é porque na verdade ele está aparecendo a data atual !!!
se não for isso posta ae
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)