como tranformar uma data para real?
olá pesoal,
eu tenho um edit com a seguite data 02/12/2003
e quando eu apertar um botão, o segundo edit ficaria da seguinte forma
02122003
anjomd@hotmail.com
eu tenho um edit com a seguite data 02/12/2003
e quando eu apertar um botão, o segundo edit ficaria da seguinte forma
02122003
anjomd@hotmail.com
Anjomd
Curtidas 0
Respostas
Rafael Mattos
02/12/2003
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;
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;
GOSTEI 0