将短日期转换为长日期

Question

嗨，我有以下代码：

dim currentDate as Date
currentDate = Format(wkSheet.Cells(3, i), "[$-F800]dddd, mmmm dd, yyyy")

Cells（3，i）是短格式的日期 我正在尝试将其转换为长格式，例如，2018年7月1日将成为2018年7月1日，星期日。如何执行此操作？上面的代码基于“记录宏”功能。

Answer 1

格式返回文本，而不是真实的日期。更改单元格的数字格式。

wkSheet.Cells(3, i).NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"

请注意，日期格式不包括 ^st ， ^nd ， ^rd ， ^th 等，并且您的提供的日期格式是强制的两位数日期（例如01，而不是1 ^st ）