Descobrir o dia da semana

Delphi

26/08/2010

Precisava sabe r quantas segundas , quantas terças ,.... existe em um intervalo de datas.

Segue a procedure que estou usando

procedure Tassinatura.SpeedButton2Click(Sender: TObject);
var
Semanas,Dias: integer;
TotDias,DiasPorSemana,ano: extended;
begin
TotDias := Trunc(DateTimePicker2.Date - DateTimePicker1.Date);
DiasPorSemana := (TotDias/7);
Semanas := Trunc(DiasPorSemana);

end;

Leonardo Xavier

Leonardo Xavier

Curtidas 0

Respostas

Marco Salles

Marco Salles

26/08/2010

Precisava sabe r quantas segundas , quantas terças ,.... existe em um intervalo de datas.

Segue a procedure que estou usando

procedure Tassinatura.SpeedButton2Click(Sender: TObject);
var
Semanas,Dias: integer;
TotDias,DiasPorSemana,ano: extended;
begin
TotDias := Trunc(DateTimePicker2.Date - DateTimePicker1.Date);
DiasPorSemana := (TotDias/7);
Semanas := Trunc(DiasPorSemana);

end;

???     seria isto que ptocuras ???   
type
TDiaSemana = (ftsegunda,ftterca,ftquartamftquinta,ftsexta,ftsabado,ftdomingo);
function Retorno(datai,dataf:Tdate;DiaSemana:TDiaSemana):integer;
begin
  result:=Trunc(dataf - datai) div 7;
  if dataf > datai Then
  begin
   if (DayOfTheWeek(datai) <= integer(DiaSemana)+1)or
      (DayOfTheWeek(dataf) <= integer(DiaSemana)+1)
       then
      result:=result+1;
  end;
  para chamar   
 showmessage(inttostr(
  Retorno(DateTimePicker1.Date,DateTimePicker2.Date,ftsegunda)));
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

26/08/2010

Exatamente isso!

 Muito obrigado MARCO ANTONIO SALLES.
GOSTEI 0
POSTAR