Como subtrair uma data da outra

Delphi

16/01/2004

Gostaria de saber como devo fazer para converter e subtrair datas em variaveis ´STRING´

Exemplo:

Var xVencimento, xData, xFator : String;

xVencimento := ´16/01/2004´;

xData := ´10/01/2004´;

xFator := (xVencimento - xData);

Obrigado pela atenção!!!


Guilherme_mattos

Guilherme_mattos

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

16/01/2004

Colega,

Acho que o caminho mais curto seria formatar a string para mm/dd/aaaa e utilizar StrToDate. Exemplo:

xFator := (StrToDate(ReformateStr(xVencimento)) - StrToDate(ReformateStr(xData))); 


Onde ReformateStr é a rotina que você deve criar.


GOSTEI 0
POSTAR