IncMonth não funciona!
Por que essa coisa não esta funcionado. simplesmente não adiciona o mes.
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);
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
Curtidas 0
Respostas
Fausto.malheiros
14/10/2009
resolvido!
GOSTEI 0
Marco Salles
14/10/2009
funciona amigo
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
que ira funciionar do geito que vc imagina...
Olhe como esta definido a função
function IncMonth([b:dc8f6a4a72]const DateTime: TDateTime[/b:dc8f6a4a72]; NumberOfMonths: Integer): TDateTime;
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... )
procedure IncMonth([b:dc8f6a4a72]VAR DateTime: TDateTime[/b:dc8f6a4a72]; NumberOfMonths: Integer);
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
Marco Salles
14/10/2009
funciona amigo
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]
Olhe como esta definido a função na VCL do DELPHI
Citação:
function IncMonth(c[b:1aa394a114]onst DateTime: TDateTime[/b:1aa394a114]; NumberOfMonths: Integer): TDateTime;
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:
procedure IncMonth([b:1aa394a114]VAR DateTime: TDateTime;[/b:1aa394a114] NumberOfMonths: Integer);
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