如果这表明

If this then show that

我正在从 AS400 中提取数据,我的日期格式是 CYYMMDD,所以我使用以下方法转换了数据:

Local StringVar x := ToText({SMPWAYB.WBSHPD}, "0");
Local NumberVar c := (ToNumber(LEFT(x, 1)) + 1) * 10;
x := RIGHT(x, 6);
Local NumberVar y := ToNumber(ToText(c, "0") & LEFT(x, 2));
x := RIGHT(x, 4);
Local NumberVar m := ToNumber(LEFT(x, 2));
x := RIGHT(x, 2);
Local NumberVar d :=ToNumber(x);

Dateserial(y,m,d)

如果字段中没有日期值,则显示 0.00,转换后显示 11/30/99。

我想保留日期转换但如果日期是 11/30/99 则显示 N/A。如何将其添加到我的公式中?

在最后添加:

if Dateserial(y,m,d) = CDate("11/30/99")
then "NA"
else ToText(Dateserial(y,m,d))