大家帮我看看这个函数啥意思啊 '自定义format函数Private Function FormatStr(SourceStr As String,FormatString As String) As StringDim i As LongDim tempstr As StringDim iLen As LongDim FormatLen As LongDim DecLen As LongFormatLen = Len(

来源:学生作业帮助网 编辑:作业帮 时间:2024/10/05 21:34:23
大家帮我看看这个函数啥意思啊 '自定义format函数Private Function FormatStr(SourceStr As String,FormatString As String) As StringDim i As LongDim tempstr As StringDim iLen As LongDim FormatLen As LongDim DecLen As LongFormatLen = Len(
xSN@~9$U^|ĢMR=RPq6 b Li9 30P&MvoID.TZ w:yzή] Xxe /z]Jy)뱰$:642E 5J /# 9$"U8Ky!5f8gI1U)(bi!%" $ȻOz4i68e%V_Ù Q{Mb>P=ƘѨP+`L(+ȊM?P=S3q(+1 ^zgwfx)6Fœ!jjٹ}?>(C%ͅ]oXux&M&._,,s9H#A"D *T՟R9'TPժ,~|"o؈`{zV`{yٟL`eBl`b

大家帮我看看这个函数啥意思啊 '自定义format函数Private Function FormatStr(SourceStr As String,FormatString As String) As StringDim i As LongDim tempstr As StringDim iLen As LongDim FormatLen As LongDim DecLen As LongFormatLen = Len(
大家帮我看看这个函数啥意思啊
'自定义format函数
Private Function FormatStr(SourceStr As String,FormatString As String) As String
Dim i As Long
Dim tempstr As String
Dim iLen As Long
Dim FormatLen As Long
Dim DecLen As Long
FormatLen = Len(FormatString)
iLen = Len(SourceStr)
If FormatLen >= iLen Then
DecLen = FormatLen - iLen
tempstr = Left(FormatString,DecLen) & SourceStr
Else
tempstr = Left(SourceStr,FormatLen)
End If
FormatStr = tempstr
End Function

大家帮我看看这个函数啥意思啊 '自定义format函数Private Function FormatStr(SourceStr As String,FormatString As String) As StringDim i As LongDim tempstr As StringDim iLen As LongDim FormatLen As LongDim DecLen As LongFormatLen = Len(
就是将字符串长度与一标准字符串长度比较,
如果字串长度比标准的长,则保留到标准的长度即可;
如时字串长度比标准的短,则在其之前添加标准字串的前几位补足同样的长度.

有道理