在VBA文本框中格式化MM/DD/YYYY日期

Question

在VBA文本框中格式化MM/DD/YYYY日期我正在寻找一种将VBA文本框中的日期自动格式化为MM/DD/YYYY格式的方法，我希望它在用户输入时格式化。例如，一旦用户输入第二个数字，程序将自动输入“/”。现在，我使用以下代码完成了这个工作(以及第二个破折号)：Private Sub txtBoxBDayHim_Change()     If txtBoxBDayHim.TextLength = 2 or txtBoxBDayHim.TextLength = 5 then     txtBoxBDayHim.Text = txtBoxBDayHim.Text + "/"End Sub现在，这在打字时效果很好。然而，当尝试删除时，它仍然进入破折号，因此用户不可能删除其中一个破折号(删除一个破折号会导致长度为2或5，然后再运行，添加另一个破折号)。有什么更好的方法吗？

Answer 1

添加一些跟踪长度的内容，并允许您对用户是否添加或减去文本进行“检查”。这是目前尚未测试，但类似的东西应该可以工作(特别是如果你有一个用户表单)。

'add this to your userform or make it a static variable if it is not part of a userformprivate oldLength as integerPrivate 
Sub txtBoxBDayHim_Change()
    if ( oldlength > txboxbdayhim.textlength ) then
        oldlength =txtBoxBDayHim.textlength        exit sub
    end if

    If txtBoxBDayHim.TextLength = 2 or txtBoxBDayHim.TextLength = 5 then
    txtBoxBDayHim.Text = txtBoxBDayHim.Text + "/"
    end if
    oldlength =txtBoxBDayHim.textlengthEnd Sub