Fórum Dúvida num while ou for #348524
06/11/2007
0
Tenho uma função que me traz a quantidade de horas trabalhadas num dia. Preciso fazer com que ela me apure durante um período. Estou com dificuldades de fazer um for ou while num periodo e ela vir apurando dia-a-dia.
Paulo
Curtir tópico
+ 0
Responder
Posts
06/11/2007
Mayron Cachina
detalhe mais oq vc quer... oq precisa....
Responder
Gostei + 0
06/11/2007
Paulo
Achei: Usei um Memo só como ilustração, mas é isso aí:
[color=green:ee986d71dc]var
ini,fim:String;
data:TDateTime;
begin
Memo1.Clear;
ini := FormatDateTime(´dd/mm/yyyy´, now-10);
fim := FormatDateTime(´dd/mm/yyyy´, now);
data := StrTodate(ini);
while data <=StrTodate(fim)do
begin
Memo1.Lines.Add(DateTostr(data));
data := data+1;
end;
end;[/color:ee986d71dc]
[color=green:ee986d71dc]var
ini,fim:String;
data:TDateTime;
begin
Memo1.Clear;
ini := FormatDateTime(´dd/mm/yyyy´, now-10);
fim := FormatDateTime(´dd/mm/yyyy´, now);
data := StrTodate(ini);
while data <=StrTodate(fim)do
begin
Memo1.Lines.Add(DateTostr(data));
data := data+1;
end;
end;[/color:ee986d71dc]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)