7,763
社区成员
发帖
与我相关
我的任务
分享求助，在线等待：如何判断文本框里输入的是整数，和时间（格式为14:30)，谢谢，50分！
求助，在线等待：如何判断文本框里输入的是整数，和时间（格式为14:30)，谢谢，50分！
...全文
请发表友善的回复…
发表回复
northwolves 2003-03-19
- 打赏
- 举报
这样也可以：
Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then MsgBox IIf(Int(Val(Text1.Text)) = Val(Text1.Text), "Integer", "not an integer")
End Sub
Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then MsgBox IIf(Int(Val(Text1.Text)) = Val(Text1.Text), "Integer", "not an integer")
End Sub
shafeng78120 2003-03-19
- 打赏
- 举报
我也同意pcwak（书剑狂生）。
Cooly 2003-03-19
- 打赏
- 举报
'判断是否为时间格式(hh:mm)
If IsDate(Text1.Text) Then
If Mid(Text1.Text, 3, 1) = ":" Then
MsgBox "is Time"
End If
End If
If IsDate(Text1.Text) Then
If Mid(Text1.Text, 3, 1) = ":" Then
MsgBox "is Time"
End If
End If
pcwak 2003-03-19
- 打赏
- 举报
同意二楼的
Cooly 2003-03-19
- 打赏
- 举报
'判断是否为整数
If IsNumeric(Text1.Text) Then
If InStr(Text1.Text, ".") = 0 And InStr(Text1.Text, ",") = 0 Then
MsgBox "Integer"
End If
End If
If IsNumeric(Text1.Text) Then
If InStr(Text1.Text, ".") = 0 And InStr(Text1.Text, ",") = 0 Then
MsgBox "Integer"
End If
End If
icesnowworld 2003-03-19
- 打赏
- 举报
判断acsii码值
