Im DBEdit ein String in ein Date umwandeln

[ickehausen]

shmia, danke für den weiteren Tip. Es darf dann aber nicht mit DateToStr umgewandelt werden, sonst erhalte ich eine Fehlermeldung inkompatible Variablen-Typen

Delphi-Quellcode:

procedure TDataModule2.IBDataSetMainVERNICHTUNGSDATUMSetText(Sender: TField;
  const Text: string);
begin
  if Text = 'h'  then
    Sender.AsDateTime := ( Date())
  else if Text = 'm'  then
    Sender.AsDateTime := ( Date()+1.0)
  else if Text = 'g'  then
    Sender.AsDateTime := ( Date()-1.0)
  else
    Sender.AsString := Text;
end;