Comparación de tiempo en Delphi

Supongamos que datos1, datos2 y datos2 tienen dos selectores de fecha y hora, use Editar como nombre... btn como botón para almacenar la base de datos... db como base de datos.

Se define por primera vez en el evento onchange de data1.

Inicio

si datos 1. fecha y hora & gt; entonces datos2.datetime

Inicio

datos 1. fecha y hora:= datos 2 .datetime;

Showmessage('¡La hora de entrada no puede ser posterior a la hora de salida!');

Fin;

En el cambio de datos2

Iniciar

si data2.datetime & ltdate1.

Luego fecha y hora

Inicio

datos 2. datetime:= fecha 1. datetime;

Showmssage('El tiempo de entrega en fábrica no puede ser anterior a la llegada a fábrica' );

Fin;

Evento Btn.onclick

Inicio

si data2.datetime & ltentonces data1.datetime

Iniciar

Showmessagae('¡Error de tiempo, inténtelo de nuevo...!');

Salir

Otros

Inicio

db.post

Fin;

Fin;