photosdematures.com

VBA中的“时间值”是一个内置函数，也归类为VBA中的“日期和时间”函数，顾名思义，该函数为我们提供了作为参数提供的日期的数值，它采用一个参数作为日期和时间。从参数返回数值。

时间值函数在VBA中起什么作用？

VBA Excel中的时间值函数从完整的日期和时间返回时间值部分。日期和时间在序列号中存储为Excel。序列号表示日期，十进制表示时间。使用TimeValue函数，我们只能获取时间序列号，即十进制数。

VBA TimeValue函数的语法

VBA TimeValue函数的语法如下。

正如我们所说的，TimeValue函数返回给定日期的序列号部分，该序列号部分存储为文本值。时间不过是我们要获取序列号的实际时间。请记住，“时间值”只能从存储为文本的时间中获取序列号，而不能作为“时间”。

Excel VBA的TimeValue函数示例

以下是VBA TimeValue函数的示例。

您可以在此处下载此VBA TimeValue功能模板– VBA TimeValue功能模板

VBA TimeValue示例＃1

现在，看一下VBA TimeValue函数的简单示例。

代码：

 Sub TIMEVALUE_Function_Example1（）'将给定的输入字符串转换为有效时间，并在屏幕上显示'变量声明Dim MyTime As Date'将时间分配给变量MyTime = TimeValue（“ 28-05-2019 16:50:45”）'在屏幕上显示输出消息MsgBox“当前时间为：”＆MyTime，vbInformation，“ VBA TIMEVALUE函数”结束子 

我首先声明了变量 “我的时间” 作为日期。

 昏暗的我的时间作为日期 

然后，我通过应用TimeValue将值分配给了变量。

MyTime = TimeValue（“ 28-05-2019 16:50:45”）

然后在消息框中，我分配了变量结果。

MsgBox“提供的时间是：”＆MyTime，vbInformation，“ TIMEVALUE函数”。

如果我使用F5键或手动运行代码，我们将得到如下结果。

VBA TimeValue示例＃2

对于相同的代码，我将VBA变量声明为“ Double”。

代码：

 Sub TIMEVALUE_Function_Example1（）'将给定的输入字符串转换为有效时间，并在屏幕上显示'变量声明Dim MyTime As Double'将时间分配给变量MyTime = TimeValue（“ 28-05-2019 16:50:45”）'在MsgBox屏幕上显示输出“当前时间是：”和MyTime，vbInformation，“ VBA TIMEVALUE函数”结束子 

现在，如果我手动运行VBA代码或按F5键，它将显示时间16:50:45的序列号部分。

为了使您更好地理解，我将首先在一个单元格中输入VBA消息框给出的数字。

现在，我将应用时间格式来检查准确的结果。

当您将其转换为时间格式时，您可以看到准确的时间。

VBA TimeValue示例＃3

现在，看下面的数据。

我们拥有从A1到A14单元的数据和时间。对于第二列，我们只需要提取时间值。由于我们要处理的单元不止一个，因此我们需要使用循环来为所有单元执行相同的一组任务。

我们具有从第1个单元格到第14个单元格的数据，因此我们的循环应运行14次。我们需要在VBA中使用FOR NEXT循环来提及下限和上限。以下代码是已经编写的代码，用于从日期和时间组合中提取时间值。

代码：

 Sub TimeValue_Example3（）Dim k作为整数对于k = 1至14个像元（k，2）。值= TimeValue（像元（k，1）。值）下一页k End Sub 

当我们运行代码时，我们将获得如下所示的值。

如果您想查看时间，请对它应用“时间”格式。

因此，这就是TIME VALUE函数在VBA和Excel中的工作方式。