Excel字符串不工作

Question

你好家伙我完全难以理解为什么这段代码不工作。任何人都可以帮忙吗？

Sub test() 

Dim RpDate As Variant 
Dim x As String 

RpDate = InputBox("Enter Date", "Date") 
If RpDate = "" Then Exit Sub 

x = Day(RpDate) 

MsgBox x 

End Sub 

Answer 1

你可能会迫使InputBox只允许Date类型有效值，试试下面的代码：

Option Explicit 

Sub InputBoxDateFormat() 

Dim RpDate As Date 
Dim x As Integer 

' InputBox that allows only dates 
RpDate = Application.InputBox("Enter Date", "Date", FormatDateTime(Date, vbShortDate), Type:=1) 

' "Cancel" was selected 
If RpDate = 0 Then Exit Sub 

x = Day(RpDate) 
MsgBox x 

End Sub