Fórum Campo data delphi #526627

23/07/2015

0

Delphi

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

Responder

Posts

23/07/2015

Raimundo Pereira

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]
Responder

Gostei + 0

23/07/2015

Ghoten

qual campo eu uso para adicionar a data da venda?
Responder

Gostei + 0

24/07/2015

Raimundo Pereira

Qual banco você está usando ?

Data/Hora no Acess
DATE no Firibird ou pode usar o campo Texto mesmo
Responder

Gostei + 0

26/07/2015

Tiago Rizzon

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;
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar