mod_function.bas

来自「This a complete inventory management sys」· BAS 代码 · 共 175 行

Attribute VB_Name = "mod_function"
'******************************* frame 7 *******************************
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'******************************* frame 8 *******************************
Public Declare Function SleepEx Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long
'******************************* frame 9 *******************************
Public Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Public Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

Public Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type




Public Function ToText(num As Integer) As String


    Dim table(27, 1), strNum As String
    
    Dim i As Integer
    
    Dim found As Boolean
    
        
    'From 0 to 9
    
    For i = 0 To 9
    
        table(i, 0) = i
    
    Next
    
    
    table(0, 1) = "Zero"
    
    table(1, 1) = "One"
    
    table(2, 1) = "Two"
    
    table(3, 1) = "Three"
    
    table(4, 1) = "Four"
    
    table(5, 1) = "Five"
    
    table(6, 1) = "Six"
    
    table(7, 1) = "Seven"
    
    table(8, 1) = "Eight"
    
    table(9, 1) = "Nine"
       
   table(10, 0) = 10 '10
   
   table(10, 1) = "Ten"
      
   'From 11 to 19
   
   For i = 11 To 19
   
       table(i, 0) = i
       
   Next
   
   table(11, 1) = "Eleven"
   
   table(12, 1) = "Twelve"
   
   table(13, 1) = "Thirteen"
   
   table(14, 1) = "Fourteen"
   
   table(15, 1) = "Fifteen"
   
   table(16, 1) = "Sixteen"
   
   table(17, 1) = "Seventeen"
   
   table(18, 1) = "Eighteen"
   
   table(19, 1) = "Nineteen"
      
   table(20, 0) = 20
   
   table(20, 1) = "Twenty"
   
   table(21, 0) = 30
   
   table(21, 1) = "Thirty"
   
   table(22, 0) = 40
   
   table(22, 1) = "Forty"
   
   table(23, 0) = 50
   
   table(23, 1) = "Fifty"
   
   table(24, 0) = 60
   
   table(24, 1) = "Sixty"
   
   table(25, 0) = 70
   
   table(25, 1) = "Seventy"
   
   table(26, 0) = 80
   
   table(26, 1) = "Eighty"
   
   table(27, 0) = 90
   
   table(27, 1) = "Ninety"
   
   
   For i = 0 To 27
   
        If table(i, 0) = num Then
        
            strNum = table(i, 1)
            
            ToText = strNum
            
            found = True
        
        End If
   
   Next
   
   If Not found Then
              
    For i = 0 To 27
    
     If table(i, 0) = (num \ 10) * 10 Then
     
         If table(i, 0) <> "0" Then
         
             strNum = table(i, 1) & " "
             
         End If
     
     End If
    
    Next
         
    
    For i = 0 To 27
    
     If table(i, 0) = num Mod 10 Then
     
            strNum = strNum + table(i, 1)
              
     
     End If
    
    Next
    
    ToText = strNum
 End If
     

End Function