>

현재 날짜를 입력해야하는 텍스트 상자 (textbox1)에서 작업하고 있습니다. 그러나 지금까지 존재하지 않는 날짜 (예 : 40-40-2019)를 입력 할 수도 있습니다. 기존 날짜 만 사용하여 textbox1의 유효성을 검사하는 방법이 있습니까? 나는 현재 유럽 날짜 항목을 사용하므로 dd-mm-yyyy입니다. 아래 코드는 날짜를 표준 형식으로 변경합니다.

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 Me.TextBox1 = Format(Me.TextBox1, "DD-MM-YYYY")
End Sub

출력은 기존 날짜 함수일 것으로 예상합니다

  • 답변 # 1

    Isdate() 사용  날짜를 테스트하려면 :

    Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
        If Isdate(Me.TextBox1.Text) then
            Me.TextBox1.Text = Format(Me.TextBox1.Text, "DD-MM-YYYY")
        Else
            '...
        End if
    End Sub
    
    

    https://www.techonthenet.com/excel/formulas/isdate.php

관련 자료

  • 이전 jsonschema - AJV의 "select/selectCases"키워드와 함께 열거 형 사용
  • 다음 encryption - 리눅스 커널 -310을 실행하는 우분투 시스템에 대한 GCM-AEAD 지원