Data (DayOfTheWeek): Dias úteis, Domingo e Sábado

Delphi

01/06/2004

Elaborei esta rotina para capturar o ´DiaTipo´ de uma determinada data, mas está dando diferença de uma dia.(Ex: Se for Domingo, o sistema acusa que é sábado)

function TUnitFuncoes.DiaTipo(parDate: TDate): String;
Var
  IntRep : Word;
begin
  IntRep := DayOfTheWeek(parDate);
  Case IntRep Of
    1 : Result := ´DOM´; // Domingo
    2..6 : Result := ´DUT´; // Dias Úteis
    7 : Result := ´SAB´; // Sábado
  End;
end;

:x :x Alguém pode ajudar aê !!!!!!!!!


Rômulo Barros

Rômulo Barros

Curtidas 0

Respostas

Rodolpho123

Rodolpho123

01/06/2004

Olá Undeclared Identfier,

Eu costumo usar o FormatDateTime. assim:
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(FormatDateTime(´dddd´,date)); //exibe o dia da semana conforme a data do seu computador, ex: terça-feira end;



GOSTEI 0
Rômulo Barros

Rômulo Barros

01/06/2004

Olá Undeclared Identfier, Eu costumo usar o FormatDateTime. assim: [quote:3e02bf087f] procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(FormatDateTime(´dddd´,date)); //exibe o dia da semana conforme a data do seu computador, ex: terça-feira end;
[/quote:3e02bf087f]

Muito obrigado, Rodolfo123... Funcionou certinho :P
Passarei a utilizar o seu método, agora !!!!


GOSTEI 0
Rodolpho123

Rodolpho123

01/06/2004

Olá Undeclared Identifier,

Se vc desejar conhecer mais formatos do FormatDateTime, dê uma olhada no Date-Time Format Strings do help do Delphi.


GOSTEI 0
Rômulo Barros

Rômulo Barros

01/06/2004

Tudo bem, Rodolfo123.. sempre utilizo o help do delphi, afinal de contas, é o melhor tuturial que temos..

Voltando ao assunto, consegui.. Vejam:

Perceba que, no lugar de [b:e572945578][color=red:e572945578]DayOfTheWeek[/color:e572945578][/b:e572945578] (Primeira postagem), coloquei o [b:e572945578][color=red:e572945578]DayOfWeek[/color:e572945578][/b:e572945578];

function TUnitFuncoes.DiaTipo(parDate: TDate): String; 
Var 
  IntRep : Word; 
begin 
  IntRep := DayOfWeek(parDate); 
  Case IntRep Of 
    1 : Result := ´DOM´; // Domingo 
    2..6 : Result := ´DUT´; // Dias Úteis 
    7 : Result := ´SAB´; // Sábado 
  End; 
end;



GOSTEI 0
POSTAR