Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); Var FechaYhora:TDateTime; Hora:TTime; begin FechaYhora:=Now; Hora:=Frac(FechaYhora); Edit1.Text:=TimeToStr(hora); end;
procedure TForm1.Button1Click(Sender: TObject); Var FechaYhora:TDateTime; Hora:TTime; begin FechaYhora:=Now; Hora:=Frac(FechaYhora); Edit1.Text:=TimeToStr(hora); end;