Campo data delphi

Delphi

23/07/2015

Ola, estou com um problema, preciso fazer uma aplicação que cadastre um cliente e a data da venda e salve em txt, e na data da manutenção adicione 6 meses a data da venda e mostrar no dia quais datas são iguais a atual.

ex:
1
venda: 24/01/2015
manutenção: 24/07/2015
--
2
venda:24/02/2015
manutenção: 24/08/2015
--
3
venda:24/03/2015
manutenção:24/09/2015
--

so mostrar o 1 exemplo.
Ghoten

Ghoten

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

23/07/2015

Boa tarde,

procedure TForm1.AtualizarClick(Sender: TObject);
begin
Data_Venda.Date:=StrToDate(DateToStr(now));

DaTa_Manutenção.Date:=(Data_Venda.Date)+StrToInt(ED_DIAS.Text);
end;

[img:descricao=Exemplo]http://arquivo.devmedia.com.br/forum/imagem/437747-20150723-162935.jpg[/img]
GOSTEI 0
Ghoten

Ghoten

23/07/2015

qual campo eu uso para adicionar a data da venda?
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

23/07/2015

Qual banco você está usando ?

Data/Hora no Acess
DATE no Firibird ou pode usar o campo Texto mesmo
GOSTEI 0
Tiago Rizzon

Tiago Rizzon

23/07/2015

Veja se este código ajuda:

uses DateUtils;

var
Arq: TextFile;
ClienteID: string;
DataManutencao, DataVenda: TDate;
begin
ClienteID := '1';
DataVenda := StrToDate('26/07/2015');
DataManutencao := IncMonth(DataVenda, 6);

AssignFile(Arq, 'D:\MeuArquivo.txt');
Rewrite(Arq);
Writeln(Arq, 'Cliente ID: ' + ClienteID);
Writeln(Arq, 'Data da venda: ' + DateToStr(DataVenda));
Writeln(Arq, 'Data da manutenção: ' + DateToStr(DataManutencao));
CloseFile(Arq);
end;
GOSTEI 0
POSTAR