Somar 1 na data digitada...
Tenho duas variaveis datas ... e tenho q fazer o seguinte...
a 1 eh o dia inicial e a 2 o dia final... tenho q repertir uma rotina até que o dia inicial chegue a ser dia final... como faço isso ??
detalhe... vou precisar amazenar todos os dias que forem passando pela 1 variavel ateh chegar a segunda !!
agradeco
a 1 eh o dia inicial e a 2 o dia final... tenho q repertir uma rotina até que o dia inicial chegue a ser dia final... como faço isso ??
detalhe... vou precisar amazenar todos os dias que forem passando pela 1 variavel ateh chegar a segunda !!
agradeco
Deusem
Curtidas 0
Respostas
Japa
01/09/2003
function Tform.Data(Data_ini: Tdate, Data_final: Tdate): integer;
var contador: integer;
begin
contador:=0;
while Data_ini<>Data_final do
begin
if Data_ini<>Data_final then
begin
incdate(Data_ini);
contador:=contador+1;
end;
end;
result(contador-1);
end;
Bom amigo eu acho que esta certo... e não sei se e assim o ´IncDate´..
(obs: não deu para testar porque estou no meu trabalho não tenho o delphi aqui)
Bom tomara que esteja certo... até mais :wink:
GOSTEI 0