Строка 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