Ver Mensaje Individual
  #4  
Antiguo 13-02-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Aplica este ejemplo:
Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 Var
 FechaYhora:TDateTime;
 Hora:TTime;
 begin
 FechaYhora:=Now;
 Hora:=Frac(FechaYhora);
 Edit1.Text:=TimeToStr(hora);
 end;
Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita