Jump to content


Photo

Dia Da Semana


  • Faça o login para participar
5 replies to this topic

#1 dannibb

dannibb

    Turista

  • Usuários
  • 35 posts
  • Sexo:Feminino

Posted 16/04/2007, 22:47

Olá !!!

Estou com a seguinte dúvida : Tenho uma tabela que possui o campo data. Gostaria de saber como faço para puxar, através deste dado, o dia da semana. Já tentei o "weekday", mas ele me responde o número do dia (ex.: Domingo = 1 ; Segunda = 2 ; ...).
Gostaria que fosse mostrado o dia por escrito (domingo, segunda, etc). Como faço ?

Desde já, agradeço a ajuda.

Danielle :lol:

#2 Macfall

Macfall

    Novato no fórum

  • Usuários
  • 5 posts
  • Sexo:Não informado

Posted 17/04/2007, 00:21

Danni não sei se vai te ajudar, mas eu faço isso no meu site com php.
O resultado é esse: Boa noite, segunda-feira 16 de abril de 2007 . Sendo que você pode modificá-lo da maneria que achar mais conveniente . Segue o código abaixo.

[codebox]
<?php
$hr = date(" H ");
if($hr >= 12 && $hr<18) {
$resp = "Boa tarde,";}
else if ($hr >= 0 && $hr <12 ){
$resp = "Bom dia,";}
else {
$resp = "Boa noite,";}
echo "$resp";
echo " ";
setlocale(LC_TIME,'pt_BR','ptb');
echo strftime('%A %d de %B de %Y',mktime(0,0,0,date('n'),date('d'),date('Y')));
?>
[/codebox]
Espero ter ajudado.

#3 sk15

sk15

    Super Veterano

  • Usuários
  • 2071 posts
  • Sexo:Masculino
  • Localidade:SP - SP

Posted 17/04/2007, 00:49

De maneira simples vc pode usar o "Weekday" assim ...

<%
Dim Dias(7)
Dias(1) = "Domingo"
Dias(2) = "Segunda-feira"
Dias(3) = "Terça-feira"
Dias(4) = "Quarta-feira"
Dias(5) = "Quinta-feira"
Dias(6) = "Sexta-feira"
Dias(7) = "Sábado"

' Gera o dia do Array
Agora = Weekday(Date(), vbUseSystem)
DiaSemana = Dias(Agora)

Response.Write DiaSemana
%>

Mas assim depedendo do que for um JavaScript podera resolver mais facil ....

#4 Sollos

Sollos

    Normal

  • Usuários
  • 61 posts
  • Sexo:Masculino
  • Localidade:NI/RJ

Posted 17/04/2007, 00:59

Ainda mais prático.

1 - Recupere sua data, e converta-a para Date, algo como:
...
Dim data

data = CDATE(Rs("DataNoBd"))
'supondo DataNoBd = 28/03/2007

2 - FormatDateTime(variavel com a data, formato)
Response.Write(FormatDateTime(data, VbLongDate))

Saída: quarta-feira, 28 de março de 2007

#5 sk15

sk15

    Super Veterano

  • Usuários
  • 2071 posts
  • Sexo:Masculino
  • Localidade:SP - SP

Posted 17/04/2007, 01:09

Bem esse ultimo recurso tem um porém ....

O "FormatDateTime" se baseia pelas "configurações regionais" do Windows, sendo assim se vc estiver hospedado em um server que não possui a lingua padrão português com as devidas configurações ele irá escrever a mensagem em Inglês (em geral) ou a língua que estiver corrente, e dendendo do serve mesmo usando LCID (1046) não rola pois ele não tem o arquivo referente a esses formato (pt-BR).

A minha solução funciona independete da lingua que o serve esta rodando essa é a vantagem ....

#6 dannibb

dannibb

    Turista

  • Usuários
  • 35 posts
  • Sexo:Feminino

Posted 17/04/2007, 09:27

:kiss: Olá,

Obrigada a todos pela ajuda...

Consegui resolver com o código do SK15. Funcionou direitinho.

Mais uma vez, obrigada, vcs são uns amores !!!

[]'s
Danni.




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq