Problemas Data (Formato) e somar +1 na mesma

[mfdzerohour]

Boa noite,

Estou aprendendo delphi e decidi fazer isto no linux com o lazarus, consegui instalar correto o lazarus e alguns aplicativos do projeto ACBr, pelo menos os que estão funcionando 100% com linux, que utilizei no projeto foi só o que troca o TAB pelo ENTER (ACBREnterTab).
Consegui fazer este projeto que estou colocando aqui no Delphi, mais como era Pirata e vou aprender mesmo, vou utilizar o lazarus e o linux.
Não sei como se formata a data já que ele ta aparedendo a data errada no formato que está aparecendo 21-3-2015, eu gostaria que fosse 21/03/2015 e não consigo somar alguns dias na data, ele acresceta no ano se eu somar +1 dia ele mostra a data 21-5-30 sendo que deveria adicionar +1 dia 22-3-2015, disṕonoblizei o fonte no site do mega, se alguém puder me ajudar nestas duas duvidas, agradeço.
https://mega.co.nz/#!kIQD0LzD!LutRAvcuAJHdLuNd4Azbg7kgTT4pocrPgIeJZqtMBgI

[andersonscinfo]

Ola, segue alguns exemplos

Code: [Select]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Altera separador da data
  //DefaultFormatSettings.DateSeparator:='/';
  //Altera somente para linux ai pode comentar o codigo ai encima
  {$IFDEF UNIX}
  DefaultFormatSettings.DateSeparator:='/';
  {$ENDIF}
  ShowMessage(FormatDateTime('dd/mm/yyyy', Now)); //Now = sua data no formato TDateTime
  ShowMessage(FormatDateTime('dd/mm/yyyy', Now+1)); //Now+1 = Sua data somando mais um
  //se usar formato padrao
  //ShowMessage(FormatDateTime('dd/mm/yyyy', StrToDate('01-01-2015')));
  //se alterar o separador tbm tem que mudar na string
  ShowMessage(FormatDateTime('dd/mm/yyyy', StrToDate('01/01/2015')+10)); //mais 10 dias
end;

end.


Att.
Anderson Junior

[mfdzerohour]

Boa tarde, não estou conseguindo fazer, não consigo ter o campo de data e somar um texto.
O que estou fazendo:
Pegando a data que pode ser digitada pelo usuário no formato dd/mm/yyyy (21/12/2014);
Há um campo de dias a adicionar (por exemplo 5);
A data final que deveria ser a soma da data inicial + dias a somar, a data final fica totalmente distorcida, não sendo próximo ao resultado desejado.

[andersonscinfo]

Boa tarde, da uma olhada nesse exemplo...

https://mega.co.nz/#!iJdFzbAb!ndRY0SIEOHldtiWfId0M0LVsAWXuGp5vJnjkX4y3X94

Att.
Anderson Junior