module1.bas

环保局排污费通知单打印.rar

Attribute VB_Name = "Module1"

Public Function funDelStr(ByRef strInput As String, _
                      ByRef intStar As Integer, ByRef intChr As Integer)
Dim intSum As Integer

intSum = Len(strInput)
funDelStr = Left(strInput, intStar - 1) & Right(strInput, intSum - (intStar + intChr - 1))

End Function