F�rum Descobrir o dia da semana #384739

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

Curtir t�pico

+ 0

Responder

Posts

26/08/2010

Marco Salles

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)));

Responder

Gostei + 0

30/08/2010

Leonardo Xavier

Exatamente isso!

Muito obrigado MARCO ANTONIO SALLES.

Responder

Gostei + 0