Diferença de datas

[Priscila Camargo 0]

Olá! Como faço para calcular a diferença de datas em Delphi (ou Pascal)? Sem utilizar funções pré-definidas. Por favor, me dêem uma luz!!Obrigada.

[marcio.theis 3]

Use o comando Round

 

Round(Data1 - Data2)

Vai lhe retornar em n° de dias.

[Hugo Slepicka 0]

Faz Data1-Data2 !!!!se elas estiverem em formato de string ai você converte e faz a subtração...EX.:Var Data3 : TDate;Begin Data3 := (StrToDate(Data1) - StrToDate(Data2));end;Creio que isso poderá te ajudar...qq coisa posta mais detalhes aew...

[Priscila Camargo 0]

Agradeço muito, mas essas dicas ñ me ajudaram muito pois as datas estão como tipo registro (divididos em três campos: dia, mês e ano) e ñ string. Poderia trabalhar com string (seria + simples) porém, esta função é pra um trabalho e nós estudantes fomos proibidos de usar funções pré-definidas, transformar em string, essas coisas... Alguma outra sugestão? Agradeço muito!

[marcio.theis 3]

No caso você quer dizer que deve de fazer é pegar o Dia Mês e Ano e diminuir por uma outra data para achar a diferença de dias, seria isto ? Por qual data seria diminuído ? Poderia postar o seu código para que todos consigam entender melhor a sua situação ?