vba怎样使用当前日期

vba怎样使用当前日期

vba使用当前日期的方法是利用excel内置函数实现的。
1、excel中函数date的使用方法：


2、在vba中，需要先定义一个变量，然后把date赋值：
dim cuDate as string 
cuDate = date
这样变量cuDate就获取到了date的值。
3、运行结果：
Sub test()
Dim cuDate As String
cuDate = Date
MsgBox cuDate
End Sub

1.调用当天日期
Sub 当天日期()

Dim a As Date ‘给出当天日期
a = Format(Date, "yyyy-mm-dd")
End Sub

2.调用昨天的日期
目的：删除前天店铺库存、在途数量和订单数
sub 删除店铺库存（）
If CDate(Application.Max(Range("j:j"))) < Format(Date - 1, "yyyy-mm-dd") Then range("要删除的范围”).delect‘如果前天店铺库存还在，删除
end sub

3.日期
Sub 日期()
Dim 昨天 As Date, 今天 As Date, 最大值 As Date
昨天 = Format(Date - 1, "yyyy-mm-dd")
今天 = Format(Date, "yyyy-mm-dd")
时间 = CDate(Now())
最大值 = CDate(Application.Max(Range("j:j")))
End Sub

=date()
这样就可以引入当前日期。

.Replacement.Text = "日"
改为：.Replacement.Text = Day(date)