0

日付を求めるポップアップ ボックスのコードを以下に示します。例: 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
4

1 に答える 1

2

以前の投稿で述べたように、これInputboxは日付を取得するための最良の方法ではありませんが、それでもこれを進めたい場合は、変更してください

strUserResponse = FormatDateTime(Date, vbLongDate)

に

strUserResponse = FormatDateTime(strUserResponse, vbLongDate)

Date今日の日付を取得するコード行で変換しているため、現在の日付を取得しています。

于 2013-04-27T19:17:47.267 に答える