ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

data

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
rzzanatta
Novato
Novato


Registrado: Segunda-Feira, 18 de Setembro de 2006
Mensagens: 63

MensagemEnviada: Qui Ago 28, 2008 11:17 am    Assunto: data Responder com Citação

Olá pessoal...
Eu queria saber como faço pra extrair o dia da semana de uma data,
exemplo:
tenho a data 28/08/2008 e gostaria de saber se é segunda-feira, terça-feira, etc..
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
IgorRyko
Membro Junior
Membro Junior


Registrado: Segunda-Feira, 12 de Mai de 2008
Mensagens: 354
Localização: São Paulo - SP

MensagemEnviada: Qui Ago 28, 2008 11:36 am    Assunto: Responder com Citação

Dá uma olhada no help sobre a função DayofWeek

Vai resolver seu problema.

Abs

Igor
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
temuchin
Profissional
Profissional


Registrado: Segunda-Feira, 12 de Dezembro de 2005
Mensagens: 584
Localização: Marte

MensagemEnviada: Qui Ago 28, 2008 11:45 am    Assunto: Responder com Citação

E aí...


Use a função DayOfTheWeek.

function DayOfTheWeek ( const Date : TDateTime ) : Integer;

Ela vai retornar um inteiro para cada dia da semana
1 = Segunda
2 = Terça
3 = Quarta
4 = Quinta
5 = Sexta
6 = Sábado
7 = Domingo

Aí você pode usar algo assim:
Código:

var
  data  : TDateTime;
  dia    : array[1..7] of string;

begin
  dia[1] := 'Segunda-feira';
  dia[2] := 'Terça-feira';
  dia[3] := 'Quarta-feira';
  dia[4] := 'Quinta-feira';
  dia[5] := 'Sexta-feira';
  dia[6] := 'Sábado';
  dia[7] := 'Domingo';

  data := date;

  ShowMessage( 'Hoje é '+dia[ DayOfTheWeek( data ) ] );
end;


Espero que ajude.

Abraço
_________________
A santidade dos pobres é invenção dos ricos

if ( topico.resolvido = true ) then begin
    titulo.caption := topico.titulo + ' [RESOLVIDO] ';
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB