VBA将这个时间2021/12/21转成2021-12-21

可以使用VBA中的DateValue函数和Format函数来实现将时间格式转换为另一种格式。具体代码如下：

Dim dateStr As String
Dim newDateStr As String

dateStr = "2021/12/21"
newDateStr = Format(DateValue(dateStr), "yyyy-mm-dd")

Debug.Print newDateStr

这段代码中，先定义了一个字符串变量dateStr，表示待转换的时间字符串，然后使用DateValue函数将其转换为日期类型。接着使用Format函数将日期类型按照"yyyy-mm-dd"的格式转换为字符串类型，存储在变量newDateStr中。最后通过Debug.Print语句输出newDateStr的值，即转换后的时间字符串"2021-12-21"。

相关问题

VBA将这个时间2021/12/21转成2021-12-21后写入到单元格保持2021-12-21这种格式

可以使用VBA中的日期函数来实现将时间转换为特定格式的字符串：

Sub ConvertDate()
    Dim originalDate As String
    Dim convertedDate As String
    
    originalDate = "2021/12/21"
    convertedDate = Format(CDate(originalDate), "yyyy-mm-dd")
    
    Range("A1").Value = convertedDate
End Sub

在这个示例代码中，我们首先将原始日期作为字符串存储在变量 `originalDate` 中。然后，我们使用 `CDate` 函数将其转换为日期类型。接着，使用 `Format` 函数将日期格式化为字符串，其中 `"yyyy-mm-dd"` 表示日期以“年-月-日”的格式呈现。最后，我们将转换后的日期字符串写入单元格 `A1` 中。

希望这个代码对你有帮助！

VBA里怎么实现UTC+(-)xx的转换

在VBA中，可以使用`DateAdd`函数将UTC时间转换为本地时间。具体来说，需要使用`DateAdd`函数将UTC时间加上或减去UTC偏移量的分钟数，就可以得到本地时间。

下面是一个示例代码：

Public Function ConvertUTCToLocal(utcTime As Date, utcOffset As String) As Date
    ' 假设UTC+8表示北京时间
    Dim utcHour As Integer
    Dim utcMinute As Integer
    
    ' 解析UTC偏移量字符串
    utcHour = Val(Left(utcOffset, 3))
    utcMinute = Val(Right(utcOffset, 2))
    
    ' 计算本地时间
    ConvertUTCToLocal = DateAdd("n", (utcHour * 60 + utcMinute), utcTime)
End Function

其中，`Val()`函数可以将字符串转换为数值类型，`Left()`和`Right()`函数可以截取字符串的前几个字符和后几个字符，`DateAdd()`函数可以将日期加上或减去指定的时间间隔。

例如，将`2021-09-22T12:34:56.789Z`转换为北京时间，可以使用以下代码：

Sub Test()
    Dim utcTime As Date
    Dim utcOffset As String
    Dim localTime As Date
    
    utcTime = "2021-09-22T12:34:56.789Z"
    utcOffset = "+08:00"
    
    localTime = ConvertUTCToLocal(utcTime, utcOffset)
    
    Debug.Print "UTC时间: " & utcTime
    Debug.Print "本地时间: " & localTime
End Sub

输出结果：

UTC时间: 2021-09-22T12:34:56.789Z
本地时间: 2021-09-22 20:34:56

其中，输出的本地时间格式可以通过格式化函数进行调整。