excel vb 如何加日期

在Excel VBA中添加日期通常很简单，以下是一些常用的方法：

1. 直接赋值

你可以直接将日期赋给单元格：

```vba

Sub AssignDate()

' 假设我们要将日期赋给A1单元格

Range("A1").Value = Date

End Sub

```

2. 使用 `Now` 函数

如果你想获取当前的日期和时间，可以使用 `Now` 函数：

```vba

Sub AssignCurrentDate()

' 获取当前日期和时间，并赋给A1单元格

Range("A1").Value = Now

End Sub

```

3. 使用 `DateAdd` 函数

如果你想添加或减去一定的时间，可以使用 `DateAdd` 函数：

```vba

Sub AddDays()

' 从当前日期开始，添加5天

Dim newDate As Date

newDate = DateAdd("d", 5, Now)

Range("A1").Value = newDate

End Sub

```

4. 格式化日期

如果你需要以特定的格式显示日期，可以使用 `Format` 函数：

```vba

Sub FormatDate()

' 格式化日期为 "YYYY/MM/DD"

Dim formattedDate As String

formattedDate = Format(Now, "yyyy/mm/dd")

Range("A1").Value = formattedDate

End Sub

```

5. 日期和时间格式

如果你需要同时显示日期和时间，可以调整 `Format` 函数的格式字符串：

```vba

Sub DateTimeFormat()

' 格式化日期和时间，如 "YYYY/MM/DD HH:MM:SS"

Dim dateTime As String

dateTime = Format(Now, "yyyy/mm/dd hh:mm:ss")

Range("A1").Value = dateTime

End Sub

```

这些只是使用VBA在Excel中处理日期的一些基本方法。你可以根据需要调整和扩展这些代码。