请问是什么样子的时间格式?知道格式才好做啊!
如:只可以输入12:20类似这样的时间格式(当然其它的时间也可以,最小单位为分钟。)如果输入12:20这样的话就会报错(注意12:20与12:20中间的两点是不同的)请问可以做到吗?
Private Sub Command1_Click()If IsDate(Text1.Text) Then Text2.Text = Mid(CDate(Text1.Text), 1, 5) End If
End Sub你看看吧,不过时间不多了!要停电了,明天接着弄!
Private Sub Command1_Click()If IsDate(Text1.Text) Then Text2.Text = Mid(CDate(Text1.Text), 1, 5)End If
我的意思是用inputbox可以做到这个效果吗?