这几天，写VBA代码的过程中，感觉日期类型有点难搞，常常要耗掉我很多时间。
 
在这里标记一下。
 
'获取更新日期（update）为指定日期的词条总数 
strSQL5 = "SELECT count(termid) FROM ikb WHERE date_updated < _
to_date('" & D2 & "') AND date_updated >= to_date('" & D1 & "')"              
 
为了调试这一句，花了很多时间。
 
 If (ActiveSheet.Cells(N - 1, 2) < Date) Then
 
为伊消得人憔悴，衣带渐宽终不悔!
 
 
 
 

 
Private Sub CommandButton1_Click()
Dim i, j As Integer
Dim a As Date
a = #10/1/2013#
j = 2
i = 2
' If  Worksheets("改后B").Range("a" & CStr(i)) = Worksheets("改后A").Range("a" & CStr(j)) And Worksheets("改后B").Range("b" & CStr(i)) = Worksheets("改后A").Range("b" & CStr(j)) And Trim(Worksheets("改后B").Range("c" & CStr(i))) = Trim(Worksheets("改后A").Range("c" & CStr(j))) And Trim(Worksheets("改后B").Range("d" & CStr(i))) = Trim(Worksheets("改后A").Range("d" & CStr(j))) Then
'  MsgBox DateDiff("d", Worksheets("改后B").Range("a" & CStr(560)), 2013 - 10 - 1)
  'End If
 
 
For i = 2801 To 3500
  j = 2
   While Worksheets("改后A").Range("a" & CStr(j)) <> ""
    
     If Worksheets("改后B").Range("a" & CStr(i)) < a Then
      If Worksheets("改后B").Range("a" & CStr(i)) = Worksheets("改后A").Range("a" & CStr(j)) And Worksheets("改后B").Range("b" & CStr(i)) = Worksheets("改后A").Range("b" & CStr(j)) And Trim(Worksheets("改后B").Range("c" & CStr(i))) = Trim(Worksheets("改后A").Range("c" & CStr(j))) And Trim(Worksheets("改后B").Range("d" & CStr(i))) = Trim(Worksheets("改后A").Range("d" & CStr(j))) Then
        Worksheets("改后B").Range("p" & i) = Worksheets("改后A").Range("e" & j)
        Worksheets("改后B").Range("q" & i) = Worksheets("改后A").Range("f" & j)
        Worksheets("改后B").Range("r" & i) = Worksheets("改后A").Range("g" & j)
        Worksheets("改后B").Range("s" & i) = Worksheets("改后A").Range("h" & j)
        Worksheets("改后B").Range("t" & 2) = i
        If i Mod 100 = 0 Then
           ThisWorkbook.Save
        End If
GoTo ee
      End If
    End If
     If Worksheets("改后B").Range("a" & CStr(i)) > a Then                             比较日期
         Worksheets("改后B").Range("t" & i) = "日期大于表A最大日期"
         Worksheets("改后B").Range("t" & 2) = i
         If i Mod 100 = 0 Then
   保存        ThisWorkbook.Save     
        End If
GoTo ee
     End If
    j = j + 1
   Wend
ee:
Next
End Sub
 
转载于:https://www.cnblogs.com/liudong/p/3372970.html

如图所示，需要在窗体上显示当前系统时间：
 

 首先，我们看一下now函数的原型：
 
Now 函数
 　　语法：Now
 　　说明：返回一个 Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间。
 　　示例：
 
Private Sub CommandButton1_Click()
    Dim a As Variant
    a = Now
    MsgBox a
End Sub
 

' ---------计算程序运行所用时间:----------
 Sub GetRunTime()
     Dim i As Long
     Dim dteStart As Date
     Dim strTime As String
 
'关闭屏幕刷新
     'Application.ScreenUpdating = False
     dteStart = Timer
     
     
     '---------运行过程主体-------
 
    
     
     strTime = Format((Timer - dteStart), "0.00000")
 

     Msgbox "运行过程: " & strTime & "秒"
 
‘打开屏幕刷新
     'Application.ScreenUpdating = True
     
 End Sub