相关疑难解决方法(0)

我正在寻找一种方法来自动将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,然后再次运行该子,添加另一个破折号).有关更好的方法的任何建议吗？

我需要我的代码来创建一个以德国月份命名的文件夹：不是 05 March 而是 05 März

Dim strMonth  As String
 strMonth =  Format(Date, "mm")
 ' Check for month folder and create if needed
If Len(Dir("C:\Users\Luca\Desktop\TestDaty\" & client & "\" & Year(Date) & "\" & strMonth & " " & MonthName(Month(Date), False), vbDirectory)) = 0 Then
    MkDir "C:\Users\Luca\Desktop\TestDaty\" & client & "\" & Year(Date) & "\" & strMonth & " " & MonthName(Month(Date), False)
End If

所以也许这里有一些国家代码？MonthName(Month(Date) 请帮帮我!!! :)