date - 在弹出的输入框中将短日期转换为长日期

Question

我有下面的代码弹出框询问日期 例如：2013 年 4 月 5 日，我如何自动将其转换为长日期格式？

我试过

strUserResponse = FormatDateTime(Date, vbLongDate)

但它只是给了我今天的约会

谢谢

Public Function AskForDeadline() As String
Dim strUserResponse As String

strUserResponse = InputBox("Enter attribute_5: Survey Deadline - In Short Date Format Ex: 4/9/2012 Will convert to LOND date AUTOMATICALLY")
strUserResponse = FormatDateTime(Date, vbLongDate)
ActiveSheet.Cells(2, 9).Value = strUserResponse 'the 2, 9 is the cell reference for I2 - row 2, column 9.


End Function

Answer 1

正如我在你之前的帖子中提到的那样，这Inputbox不是约会的最佳方式，但如果你仍然想继续这样做，那就改变吧

strUserResponse = FormatDateTime(Date, vbLongDate)

到

strUserResponse = FormatDateTime(strUserResponse, vbLongDate)

您正在获取当前日期，因为您正在转换Date该行代码，这将为您提供今天的日期。