function CapitalizeMoney(aMoney: Double; aIsUnit: Boolean; var oMoneyStr: string): string; //小写人民币转换成大写人民币 function IsExistForm(aFormObject: string): Boolean; //查询窗体是否存在 function CalcAmountOfField(aQry: TQuery; aFieldName: string; var oAmountStr: st
VB6常用编程方法汇编,编程方法范例,如: 清除字符串的所有空格 Function Trimk(cc0) Dim i, j, s1 j = Len(cc0) i = 1 While i < j + 1 s1 = Mid(cc0, i, 1) 'MsgBox "s1=" & s1 & ";" If s1 = " " Or s1 = " " Then cc0 = Mid(cc0, 1, i - 1) + Mid(cc0, i + 1, j) i = i - 1 'MsgBox "cc0="