module2.bas

来自「TMS（小型票务管理VB+Access）」· BAS 代码 · 共 33 行

Attribute VB_Name = "Module2"
Global giDiscount As Integer
Option Explicit
   
Public Function FullnameValid(Fullname As String) As Boolean
   Dim iX As Integer, iNumSpaces As Integer, strCharacter As String * 1
   For iX = 1 To Len(Fullname)
      strCharacter = Mid$(Fullname, iX, 1)
      If strCharacter = " " Then
         iNumSpaces = iNumSpaces + 1
      End If
   Next iX
   If iNumSpaces = 1 Then
      FullnameValid = True
   Else
      FullnameValid = False
   End If
End Function

Public Function GetFirstName(Fullname As String) As String
   Dim iSpacePosition As Integer
   iSpacePosition = InStr(1, Fullname, " ")
   GetFirstName = Left$(Fullname, iSpacePosition - 1)
End Function

Public Function GetSurName(Fullname As String) As String
   Dim iSpacePosition As Integer
   iSpacePosition = InStr(1, Fullname, " ")
   GetSurName = Right$(Fullname, Len(Fullname) - iSpacePosition)
End Function