主题：关于数据类型问题

由于已经设定某列数据类型为整型，但因为其它列输入肯可能为空，导致它无法计算，只能为空，不能设置为0.

下面是代码：

For Each r As Row In Tables("党员资料").Rows
    Dim dl As Integer '定义dl为工龄变量
    Dim zzrq As Date '定义转正日期为日期型数据
    zzrq= r("转正时间")
    If zzrq = Nothing  Then
        'dl = Nothing
        r("党龄") = 0
    Else
        dl = Date.Today.year - zzrq.year
        r("党龄") = dl
    End If
Next

问：如何修改ui上代码？谢谢！