Fórum IncMonth não funciona! #375987
14/10/2009
0
dtincrementa: TDateTime;
dtincrementa := StrToDateTime(MskDtPagamento.Text);
IncMonth(dtincrementa, -1); // 14/10/2009
Mando adicionar 1 mes e não adiciona, repete a data 14/10/2009
IncMonth(dtincrementa, 1);
Fausto.malheiros
Curtir tópico
+ 0Posts
14/10/2009
Fausto.malheiros
Gostei + 0
14/10/2009
Marco Salles
Olhe como esta definido a função
Vc esta passando um parametro por valor e esta parametro é constante.
Logo o valor de dtincrementa não sera alterado
se porém vc definido assim ( por referencia... )
teria bem mais chance do valor de dtincrementa sofre-sse alguma
alteração
Pois bem , visto estes detalhes tecnicos , não sei se fui claro o suficiente
Fala assim
dtincrementa:=IncMonth(dtincrementa, -1); // 14/10/2009
que ira funciionar do geito que vc imagina...
Gostei + 0
14/10/2009
Marco Salles
Olhe como esta definido a função na VCL do DELPHI
Citação:
Vc a passagem do parametro é por valor e esta parametro é constante.
Logo o valor de dtincrementa não sera alterado
se porém a VCL tivesse definido a Função ou Procedure
com passagem por referencia...
Citação:
teria bem mais chance do valor de dtincrementa sofresse alguma
alteração ... Mas este não é o caso..
Pois bem , visto estes detalhes tecnicos , não sei se fui claro o suficiente
Faça assim
Código:
dtincrementa:=IncMonth(dtincrementa, -1); // 14/10/2009
qu[b:1aa394a114]e ira funciionar do jeito que vc imagina...[/b:1aa394a114]
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)