muy buena tu funcion, yo tambien modifique un poco el codigo y lo adapte a lo que yo queria, que es contar los sabados y domingos de un periodo de fechas, les dejo el codigo para que lo chequen y me den sus sugerencias para mejorarlo o acortarlo je je
Cita:
function cuentasabadosydomingos(fechaInicial:Tdatetime;fechafinal:Tdatetime):Integer;
var
Dias:Integer;
e,c:integer;
totaldominsaba:integer;
begin
Dias := Trunc (fechafinal) - Trunc (fechainicial);
dias:=dias+1;
totaldominsaba:=0;
c:=(Dias-1);
for e:=0 to c do
begin
if (DayOfTheWeek(fechaInicial)=6) or(DayOfTheWeek(fechaInicial)=7) then
begin totaldominsaba:=totaldominsaba+1;
end; fechaInicial:=IncDay(fechaInicial,1);
end;cuentasabadosydomingos:=totaldominsaba;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
e3.Text:=inttostr(cuentasabadosydomingos(DateTimePicker1.date,DateTimePicker2.date));
end;
|