Como calcular diferença entre duas datas

[andersonkso]

Olla boa Tarde, to tentado calcular a diferença de dias, semanas, e mes e se for o caso ate de ano, porem estou tendo erros no codigo.

Já tentei esses dois códigos e da erro, alguém ja fez algo parecido no xmaker e poderia me ajudar.
Codigos ja usados:
1
begin
{codificação...}
Edit1Change := IntToStr(DaysBetween(TabGlobal.DEVENTOS.EV_INICIO.Conteudo ,TabGlobal.DEVENTOS.EV_FIM.Conteudo ));
end;

Codigo 2

Function Calcula(Periodo : Integer) : Integer ;
var
intCont : Integer ;
begin
intCont := 0 ;
Repeat
Inc(intCont) ;
DataFinal := IncMonth(DataFinal,Periodo * -1) ;
Until DataFinal < DataInicial ;
DataFinal := IncMonth(DataFinal,Periodo) ;
Inc(intCont,-1) ;
Result := intCont ;
End ;
begin
if DataFinal <= DataInicial then
begin
Anos := 0 ;
Meses := 0 ;
Dias := 0 ;
exit ;
end;
Anos := Calcula(12) ;
Meses := Calcula(1) ;
Dias := Round(DataFinal - DataInicial) ;
end;

nenhum dos dois deu certo,...
Abraços
Xmaker 5
Delphi 7

[Dimmy Angelo]

Olá amigo, segue ai um pequeno código que você podera implementar.

if TabGlobal.Dpedidos.DATA.Conteudo <= Dt_Vazia then
Result := Date - TabGlobal.Dpedidos.DATAF.Conteudo
else
Result := TabGlobal.Dpedidos.DATAF.Conteudo - TabGlobal.Dpedidos.DATA.Conteudo ;
if Result < 0 then
Result := 0;

// Data = Data incial
// DataF = Data Final

Insira este procedimento em um outro campo definida na Tabela. Ex.: Resultado

Ou se preferir coloque somento o procedimento abaixo:

Result := TabGlobal.Dpedidos.DATAF.Conteudo - TabGlobal.Dpedidos.DATA.Conteudo ;
// Inserindo este procedimento apenas ele não vai verificar se o campo data esta vazio.

[andersonkso]

Obrigada!!
Vou tentar aqui ...

[DuduRazoni]

fiz como madou o código, mas ele fica dando esse erro aí o que pode ser ?

segue a imagem da tela em anexo.

Atenciosamente,
Durvaldo Razoni.

[DuduRazoni]

Bom Dia a todos,

só queria saber quando é que alguém fará a gentileza de me tirara essa dúvida, que há postei há mais de 2 semanas, por favor
vamos ajudar uns aos outros, todos ganham com isso.

Abraço.

Durvaldo Razoni.