mduglobal.bas

来自「第1章 串口编程调试精灵 第2章 智能安防报警系统 第3章 电子警察拍照管理」· BAS 代码 · 共 25 行

Attribute VB_Name = "mduGlobal"
Option Explicit

Public Function GetAppPath() As String
    If Right(App.Path, 1) = "\" Then
        GetAppPath = App.Path
    Else
        GetAppPath = App.Path & "\"
    End If
End Function

'获取打印编号
Public Function GetPrintID() As Long

End Function

'格式化打印编号
Public Function FormatPrintNo(ByVal pID As Long) As String
Const sNo = "No 0000000"
Dim s As String
    s = Format(pID)
    FormatPrintNo = Left(sNo, Len(sNo) - Len(s)) & s
End Function