ActiveDelphi

[bonidog]

Boa tarde a todos

Estou com uma duvida sobre como eu poderia trabalhar com datas no delphi. As datas estariam em dois DBedits com mascaras de datas, eu preciso pegar o valor desses dois DBedits e subtrailos e assim tendo o resultado em meses e atribuindo um valor a outro DBedit que com o resultados da subtração das datas entraria em um um If para gerar o comando correto.

Simplificando. 04/01/2010 - 04/04/2010 = 3 meses

if (x >=1 and x <3>3 and x <=6)
DBeditResult = resultado de 3 a 6 meses)


Espero ansiosamente a Ajuda de vocês

Obrigado.

[joemil]

coloque no uses: DateUtils

e faca assim:

Meses := MonthsBetween(Data1, Data2);
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[bonidog]

Hummm
eu declarei no uses certinho

e na hora de funcionar, deu um erro

coloque assim

DBEdit7 := MonthsBetween(DBEdit8, DBEdit9);

DBEdit7 é para aonde eu quero q vá o resultado (3)
sera que eu tenho que converter os DBEdits? e como faço isso.

Mas ele nãoe sta nem compilando, e esta dando o seguinte erro:

[Error] untIniciarExposicao.pas(97): Incompatible types: 'TDateTime' and 'TDBEdit'

obrigado pela ajuda

estou no aguardo.

[pestana]

DBEdit7.Fied.AsInteger:= MonthsBetween(DBEdit8.Field.AsDateTime,DBEdit9.Field.AsDateTime);
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.

[joemil]

vc tem q gravar direto na tabela, e nao no dbedit, e o campo tem q ser integer

Table1.FieldByName('Campo_meses').Value := MonthsBetween(Data1, Data2);
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[bonidog]

Tópico RESOLVIDO

Obrigado.
Tanto a dica do Pestana como a do Joemil funcionaram corretamente.

Obrigado Pessoal

Até +