Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

celinho_macaense

[Resolvido] configurar data e hora no bd

Recommended Posts

Amigos tô quebrando a cabeça, mas não consigo alterar o formato da data e hora do meu bd. Ele mostra a hora assim: "notícia postada as 10:04:13" e a data assim: "27/8/2010" eu queria mudar para: hora "10h04min" ou "10:04h" e a data ficaria assim: "27/08/10" ou "27/ago/2010". Alguem sabe como posso fazer as devidas alterações??? Só lembrando que já tentei alterar no bd para hora abreviada, hora normal, data normal, data geral e nada mudou. Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Como estou de muitoooooooo bom humor hoje, e vendo que você é da minha cidade natal Macaé, fiz aqui 2 functions com os esquemas que esta precisando.

 

Boa sorte.

 

<%
Function DataLogica(data,modelo)

    data = data

    dia = Right("0" & DatePart("d", Data),2)
    mes = Right("0" & DatePart("m", Data),2)
    ano = Right("0" & DatePart("yyyy", Data),2)

    If modelo = 1 Then
        mes = mes
    Else
        If mes = 01 Then
            mes = "jan"
        ElseIf mes = 02 Then
            mes = "fev"
        ElseIf mes = 03 Then
            mes = "mar"
        ElseIf mes = 04 Then
            mes = "abr"
        ElseIf mes = 05 Then
            mes = "mai"
        ElseIf mes = 06 Then
            mes = "jun"
        ElseIf mes = 07 Then
            mes = "jul"
        ElseIf mes = 08 Then
            mes = "ago"
        ElseIf mes = 09 Then
            mes = "set"
        ElseIf mes = 10 Then
            mes = "out"
        ElseIf mes = 11 Then
            mes = "nov"
        ElseIf mes = 12 Then
            mes = "dez"
        End If
    End If
	
    DataLogica = dia & "/" & mes & "/" & ano

End Function

vData = "27/8/2010"

Response.Write DataLogica(vData,1)
Response.Write "<br />ou<br />"
Response.Write DataLogica(vData,2)

Response.Write "<br /><br />"

Function HoraLogica(hora,modelo)
    HoraLogica = Right("0" & Hour(hora),2) & ":" & Right("0" & Minute(hora),2) & modelo
End Function

vHora = "10:04:13"

Response.Write HoraLogica(vHora,"m")
Response.Write "<br />ou<br />"
Response.Write HoraLogica(vHora,"min")
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pô você é macaense? que bom essa nossa terra é muito boooa, mas deixa eu te falar uma coisa num deu certo ñ cara. Olha só, preciso fazer isto: meu formato no bd esta como data abreviada e o valor esta assim Data() no campo de hora a mesma coisa porém o valor padrão esta assim: Agora(), mas no site ele não reconhece estes valores.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Velho ao que me parece você não esta conseguindo aplicar devidamente a function que eu te passei.

 

Poste ai como esta ficando o seu code para podermos analisar.

 

[]'s

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tente usar isto no inicio da pagina que conterá a data:

'Session.LCID = 1046

cDate(string): converte a string para o formato date

EX.:

'data = "19-08-2006"
dataconvertida = CDate(data) ' ficou convertido para date
response.write dataconvertida

Resultado será 19/08/2006

 

date(): Devolve somente a data do servidor.

 

Ex.:

Data = date()
response.write date()

Now(): devolve a data e a hora atual do servidor de acordo com as configurações do mesmo (12/23/2002 5:38:31 PM - Padrão do Windows)

 

data_atual = now()

'Day(string): devolve o dia
'Ex.:
dia = Day(data_atual)
response.write dia

WeekDay(string): devolve um número correspondente ao dia da semana da string (1 = domingo, 2 = segunda-feira, 3 = terça-feira, etc...)

'Ex.:
dia_semana= WeekDay(data_atual)
response.write dia_semana

Month(string): devolve o mês da string

Ex.:

Mes = Month(data_atual)
response.write mes

Year(string): devolve o ano da string

Ex.:

ano = Year(data_atual)
response.write ano

time(): Devolve somente a hora do servidor.

Ex.:

hora = time()
response.write hora

Hour(string): devolve a hora

Ex.:

hora = Hour(data_atual)
response.write hora

Minute(string): devolve o minuto

Ex.:

minuto = minute(data_atual)
response.write minuto

Second(string): devolve o segundo

Ex.:

segundo = second(data_atual)
response.write segundo

Formatando Data e Hora

 

FormatDateTime(string,1): Formata a data ou o horário

Parâmetros:

1 = data no formato long (terça-feira, 9 de maio de 2006)

2 = data no formato short (9/5/2006)

3 = hora no formato das configurações regionais do servidor (16:05:15 - padrão do Windows)

4 = hora no formato 24 horas (16:05)

 

Ex.:

 

data_agora = FormatDateTime(data_atual,4)
response.write data_agora

Para exibir os dados do tipo data no formato brasileiro.

 

Function FormataData(Data)
 If Data <> "" Then
 FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data)
 End If
End Function

Response.Write FormataData(RS("data"))

 

OU assim:

 

dia=day(date())
mes=month(date())
if len(dia)=1 then
dia="0"&dia
end if
if len(mes)=1 then
mes="0"&mes
end if
Response.write dia & "/" & mes & "/"& year(date())

ou

data = Right("00" & Day(date),2)&"/"& Right("00" & Month(date),2)&"/" & Year(date)
response.write data

Data por Extenso

response.write FormatDateTime(Date(),vbLongDate)

ou

 

response.write FormatDateTime("10/12/2005",1)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Uma dúvida, como você testou o code que te passei?

 

Fiz da seguinte forma:

 

pus no topo da pagina assim:

<%
Function DataLogica(data,modelo)

    data = data

    dia = Right("0" & DatePart("d", Data),2)
    mes = Right("0" & DatePart("m", Data),2)
    ano = Right("0" & DatePart("yyyy", Data),2)

    If modelo = 1 Then
        mes = mes
    Else
        If mes = 01 Then
            mes = "jan"
        ElseIf mes = 02 Then
            mes = "fev"
        ElseIf mes = 03 Then
            mes = "mar"
        ElseIf mes = 04 Then
            mes = "abr"
        ElseIf mes = 05 Then
            mes = "mai"
        ElseIf mes = 06 Then
            mes = "jun"
        ElseIf mes = 07 Then
            mes = "jul"
        ElseIf mes = 08 Then
            mes = "ago"
        ElseIf mes = 09 Then
            mes = "set"
        ElseIf mes = 10 Then
            mes = "out"
        ElseIf mes = 11 Then
            mes = "nov"
        ElseIf mes = 12 Then
            mes = "dez"
        End If
    End If
        
    DataLogica = dia & "/" & mes & "/" & ano

End Function

vData = "27/8/2010"

Response.Write DataLogica(vData,1)
Response.Write "<br />ou<br />"
Response.Write DataLogica(vData,2)

Response.Write "<br /><br />"

Function HoraLogica(hora,modelo)
    HoraLogica = Right("0" & Hour(hora),2) & ":" & Right("0" & Minute(hora),2) & modelo
End Function

vHora = "10:04:13"

Response.Write HoraLogica(vHora,"m")
Response.Write "<br />ou<br />"
Response.Write HoraLogica(vHora,"min")
%>
lé onde aparece a data e hora fiz assim: <%Response.Write DataLogica(vData,2)%> e assim: <%Response.Write HoraLogica(vHora,"min")%> até chegou alterar porém ficom com a data de todos os artigos de 27/08 e a mesma hora tbm em todos os artigos de 10:04

Compartilhar este post


Link para o post
Compartilhar em outros sites

da mesma forma fiz assim:

<%

dia=day(date())

mes=month(date())

if len(dia)=1 then

dia="0"&dia

end if

if len(mes)=1 then

mes="0"&mes

end if

 

%>

<%

hora = Hour(data_atual)

response.write hora

minuto = minute(data_atual)

response.write minuto

%>

e a data ficou sempre a atual, ou seja, data de hoje no caso 09/09 mesmo as noticias postadas no dia anterior a hora ficou normalmente ex. 23:26:27

Compartilhar este post


Link para o post
Compartilhar em outros sites

você colocou a sua data que vem do BD na variável vData?

 

Por exemplo....

 

vData = [b]RS("data")[/b]

Não tem como não da certo, fiz o teste aqui em uma aplicação minha e ocorreu tudo ok.

Compartilhar este post


Link para o post
Compartilhar em outros sites

OK reslvido

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.