Zeit/Datumswert mit einer Tabelle vergleichen

[Union]

Also auf die harte Tour könnte man es so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   datumzeit : string;
   hh, nn, ss, yy, mm, dd : Word;
begin
   //                     1
   //            12345678901234567890
   datumzeit := '15:11:45, 17:11:2006';

   hh := strtoint(copy(datumzeit, 1, 2));
   nn := strtoint(copy(datumzeit, 4, 2));
   ss := strtoint(copy(datumzeit, 7, 2));

   dd  := strtoint(copy(datumzeit,11, 2));
   mm  := strtoint(copy(datumzeit,14, 2));
   yy  := strtoint(copy(datumzeit,17, 4));

   // Das Ergebnis des EncodeDateTime dann in den SQL-Parameter schreiben
   ShowMessage(DateTimeToStr(EncodeDateTime(yy, mm, dd, hh, nn, ss, 0)));
end;