10 replies to this topic

[acooper]

Caros, tenho um sistema de Clipping, onde tenho uma coluna que grava DATA ( 19/05/2005 )
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

[Luis Otávio]

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)

[acooper]

Caro, na verdade queria aproveitar as Data já cadastradas e montar um calendário, onde o usuário bastava clicar no dia onde abriria o arquivo.
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

[Luis Otávio]

A solução de procurar mais, é a certa... hehe...

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...

[edmais]

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)

Não recomendaria isso, já que o servidor pode gravar a data diferentemente.

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?

[Luis Otávio]

se depender do servidor, eu posso hospedar minhas páginas na eslovenia, que a minha data vai ficar igual a do brasil, é só eu definir isso no meu codigo, com isso:

<%
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...

[acooper]

Caros, consegui esse calendario, sendo que no link da Data, só está buscando no ultimo dia do cadastro.

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

[edmais]

Dificilmente alguém irá ler o código. Portanto, seja mais breve colocando o erro, e a linha com erro. flws

[acooper]

Caro, o erro está nos 3 primeiros parágrafos, o código caso alguém queira entender melhor o que está acontecendo.

[edmais]

Qual a linha para a qual o erro aponta?

[viniciusjau]

e ae Acooper

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