Calculos com datas

Caro amigo,

Para vc executar o código abaixo só funcionará se vc garantir que a data foi informada corretamente.

Atenciosamente,

Daniel Araújo
ICQ:111769805
www.cdinformatica.hpg.com.br
************************************************************
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask;

type
TForm1 = class(TForm)
Button1: TButton;
MaskEdit1: TMaskEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function DaysBetween(Date1, Date2: TDateTime): Longint;
begin
Result := Trunc(Date2) - Trunc(Date1) + 1;
if Result < 0 then Result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Date1, Date2:String;
begin
//MaskEdit1.Text; o valor é string
Date1 := ´01/01/2003´;
Date2 := ´28/03/2003´;
Label1.Caption := InttoStr(DaysBetween(StrtoDate(Date1), StrtoDate(Date2))) + ´ dias´;
end;

end.

************************************************************


[quote:1ff9ddaf32=´André Sales´]Como faço para obter a diferença dias utilizando dois componentes maskedit com mascára tipo date?[/quote:1ff9ddaf32]