搬家第25天-记录昨天的日期

前两天在qq群里看到有人问如何使用citectVBA取得昨天的日期，我看了一下CitectVBA资料，一个坏消息是没有日期加减计算的函数，一个好消息是excel里面丰富的日期时间函数可以计算昨天的日期，而且citect可以读取excel文件内容。当然可以在citectvba中通过if……then一大堆条件判断取得昨天的日期，但我觉得还是调用excel来得快一些。

     在citectVBA编辑器中建立以下过程

Sub yesterdaydate()
Dim xlApp As Application
Dim mydate as string
Set xlApp=CreateObject("excel.application")
xlApp.Visible=False
xlapp.workbooks.add
xlApp.Worksheets("Sheet1").Activate
xlApp.Worksheets("Sheet1").cells(1,1)="=today()-1"
mydate=xlApp.Worksheets("Sheet1").cells(1,1)
msgbox mydate
xlApp.DisplayAlerts = False  '不提示
xlApp.Workbooks.Close
xlApp.Quit
Set xlApp=Nothing
End Sub

在画面上按钮的鼠标点击事件中xiecivba call yesterdaydate()保存编译运行，就能弹出昨天的日期，配合excel VBA丰富的函数，可以取得其他的信息。

标签：25,xlApp,excel,搬家,日期,昨天,Sheet1,Worksheets
来源： https://www.cnblogs.com/fishingsriver/p/14429453.html