100分求在vb中的一个简单的判断语句!!

Question

可以这样：if a=0 then
   b=0
else
   b=a
end if

Answer 1

b是什么变量？如果也是date，那就直接赋值就可以了！如果是整型的空值赋值方式是b=null;字符型的是b="";

Answer 2

if a<>null then 
   b=a
   else
 a=null
 b=null
  endif

Answer 3

Dim a As Variant
Dim b As Variantb = IIf(IsDate(a) = True, CDate(a), Null)
或
b = IIf(IsDate(a) = True, CDate(a), Empty)

Answer 4

if a=0 then
   b=0
else
   b=a
end if
如果B与A的类型不一样时要通过转换函数进行转换
例如：
CINT（）
CSNG（）
CCUR（）
CDATE（）
等等

Answer 5

1.在赋值前先判断a是否为null,b是否为有效的日期变量？
2.在都为TURE是，再b=a或b=null