dd-mmm-yyyy
ActiveX TextBox에서 와 같이 날짜 형식을 설정하는 방법이 있습니까?
따옴표를 구분하기 위해 아래 코드를 사용하고 있지만 사용자가 월을 입력하는 동안 오류가 하나 있습니다. 즉, 1993 년 5 월 31 일이지만 때로는 사용자가 2015 년 5 월 31 일을 입력합니다.
서버를 통해 데이터를 가져올 수 없기 때문에 ...
Private Sub TextBox1_Change()
If TextBox1.TextLength = 2 Or TextBox1.TextLength = 6 Then
TextBox1.Text = TextBox1.Text + "-"
End If
End Sub
이것에 대해 다른 접근 방식을 취하고 다음과 같은 것을 제안 할 수 있습니까? (이것은 테스트되지 않았으며 최종 코드가 아니라 이것을 처리하는 방법에 대한 몇 가지 제안에 불과합니다) :
Private Sub Textbox1_LostFocus()
Dim Da as Date
Da = CDate(Textbox1.Text)
Textbox1.Text = Format(Da, "dd-mmm-yyyy")
End Sub
이것은 :
그런 다음 여기에 오류 처리를 추가하여 vba가 날짜로 변환 할 수없는 경우 사용자에게 잘못된 값을 입력했음을보고하고 계속하기 전에 수정하도록 할 수 있습니다.
나는 이것이 최선의 방법이라고 주장하는 것이 아니라 OP가 그의 방법을 작동시킬 수있는 방법이라고 주장하고있다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다