Código Delphi
[-]
uses DateUtils;
Campo:=Timeof(Valor);
Campo puede ser cualquier TDateTime o TTime sea nativo de delphi o de la base de datos
Valor puede ser también TDateTime, TTime o TDate sea nativo d dlephi o de la base de datos
existe tambien un dateof( )