Comparar horas Datetimepicker y time

[[nlsgarcia]]

GustavoCruz,

Empezado por GustavoCruz

...tratando de comparar un datetimepicker en su propiedad time y un Time...siempre me da como resultado "Mayor"...

Revisa este código:

Código Delphi [-]
implementation

uses DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if TimeOf(DateTimePicker1.Time) > Time then
     ShowMessage('Mayor')
   else
     ShowMessage('Menor');
end;

El código anterior compara la porción de Tiempo de un control TDateTimePicker con la hora obtenida en la función Time.

Revisa esta información:

Empezado por Delphi Help:

Call TimeOf to convert a TDateTime value to a TDateTime value that includes only the time information (sets the date portion to 0, which means 12/30/1899).

Revisa estos links:

Date/Time routines : http://delphi.about.com/od/beginners...tldatetime.htm

Dates and times : http://www.delphibasics.co.uk/ByFunc...=DatesAndTimes

Espero sea útil

Nelson.