目的:获得一个输入日期的TextBox。日期格式:YYYY-MM-DD。关键是在输入数字的同时,“-”要保留。
我这个是用一个TextBox控件做的,在做之前想用3个控件来做,后来发现也麻烦的。
思路:比如日期20070608,其实是由2*10000000+0*1000000+0*100000+7*10000。。。。所组成的。那么我在TextBox按入一个数字键,其实就是再做加法运算,然后把结果输出到文本中,即可,“-”可以使用Format()函数来实现,4-2-2的形式
首先在新建一个Form,在Form中放入一个Text1文本
Dim tempint As Long '计算的值
Dim index As Integer '定义某一个按键
Dim textarray(7) As Integer '日期数据
Dim textcount As Integer '定位光标的, 把光标停在要修改数字的前面
Dim prevstr As String '没有修改之前的文本
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 7 Step 1
textarray(i) = 0
tempint = tempint + textarray(i) * 10 ^ (7 - i)
Next i
pos = 100000000
textcount = 0
Text1.Text = Format(tempint, "0000-00-00&#