alterar dia de pagamento de contas no delphi

Gustavo, tem várias maneiras de se fazer isso, e vai depender de como você desenvolveu seu projeto:

Pode ser feito de forma manual, em cada registro ir no campo Data e colocar a nova data;
Pode fazer uma tela que mostre a lista de contas e até permita fazer um filtro por data ou cliente, e depois fazer um while que para cada registro você troque a data por exemplo:

while not dataset.eof do
begin
dataset.fieldyName().asDate:=novaData;
end;

para achar a nova data é muito simples:

na uses declare a System.DateUtils;

agora você terá um método que vai te ajudar:

var
novaData: TDate;
begin
novaData:=EncodeDate(YearOf(dataAntiga),MonthOf(dataAntiga), 10);
end;

-> EncodeDate é um método que pega números e transforma numa data;
-> YearOf pega o ano da data antiga;
-> MonthOf pega o mes da data antiga;
-> 10 é o novo dia que passa a valer;


é possível fazer com strings também mas não é uma boa prática de programação...

Espero ter ajudado. Um forte abraço e fique com Deus.

Boa tarde!<br />
<br />


Já me deu o caminho que precisava pra fazer essa alteração, no entanto o dia sera digitado pelo usuário em um edit, então preciso pegar as datas de vencimento que já estão gravadas e alterar somente o dia do mês, no caso o dia digitado no edit.<br />
<br />
eu criei checkbox no meu dbgrid criei também uns filtros por data de cadastro, nome do cliente e documento, então quando pesquiso trás os filtros que preciso alterar, marco os checkbox no grid e faco a verificação com while. por favor se puder me dar uma ideia como fazer ficaria muito grato.

Segue um exemplo de como façõ pra alterar o valor do pagamento, e funciona perfeitamente, preciso fazer agora pra alterar a data de vencimento pelo dia digitado no edit.

procedure TfrmContasaReceber.btnAlterarClick(Sender: TObject);
begin
try
Application.CreateForm(TfrmAlteraContas, frmAlteraContas);
if frmAlteraContas.ShowModal = mrOk then
begin
if frmAlteraContas.rbValor.Checked = True then
begin
with FdqryContas do
begin
First;
while not FdqryContas.Eof do
begin
if FieldByName('MARCAR').AsString = 'S' then
begin
Edit;
FieldByName('VALOR_PARCELAS').AsAnsiString:=frmAlteraContas.edtVlrParcela.Text;
FieldByName('MARCAR').AsString:= 'N';
FieldByName('DATA_ALT').AsDateTime:=Date;
Post;
end;
Next;
end;
ApplyUpdates(0);
end;
end;
end;
finally
FreeAndNil(frmContasaReceber);
end;