vba 中获取当前日期的函数是哪个

在 VBA 中，可以使用 `Date` 函数来获取当前系统日期。`Date` 函数返回一个 Variant 类型的值，表示当前日期。该值的格式与系统的短日期格式设置有关。

例如，下面的代码可以获取当前日期，并将其输出到 MsgBox 中：

Dim todayDate As Date
todayDate = Date

MsgBox "今天是：" & todayDate

在上面的代码中，变量 `todayDate` 存储了当前日期，`Date` 函数返回的日期格式为短日期格式。如果希望返回的日期格式为其他格式，可以使用 `Format` 函数对日期进行格式化，例如：

Dim todayDate As Date
todayDate = Date

MsgBox "今天是：" & Format(todayDate, "yyyy年mm月dd日")

上面的代码中，`Format` 函数将 `todayDate` 变量中存储的日期格式化为“yyyy年mm月dd日”的格式，然后输出到 MsgBox 中。

相关问题

access vba获取当前日期并输出星期数

在VBA（Visual Basic for Applications）中，你可以使用`Date()`函数获取当前日期，然后结合`Weekday()`函数来获取该日期是一周中的哪一天。下面是一个简单的例子：

Sub DisplayCurrentDayOfWeek()
    Dim currentDate As Date
    currentDate = Date ' 获取当前日期
    
    Dim dayOfWeek As Integer
    dayOfWeek = Weekday(currentDate, vbMonday) ' 星期一为1，星期日为7

    Debug.Print "今天是：" & CStr(dayOfWeek) & "号，" & Weekdays(dayOfWeek) ' 输出星期几，比如"今天是：5号，星期五"
End Sub

Function Weekdays(nweekday As Long) As String ' 定义一个返回英文星期几的函数
    Select Case nweekday
        Case vbSunday: Weekdays = "Sunday"
        Case vbMonday: Weekdays = "Monday"
        Case vbTuesday: Weekdays = "Tuesday"
        Case vbWednesday: Weekdays = "Wednesday"
        Case vbThursday: Weekdays = "Thursday"
        Case vbFriday: Weekdays = "Friday"
        Case vbSaturday: Weekdays = "Saturday"
    End Select
End Function

这个程序会显示类似这样的结果：“今天是：5号，星期五”。运行`DisplayCurrentDayOfWeek`宏即可看到当前日期及对应的星期。

用vba实现，wb是workbook,如果当前日期是星期一，则删除wb中b列日期不是前天日期的资料，如果当前日期不是星期一，则删除wb中b列日期不是昨天日期的资料，

在VBA中，你可以通过以下步骤实现这个功能：

1. 首先，获取当前日期并判断是否是星期一。可以使用`Weekday()`函数返回日期是一周中的哪一天，0表示星期日，1表示星期一。例如：

Dim currentDate As Date
currentDate = Date
If Weekday(currentDate) = vbMonday Then ' 如果是星期一
    ' 接下来的操作针对前天的日期
Else
    ' 否则操作针对昨天的日期
End If

2. 确定删除的基准日期。如果是星期一，基准日期就是前天；如果不是，就是昨天。可以使用`DateAdd()`函数计算出来：

Dim baseDate As Date
If Weekday(currentDate) = vbMonday Then
    baseDate = DateAdd("d", -2, currentDate) ' 前天
Else
    baseDate = DateAdd("d", -1, currentDate) ' 昨天
End If

3. 删除满足条件的数据行。假设B列为需要检查的日期列，你可以遍历该列，比较每个值与基础日期，符合条件的就删除对应行：

With wb.Sheets('Sheet1') ' 请替换为实际工作表名称
    .Range("B:B").AdvancedFilter Action:=xlFilterInPlace, Criteria1:=">" & baseDate, CopyToRange:=Nothing ' 删除大于基础日期的行
End With

4. 最后记得运行`AdvancedFilter`宏才会生效。