dim sYear,sMonth,sDay as stringsYear=format(now-1,"yyyy")sMonth=format(now-1,"m")sDay=format(now-1,"d")注释：now是今天的日期和时间，now-1代表昨天的日期和时间，yyyy是年，m是月，d是日
v_date = Date ' 今天，格式为：yyyy-MM-dd
v_time = Now ' 此时，格式为：yyyy-MM-dd HH:mm:ss
v_date2 = #"2021-06-01" '指定时间
v_date3 = CDate("2021-06-01")
日期
格式化
Format(Date, "yyyy-MM-dd")
日期
处理
对
日期
进行处理，得到想要的目标
日期
today = Date
yesterday = today - 1
VBA
中取
当前
日期
的函数是Date，
当前
时间的函数是Time，
当前
日期
和时间一起取是Now。
日期
转换成年月日的函数分别是：Year、Month、Day，参数可以用Date或Now取出的值。时间转换成时分秒的函数分别是：Hour、Minute、Second，参数可以用Time或Now取出的值。
MsgBox "
当前
时间：" & Now & Chr(10) & _
ActiveCell.FormulaR1C1 = "=year"
Range("B1").Select
ActiveCell.FormulaR1C1 = "=YEAR(RC[-1])"
Dim dt As Date, t1 As Integer, t2 As Date, i As Date, temp As Integer
dt = Application.InputBox("请输入
日期
：" & Chr(10) & _
"如：2021-09-08", _
"选择
日期
", "2021-09-08", , , , 1)
t1 = Weekday(dt, 2)
filePath = WScript.Arguments(0)
'filePath = “***”
set fso=createobject(“Scripting.FileSystemObject”)
set fn=fso.GetFile(filePath)
'MsgBox “文件创建时间：”&fn.DateCreated
'MsgBox “文件最后访问时间：”&fn.DateLastAccessed
SetTime=fn.Da
在
VBA
中，可以使用Shell方法结合API函数来
获取
当前
激活窗口的句柄和标题。
首先，我们需要声明一些API函数，如GetForegroundWindow和GetWindowText。
在模块中添加以下代码：
```
vba
Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
然后，我们可以创建一个函数来
获取
当前
激活窗口的句柄和标题，如下所示：
```
vba
Function GetActiveWindowInfo() As String
Dim hwnd As Long
Dim title As String * 255
Dim length As Long
hwnd = GetForegroundWindow()
length = GetWindowText(hwnd, title, 255)
GetActiveWindowInfo = "窗口句柄: " & hwnd & " 窗口标题: " & Left(title, length)
End Function
现在，我们可以在
VBA
中调用这个函数来
获取
当前
激活窗口的句柄和标题，例如：
```
vba
Sub Main()
Dim info As String
info = GetActiveWindowInfo()
MsgBox info
End Sub
运行以上代码，在弹出的消息框中将显示
当前
激活窗口的句柄和标题。
这样就可以通过
VBA
获取
当前
激活窗口的句柄和标题了，可以根据具体需求进行处理和利用。
samng508:
