Fórum como tranformar uma data para real? #198514

function Clr(Tmp : String) : String;
var
I : Byte;
begin
For I := 1 To Length(Tmp) do
if not (Tmp [I] in [´-´,´.´,´\´,´_´,´/´]) Then
Result := Result + Tmp[I];
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShowMessage(Clr(DateToStr(Now)));
end;