Russian version
English version
| | | | SILICON TAIGA | ISDEF | CD | | | | | | | |
 

 
 
IT-
 
 
 
RSS-

. . , , , . , .

- . .. . , . - . , .

Option Compare Database
'Option Explicit

Public N(1 To 14) As Byte ' -
Public a, As String
Public A1_, A1_, a2, a3, a0

Public Function (, Optional __ As Boolean)
' 0 999 .
' 26.11.97 ( )
' __ = , _
"00 " .

A1_ = Array("", " ", " ", "p ", "p ", " ", " ", " ", " ", " ")
A1_ = Array("", " ", " ", "p ", "p ", " ", " ", " ", " ", " ")
a0 = Array(" ", " ", " ", " ", " ", " ", " ", " ", " ", " ")
a2 = Array("", " ", " ", "p ", " ", " ", " ", " ", " ", " ")
a3 = Array("", " ", " ", "p ", " ", " ", " ", " ", " ", " ")
= Array("", "", "")
= Array("", "", "")
= Array("", "", "")
= Array("", "", "")
= Array("", "", "")

a = "" '
_ = InStr(1, , "=", 1) + InStr(1, , "-", 1) + InStr(1, , ".", 1) + InStr(1, , ",", 1)
If _ = 0 Then
= "00"
_ = Len() + 1
Else
= Left(Mid(, _ + 1, 2) & "00", 2)
End If

= Right("000000000000" & Mid(, 1, _ - 1), 12)

If Val() < 0 Or Val() > 999999999999.99 Then '
= "C (0-999999999999.99)."
Exit Function
End If
For i = 1 To 12 '
N(i) = Val(Mid(, i, 1))
Next i
For i = 13 To 14 '
N(i) = Val(Mid(, i - 12, 1))
Next i
If (0) Then'
a = a & ((0)) + " "
End If
If (3) Then'
a = a & ((3)) + " "
End If
If (6) Then'
a = a & ((6)) + " "
End If
(9) '
If a <> "" Then
a = a & ((9)) & " "
Else
a = " "
End If
a = UCase(Mid(Trim(a), 1, 1)) & Mid(Trim(a), 2) '
If Not __ And = "00" Then Else _
a = a & " " & & " " & ((11))
= a
End Function

Function () As Boolean
If Val(Mid(, 1 + , 3)) <> 0 Then
a = a & a3(N(1 + ))
If N(2 + ) = 1 Then
a = a & a0(N(3 + ))
Else
a = a & a2(N(2 + )) & IIf( = 6, A1_(N(3 + )), A1_(N(3 + )))
End If
= True
Else
= False
End If
End Function

Public Function ()
If N(2 + ) = 1 Then ' 10 19
= 2
Else
Select Case N(3 + )
Case 1
= 0
Case 2 To 4
= 1
Case Else
= 2
End Select
End If
End Function


     
 
 
  : 20.05.2006  

| | | | SILICON TAIGA | ISDEF | CD | | | | | | | |

: Silicon Taiga    
Rambler's Top100 Rambler's Top100