Calcular Juros Entre 2 Datas

[marcelotq]

olá.. preciso incluir no meu programa um calculo que mostre o valor do cheque com taxa de juros .. entre o dia q ele foi emitido até o dia de hoje... eu tentei utilizar alguma função mas não tive exito.. alguém sabe como fazer isso? Preciso da quantidade de dias entre 2 datas !

muito obrigado

Marcelo

[Kikonanet]

Olá,

Use a função DaysBetween (Declare no Uses DateUtils)

Abs.

Kiko

[marcelotq]

ola.. obrigado!!

eu tentei mas não consegui utilizar essa biblioteca.. eu coloquei uses DateUtils.. seria assim:

edit1.text := DaysBetween(21/05/2000,21/05/2005);

obrigado,

Marcelo

[Kikonanet]

Edit1.Text := DaysBetween(21/05/2000,21/05/2005);

A função DaysBetween retorna um valor inteiro (integer)

seria assim:

Edit1.Text := IntToStr(DaysBetween(21/05/2000,21/05/2005));

Obs.: Se eu não me engano usa-se assim: DaysBetween(21/05/2005,21/05/2000)

Abs.

Kiko

[marcelotq]

olá. estou fazendo isso e gera 0 como resultado.. porque sera?

edit1.Text := inttostr(DaysBetween(01/01/01,05/05/03));

to apanhando aqui.. faz tempo q não programo delphi !!

muito obrigado

Marcelo

[Kikonanet]

Marcelo,

Tenta assim

Edit1.Text := IntToStr(DaysBetween(StrToDate( '01/01/2001' ), StrToDate( '05/05/2003' )));

Abs.

Kiko

[marcelotq]

aee.. agora deu certo

muito obrigado ;-)

abração

[marcelotq]

ops, só uma coisinha.. como eu pego a data atual do sistema?

obrigado

[Kikonanet]

Marcelo,

você pode usar essa função que te retorna uma string

DateToStr(now);

Abs.

Kiko

[marcelotq]

obrigado

para calcular diferença entre os meses é só utilizar MonthBeteween?

obrigado

[Kikonanet]

para calcular diferença entre os meses é só utilizar MonthBeteween?

Isso mesmo.

Obs: MonthsBetween

Description

Call MonthsBetween to obtain the difference, in months, between two TDateTime values

Abs.

Kiko

[marcelotq]

aee. muito obrigado

deu certo! ;-)

abração

Marcelo