分不多请帮忙（基础问题）

lk_cool 2003-12-06 09:15:29

怎样把text中的字符过滤掉，只留下数字。

有没有一个控件，获得与系统日期时间无关的日期时间。

是否可以把字符串“2003-12-5 15：30”当作日期时间存入sqlserver中的datetime类型中

...全文

52 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

SoHo_Andy 2003-12-06

打赏
举报

DTPicker 控件就是简单选取日期的控件
需要引用微软通用控件6。0
value属性就是用户选择的时间

lk_cool 2003-12-06

打赏
举报

MonthView1控件

lk_cool 2003-12-06

打赏
举报

这段小函数是过滤掉text中的非数值字符

可是有错误

例如:12354a就可以通过检测！

为什么？

Function Checknum(Strc As String) As Integer

Dim I，J As Integer
Dim Tstr As String

I = Len(Strc)

For J = 1 To I

Tstr = Mid(Strc, J, 1)

J = J + 1

If Asc(Tstr) >= 48 Then

If Asc(Tstr) <= 57 Then
Checknum = 1
Else
Checknum = 2
Exit Function
End If

Else

Checknum = 2
Exit Function
End If

Next

End Function

佛的光辉 2003-12-06

打赏
举报

怎样把text中的字符过滤掉，只留下数字。
在keypress事件中编写过滤代码

佛的光辉 2003-12-06

打赏
举报

有没有一个控件，获得与系统日期时间无关的日期时间。
怎么个无关法？

lk_cool 2003-12-06

打赏
举报

怎样把text中的字符过滤掉，只留下数字。

有没有一个控件，获得与系统日期时间无关的日期时间。

有什么简单方法选择时间，而不是输入？

victorycyz 2003-12-06

打赏
举报

是否可以把字符串“2003-12-5 15：30”当作日期时间存入sqlserver中的datetime类型中

可以。

northwolves 2003-12-06

打赏
举报

1.

Private Sub Command1_Click()
MsgBox digonly(Text1)
End Sub
Function digonly(ByVal mystr As String) As String
digonly = mystr
For i = 1 To Len(mystr)
If Abs(Asc(Mid(mystr, i, 1)) - 53) >= 5 Then digonly = Replace(digonly, Mid(mystr, i, 1), "")
Next
End Function

simanh 2003-12-06