짧은 날짜를 긴 날짜로 변환하십시오. 팝업 상자 입력란

Question

날짜를 물어 보는 팝업 상자에 다음 코드가 있습니다. 예 : 2013 년 4 월 5 일, 자동으로 긴 날짜 형식으로 변환하는 방법은 무엇입니까?

나는

strUserResponse = FormatDateTime(Date, vbLongDate) 

을 시도하지만 이전 포스트에서 언급 한 바와 같이 단지 Inputbox가를 얻을 수있는 가장 좋은 방법은 아니라고

감사

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

에게 나에게 오늘 날짜를주고있다 이 날짜를 계속 진행하려면 변경하려면

당신이 당신에게 오늘 날짜를 줄 것이다 코드 줄에 Date 변환되기 때문에210

strUserResponse = FormatDateTime(strUserResponse, vbLongDate) 

에 당신은 현재 날짜를 얻고있다.