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

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