Adição,Subtração e Diferença de datas no DELPHI for .NET

Olá pessoal, tive que fazer hoje uma função para diminuir 6 meses de uma data e decidi compartilhar um exemplo disso e outras funções similares que podem ser bastantes úteis.

Abaixo exemplos de procedimentos feitos no DELPHI 2007 for ASP.NET (RAD STUDIO), para executá-los você pode adicionar um button ou no próprio page load chamar estes procedimentos.

procedure Tteste.DiminuirData;
var
  data: tdate;
begin
  data := convert.ToDateTime(TextBox1.text);
  data := data - convert.ToInt32(TextBox3.text);
  // a função ToDateTime converto o de TDate para DateTime
  // a função ToShortDateString vai retirar as horas, minutos e segundos e exibir no formato brasileiro (dd/MM/yyyy)
  TextBox2.text := Convert.ToDateTime(data.tostring).ToShortDateString;
end;

Para somar dias em uma data basta trocar o sinal (-) por (+) :D

Agora procedimento para exibir número de dias em um intervalo de datas.

procedure Tteste.Diferenca;
var
  data1, data2: tdate;
  dias:integer;
begin
  data1 := convert.Todatetime(TextBox1.text);
  data2 := convert.Todatetime(TextBox2.text);
  dias := convert.ToInt32(data1) - convert.ToInt32(data2);
  TextBox3.text := dias.tostring;
end;

No Delphi podemos fazer muitas outras coisas interessantes utilizando a biblioteca DateUtils, basta adicionar na Uses, mas isso fica pra outro artigo, valeu!

Download do exemplo