SABER QUANTOS DIAS TEM ENTRE UMA DTA E OUTRA?

Veja se dá certo desse jeito :

Data_Ini := DateToStr(Data_Inicial);
Data_fim := DateToStr(Data_Final);
Dia_i := Copy(Data_ini, 1,2);
Dia_f := Copy(Data_fim, 1,2);
total_dias := dia_f - dia_i ;

Se der certo, bom.
Se não, valeu a tentativa.

[]´s
Gustavo Tóla

Veja se dá certo desse jeito :

Data_Ini := DateToStr(Data_Inicial);
Data_fim := DateToStr(Data_Final);
Dia_i := Copy(Data_ini, 1,2);
Dia_f := Copy(Data_fim, 1,2);
total_dias := dia_f - dia_i ;

Se der certo, bom.
Se não, valeu a tentativa.

[]´s
Gustavo Tóla

CAra, tb precisei dessa funcao e tive q criar a minha. pega ae.

function TForm1.DateDiff(DataHora1: string; DataHora2 : string; Tipo:integer): string;
var
data : real;
hora,minuto,segundo,milesegundo : word;
begin
ShortDateFormat := ´dd/mm/yyyy´;
{ Tipos :
1 = dias e hora : ddd hh:mm:ss
2 = Minutos : 3954546546
3 = Hora : hh:mm:ss }

Try
data :=StrToFloat(FLOATTOSTR(StrToDatetime(DataHora2))) - StrToFloat(FLOATTOSTR(StrToDatetime(DataHora1)));
DecodeTime(data,hora,minuto,segundo,milesegundo);
Case Tipo Of
1 : Begin // dias e hora
if trunc(data) > 0 then
Result := Floattostr(trunc(data)) +´ dia(s) ´+InttoStr(hora)+´ hora(s) ´+InttoStr(minuto)+´ Minuto(s) e ´+InttoStr(segundo)+´ Segundo(s)´
else
Result := InttoStr(hora)+´ hora(s) ´+InttoStr(minuto)+´ Minuto(s) e ´+InttoStr(segundo)+´ Segundo(s)´
End;
2: Begin // minutos
hora := hora + (trunc(data)*24);
minuto := minuto + hora * 60 + (segundo div 60);
Result := InttoStr(minuto)+´ Minutos e ´+ InttoStr(segundo mod 60)+´ segundos(s)´;
End;
else // hora
begin
hora := hora + (trunc(data)*24);
Result := InttoStr(hora)+´ hora(s) ´+InttoStr(minuto)+´ Minuto(s) e ´+InttoStr(segundo)+´ Segundo(s)´;
End;
End;
{Testando conversao de datas
StrToDatetime(FLOATTOSTR(StrToFloat(DataHora1)));
StrToDatetime(FLOATTOSTR(StrToFloat(DataHora1)));}

Except {on EConvertError do
//Result :=´Parâmetros inválidos´;}
End;

end;
:lol:

Caro Felipe,

tente usar esse comando


(trunc(datafinal.DateTime - datainicial.DateTime )



[quote:19e712d0aa=´Felipe Sanches´]BOM DIA PESSOAL .

GOSTARIA DE SABER COMO FAÇO PARA OBTER A QUANTIDADE DE DIAS ENTRE UMA DTA E OUTRA.

SE ALGUEM PUDER ME AJUDAR EU AGRADEÇO
ATÉ MAIS[/quote:19e712d0aa]