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

Question

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)[code:1:6f2764f72b]function TUnitFuncoes.D...

Rodolpho123 · Answer

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;

R�mulo Barros · Answer

[quote:3e02bf087f=�Rodolpho123�]Ol� Undeclared Identfier,   Eu costumo usar o FormatDateTime. assim:[quote:3e02bf087f]procedure TForm1.Button1Click(Sender: TObject);beginShowMessage(FormatDateTime(�dddd�,date)); //exibe o dia da semana conforme a data do seu computador, ex: ter�a-feiraend;[/quote:3e02bf087f][/quote:3e02bf087f]Muito obrigado, Rodolfo123... Funcionou certinho   :P Passarei a utilizar o seu m�todo, agora !!!!...

Rodolpho123 · Answer

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

R�mulo Barros · Answer

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;

F�rum Data (DayOfTheWeek): Dias �teis, Domingo e S�bado #235436