photosdematures.com

VBA今日功能

今天是指当前日期，在工作表中的Now函数会执行相同的操作，为我们提供当前日期和时间，但VBA本身没有内置的Today函数，获取系统当前日期的方法是使用date函数和与now函数的date函数不同，此函数仅提供当前日期。

在excel中，我们有几个有用的功能可以每天为我们提供帮助。 Excel使工作变得轻松自在。当我说“每天” excel时，公式也可以返回今天的日期，不仅是日期，我们还可以一起获得当前日期和时间。这就是各种excel公式。如果您是excel的普通用户，希望您遇到了excel中称为“ TODAY”的公式，以便在工作计算机中插入当前日期。但是我们在VBA中没有TODAY功能，那么我们如何从VBA中获取TODAY的日期。本文将向您展示如何在VBA中使用TODAY日期。继续阅读。

在VBA中获取“今天的日期”的公式是什么？

如果没有称为TODAY的公式，那么如何从VBA中获取今天的日期？这是每个人都会问的常见问题，但解决方案很简单，我们有一个名称不同的公式，即DATE函数。

VBA中的日期功能是什么？

DATE与VBA TODAY函数完全相同，但这不是易失函数，除非您运行宏或触发宏。

DATE函数的语法没有任何参数，我们只需要传递函数DATE就可以了。

日期 （）

VBA中的日期函数示例

DATE函数返回系统的当前日期。当我们将其用作大型VBA项目的一部分时，这非常有用。首先，为了使您对此有一定的了解，我将向您展示DATE函数的简单示例。

范例＃1

让我们创建一个简单的DATE函数，以在消息框中显示当前日期。请按照以下步骤编写excel宏。

步骤1： 通过命名宏来创建子过程。

第2步： 将该变量声明为“ Date”。 DATE函数仅将结果作为日期返回，因此变量数据类型应为“ Date”。

代码：

 Sub Today_Example1（）Dim K作为字符串结尾Sub 

第三步： 将值分配给变量“ k”为 DATE功能.

代码：

 Sub Today_Example1（）Dim K作为字符串K =日期结束Sub 

第4步： 现在，变量“ k”的值在 VBA中的消息框.

代码：

 Sub Today_Example1（）Dim K作为字符串K =日期MagBox K结束Sub 

运行代码，我们应该看到系统中显示的当前日期。

注意：日期格式可能会因系统设置而异。可以是“ mm-dd-yy”，“ dd-mm-yy”。

日期函数以查找到期日为今天

日期功能在查找EMI，信用卡付款，保险付款等的到期日期时更有用。

假设您正在担任贷款追回专员，并且您有一份客户清单以及其到期金额和到期日期。

如果到期日期等于当前系统日期，则在状态列中，您需要将结果显示为“ Due is Today”。

这可以通过使用IF条件和VBA中的循环来完成。以下是为您提供结果的现成代码。

代码：

 Sub Today_Example2（）将K的整数K设为2到11，如果Cells（K，3）.Value =日期，那么Cells（K，4）.Value =“今天到期”，其他Cells（K，4）.Value =“如果今天不结束”，如果下一个K结束子 

这将在状态列中显示结果。

在许多情况下，我们可以使用DATE函数检查日期并执行某种操作。

您可以在此处下载此《 VBA今日功能》。 VBA Today功能Excel模板