[Excel VBA] 如何获取北京时间

Sub abc()

Dim a, b, c As String '定义变量

a = Date '当前年月日

b = Time '当前时间

c = Now '当前年月日 和 时间

MsgBox a & b & c '显示 a ，b ，c

End Sub

有这样一个函数的可以直接计算出相差的时间

DateDiff("yyyy", Now, 输入的日期)

================以下为这个函数的相关说明

DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

DateDiff 函数的语法有以下参数：

参数

interval

必选项。字符串表达式表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。

date1, date2

必选项。日期表达式。用于计算的两个日期。

Firstdayofweek

可选项。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。

Firstweekofyear

可选项。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。

设置

interval 参数可以有以下值：

设置 描述

yyyy 年

q 季度

n 月

y 一年的日数

d 日

w 一周的日数

ww 周

h 小时

m 分钟

s 秒

firstdayofweek 参数可以有以下值：

常数 值 描述

vbUseSystemDayOfWeek 0 使用区域语言支持 (NLS) API 设置。

vbSunday 1 星期日（默认）

vbMonday 2 星期一

vbTuesday 3 星期二

vbWednesday 4 星期三

vbThursday 5 星期四

vbFriday 6 星期五

vbSaturday 7 星期六

firstweekofyear 参数可以有以下值：

常数 值 描述

vbUseSystem 0 使用区域语言支持 (NLS) API 设置。

vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。

vbFirstFourDays 2 由在新年中至少有四天的第一周开始。

vbFirstFullWeek 3 由在新的一年中第一个完整的周开始。

说明

DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。

要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的日数”（“w”）时，DateDiff 返回两个日期之间的星期数。如果 date1 是星期一，则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，DateDiff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。

如果 date1 晚于 date2，则 DateDiff 函数返回负数。

firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。

如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。

在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相差一个年份。

下面的示例利用 DateDiff 函数显示今天与给定日期之间间隔天数:

Function DiffADate(theDate)

DiffADate = "从当天开始的天数:" & DateDiff("d", Now, theDate)

End Function

Do

If Minute(Now) Mod 5 = 3 And Second(Now) = 30 Then aa

n = Timer

Do

DoEvents

Loop While n = Timer

Loop

shtRange("AE3") = ""      ‘将要写入值的单元格清空

Dim ghdw   '定义购货单位变量

ghdw = shtRange("AE4")     ’变量取得单元格的字符串如“CH03 YJ”

For M = 1 To Len(ghdw)

     If Mid(ghdw, M, 1) <> Chr(32) Then

       MStr = MStr & Mid(ghdw, M, 1)

      End If

Next

shtRange("AE3") = "SEORD" & MStr & Year(Date) & Month(Date) & Day(Date)

‘生成诸如“SEORDCH03YJ2020527”这样的字符串。

说明：本来想用Replace去空格，可是有的字符前后也有空格，或者中间空格不止一个，干脆就用MID函数一个一个读取字符然后组合在一起，这样就达到了去空格的目的，没有正则表达式。

在下面这篇文章中将和大家分享一下在Excel VBA中如何自定义含有多个参数的函数。关于VBA中自定义函数的基本 *** 作，大家可以参考之前的一篇文章，如下：

Excel VBA系列之自定义函数 -

1 在Excel工作表的A2单元格中有一个类似产品序列号的数据，需要通过VBA自定义函数取出年份和月份信息。

2 打开Visual Basic，添加一个模块，定义一个函数“czf”，表示拆字符。

3 为自定义函数添加三个参数，两个字符类型，一个整数类型；这里可以根据实际需要自行设置参数。

4 定义此函数时，使用Split函数对其参数进行拆分；因为这里是要将一个序列号中的信息提取出来。

关于Split函数，可参考文章： Excel VBA系列之Split函数 -

5 自定义函数完成后，回到Excel工作表中，在B2单元格使用该自定义函数，输入“=czf(A2, "-",2)”，获取年份信息。

6 使用自定义函数“czf”也可以获取月份信息。

7 使用自定义函数“czf”将两个时间信息进行合并。

以上案例仅用于演示，更多实际应用请根据需求进行相应的调整。

喜欢的朋友请多多关注，感谢支持！

以上就是关于[Excel VBA] 如何获取北京时间全部的内容，包括:[Excel VBA] 如何获取北京时间、一段VBA编程的问题，求实足年龄的、VBA 中 如何获取当前系统时间 执行动作 aa，大侠写写代码！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！