文本框位数相关问题

Redball 2003-12-03 01:15:26

如果文本框内是 NULL 得到 “000”
如果是 0 得到 “000”

已经用if 语句实现

如果是三位数字如 123 得到 “123”
如果是两位或一位数字，则在前补“0”
比如“12” 得到 “012”
“6” 得到 “006”

有没有什么方法能实现这样的功能？

...全文

77 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2003-12-03

打赏
举报

WQ771211(SyanSea): 妙！好主意！

WQ771211 2003-12-03

打赏
举报

给你一个最easy的
text1.text=right("000"&text1.text,3)

rainstormmaster 2003-12-03

打赏
举报

Option Explicit

Private Sub Command1_Click()
Dim s As String
Dim i As Long
i = Len(Text1.Text)
If i > 3 Then
Exit Sub
End If
s = String(3 - i, "0") + Text1.Text
MsgBox s
End Sub

tlbbpcg 2003-12-03

打赏
举报

function formatNumber(inumber as integer) as string
formatNumber=format("000",inumber)
end function

也许format的格式我写得有错,满久没用过vb了,不过原理就是这样

shwen 2003-12-03

打赏
举报

format (text1.text, "000")

lxcc 2003-12-03

打赏
举报

Private Sub Command1_Click()
If IsNumeric(Text1) = True Then
If Trim(Text1) = "" Then
MsgBox "000"
Else
MsgBox Format(Text1, "000")
End If
Else
MsgBox "有非数字字符"
End If
End Sub