alignment.bas

来自「一个商场财务系统」· BAS 代码 · 共 29 行

Attribute VB_Name = "Alignment"
Public Function Right(ByVal Xz As String, ByVal L As Integer, ByVal D As Integer) As String
  Dim L1 As Integer, N As Integer
  Dim Space As String, J As Integer
  Dim Z As String
    For J = 1 To D
     Z = Z + "0"
    Next J
  If D <> 0 Then
     Z = "0." & Z
     Xz = Format(Xz, Z)
     L1 = Len(Xz)
     Else
     Xz = Format(Xz, Z)
     L1 = Len(Xz)
  End If
    If L1 < L Then
     N = L - L1
     For J = 1 To N
      Space = Space & " "
     Next J
     Right = Space & Xz
    Else
     Right = Xz
    End If
End Function