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

Da teoria a prática da tecnologia XML


Resumo da oficina sobre XML ministrada pela Profa. Jiani Cardoso (jiani@pucrs.br) durante o V ERBD, breve descrição do assunto e material para download.

A eXtensible Markup Language (XML) é uma meta linguagem de marcação criada pela W3C com o objetivo de trocar e/ou transportar dados de uma aplicação para outra, integrando sistemas de informação.

Por meio de uma estrutura para documentos utilizando tags, a XML oferece ao usuário a oportunidade de criar uma linguagem de marcação específica, de acordo com a sua necessidade.

Estou postando somente agora o material dessa oficina pois estou com pouco tempo livre, ainda tenho mais alguns materiais disponibilizados durante o evento (V ERBD) que pretendo organizar melhor antes de publicar aqui, mas, se você tiver interesse/curiosidade sobre XML este é um bom material.

Clique aqui para baixar todo material da oficina.