Zitat von
topoh:
Delphi-Quellcode:
Dat := FieldByName('LetzteWartung').AsDateTime;
If TableHSKS['LetzteWartung'] <= null Then Label27.Caption :='N/A';
If TableHSKS['Zyclus']= '3 Monate' Then dat:=dat+90;
If TableHSKS['Zyclus']= '6 Monate' Then dat:=dat+180;
etc....
Also das kann ja auch verständlicherweise nicht funktionieren. Delphi kennt das Schlüsselwort null nicht.
Aber probier mal so:
Delphi-Quellcode:
if FieldByName('LetzteWartung').IsNull then begin
label27.caption := 'N/A' ;
end else if FieldByName('LetzteWartung').AsDateTime = 0 then begin
label27.caption := 'N/A' ;
end else begin
If TableHSKS['Zyclus']= '3 Monate' Then dat:=dat+90;
If TableHSKS['Zyclus']= '6 Monate' Then dat:=dat+180;
end ;