Question

我从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.如何将其添加到我的公式中？

Answer 1

最后添加：

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

如果这样就表明了

1 个答案: