作者gofin (云色)
看板Visual_Basic
标题Re: [VBA ] Format的用法
时间Sat Jun 23 12:43:16 2007
Function Newstr(ByVal oldstr As String) As String
If Left(oldstr, 1) = "-" Then
Newstr = "-" & VBA.String(10 - Len(oldstr), "0") & _
Right(oldstr, Len(oldstr) - 1)
Else
Newstr = VBA.String(10 - Len(oldstr), "0") & oldstr
End If
End Function
不知道是不是你要的！！有测过！！
※ 引述《Lohasal (生命奇蹟小狐狸)》之铭言：
: 要自己写函数补空格 :)
: ※ 引述《skating (阿祺)》之铭言：
: : 我要定义一个字串
: : 不管字串是正负数 或是正负数含小数
: : 总位数都是10位 不满10位前面补空格
: : 这样的话 用format 要怎麽定义呢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.124.126.127
1F：推 skating:正是我想要的 谢谢gofin大大 06/23 14:56