date函数在VBA中

有一个工作表函数date是这样工作的：

Date(2016;03;01) => 01.03.2016

但是，我无法在vba中find这个function。 Application.WorksheetFunction.Date不存在。 简单的Date()只能使用没有参数来获取今天的date。

我在哪里可以find该工作表函数Date的确切版本，需要年，月和日作为参数？

编辑：我不需要当前的date。 我需要这个函数来使用参数。

Answer 1

CDate可以将string转换为date，它支持各种input格式。 不过，我build议先用IsDate检查string。

DateSerial可以通过将年，月，日作为整数来生成date。

在你的例子中使用DateSerial ：

 Dim myDate As Date myDate = DateSerial(2016, 3, 1) 

Answer 2

虽然parsing和语言环境规则不保证与工作表函数相同，但CDate是最接近的类似物。

如果您想要当前date，请使用“ Fix(Now) ”或“不带圆括号的Date ”。

就个人而言，我只是将自己限制在DateSerial ，它需要一年，一个月和一天的时间作为数值input。