以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于时间变量的写法问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77534)
--  作者：zhangchi96
--  发布时间：2015/11/19 22:11:00
--  关于时间变量的写法问题
1、首先，[比对表]和[职工表]中都有 列“存盘时间”，属性为日期时间型，列属性为 日期格式：datelongtime

2、代码如下：
Dim wl_zg1 As DateTime  \'定义 保存时间
Dim wl_zg2 As DateTime  \'定义 保存时间
wl_zg1 = 0
Dim x As Integer
For Each dry As Row In Tables("用户信息表").Rows
    wl_zg1 = DataTables("比对表").Compute("Max(存盘时间)", " 单位代码 = " & dry("单位代码") & " ")
    wl_zg2 = DataTables("职工表").Compute("Max(存盘时间)", " 单位代码 = " & dry("单位代码") & " ")
    If wl_zg1 Is null andelse wl_zg2 Is null Then
         x = 1
    ElseIf wl_zg1 IsNot null andelse wl_zg2 IsNot null Then
        If wl_zg1 > wl_zg2 Then
            x =2
        ElseIf wl_zg1 < wl_zg2 Then
            x= 3
        ElseIf wl_zg1 = wl_zg2 Then
            x = 4
        Else
             x =5
        End If
    Else
        If wl_zg1 = "" Then
             x = 6
        End If
        If wl_zg2 = "" Then
             x = 7
        End If
    End If
Next

3、上述代码红色部分都不对，不知道怎么表示妥当
     列【存盘时间】如果是文本格式就用空来表示，如果是数值就用0来表示，可这里是时间格式且是datelongtime，
     说明书上也很少有这方面的叙述例子。

请专家指教，关于 时间方面的写法，红色部分该怎样修改呢？
--  作者：大红袍
--  发布时间：2015/11/19 22:36:00
--  

用nothing，如

 

If wl_zg1 = Nothing Then

 

If wl_zg1  <> Nothing Then
--  作者：zhangchi96
--  发布时间：2015/11/20 8:43:00
--  
谢谢大红袍老师！