Автоматизация учета основных средств на предприятии

Else

m1: If kstr1 = "1" Then translateNumber = " тысяча" & translateNumber

If kstr1 = "2" Then translateNumber = " тысячи" & translateNumber

If kstr1 = "3" Then translateNumber = " тысячи" & translateNumber

If kstr1 = "4" Then translateNumber = " тысячи" & translateNumber

If (Val

(kstr1) >= 5) Or (kstr1 = "0") Then translateNumber = " тысяч" & translateNumber

End If

End If

If razr_count = 7 Then

mgl = False

If kstr1 = "1" Then translateNumber = " миллион" & translateNumber

If kstr1 = "2" Then translateNumber = " миллиона" & translateNumber

If kstr1 = "3" Then translateNumber = " миллиона" & translateNumber

If kstr1 = "4" Then translateNumber = " миллиона" & translateNumber

If (Val (kstr1) >= 5) Or (kstr1 = "0") Then translateNumber = " миллионов" & translateNumber

End If

If razr_count = 10 Then

mgl = False

If kstr1 = "1" Then translateNumber = " миллиард" & translateNumber

If kstr1 = "2" Then translateNumber = " миллиарда" & translateNumber

If kstr1 = "3" Then translateNumber = " миллиарда" & translateNumber

If kstr1 = "4" Then translateNumber = " миллиарда" & translateNumber

If (Val (kstr1) >= 5) Or (kstr1 = "0") Then translateNumber = " миллиардов" & translateNumber

End If

If razr_count = 13 Then

mgl = False

If kstr1 = "1" Then translateNumber = " триллион" & translateNumber

If kstr1 = "2" Then translateNumber = " триллиона" & translateNumber

If kstr1 = "3" Then translateNumber = " триллиона" & translateNumber

If kstr1 = "4" Then translateNumber = " триллиона" & translateNumber

If (Val (kstr1) >= 5) Or (kstr1 = "0") Then translateNumber = " триллионов" & translateNumber

End If

If razr_all - razr_count - 1 < 1 Then

translateNumber = triade (Mid (num_str, 1, razr_all - razr_count + 1), mgl) & translateNumber

Else

translateNumber = triade (Mid (num_str, razr_all - razr_count - 1,3), mgl) & translateNumber

End If

Next razr_count

translateNumber = ucasefirst (translateNumber)

Exit Function

LblErr:

MsgBox Err. Description

End Function

Function triade (ByVal in_str As String, mg As Boolean) As String

On Error GoTo LblErr

Dim out_tri2 As String

Dim out_tri1 As String

Dim out_tri3 As String

Dim di As String, kstr1 As String

triade = ""

If Len (in_str) < 3 Then in_str = "0" & in_str

If Len (in_str) < 3 Then in_str = "0" & in_str

kstr1 = Mid (in_str, 1,1)

If kstr1 = "0" Then out_tri3 = ""

If kstr1 = "1" Then out_tri3 = " сто"

If kstr1 = "2" Then out_tri3 = " двести"

If kstr1 = "3" Then out_tri3 = " триста"

If kstr1 = "4" Then out_tri3 = " четыреста"

If kstr1 = "5" Then out_tri3 = " пятьсот"

If kstr1 = "6" Then out_tri3 = " шестьсот"

If kstr1 = "7" Then out_tri3 = " семьсот"

If kstr1 = "8" Then out_tri3 = " восемьсот"

If kstr1 = "9" Then out_tri3 = " девятьсот"

'оцениваем на 11

di = Right (in_str,

2): kstr1 = Mid (in_str, 2,1)

If kstr1 = "1" Then

If di = "10" Then out_tri2 = " десять"

If di = "11" Then out_tri2 = " одиннадцать"

If di = "12" Then out_tri2 = " двенадцать"

If di = "13" Then out_tri2 = " тринадцать"

If di = "14" Then out_tri2 = " четырнадцать"

If di = "15" Then out_tri2 = " пятнадцать"

If di = "16" Then out_tri2 = " шестнадцать"

If di = "17" Then out_tri2 = " семнадцать"

If di = "18" Then out_tri2 = " восемнадцать"

If di = "19" Then out_tri2 = " девятнадцать"

triade = out_tri3 & out_tri2

Exit Function

End If

If kstr1 = "0" Then out_tri2 = ""

If kstr1 = "2" Then out_tri2 = " двадцать"

If kstr1 = "3" Then out_tri2 = " тридцать"

If kstr1 = "4" Then out_tri2 = " сорок"

If kstr1 = "5" Then out_tri2 = " пятьдесят"

If kstr1 = "6" Then out_tri2 = " шестьдесят"

If kstr1 = "7" Then out_tri2 = " семдесят"

If kstr1 = "8" Then out_tri2 = " восемдесят"

If kstr1 = "9" Then out_tri2 = " девяносто"

kstr1 = Mid (in_str, 3,1)

If kstr1 = "0" Then out_tri1 = ""

If mg = False Then

If kstr1 = "1" Then out_tri1 = " один"

If kstr1 = "2" Then out_tri1 = " два"

Else

If kstr1 = "1" Then out_tri1 = " одна"

If kstr1 = "2" Then out_tri1 = " две"

End If

If kstr1 = "3" Then out_tri1 = " три"

If kstr1 = "4" Then out_tri1 = " четыре"

If kstr1 = "5" Then out_tri1 = " пять"

If kstr1 = "6" Then out_tri1 = " шесть"

If kstr1 = "7" Then out_tri1 = " семь"

If kstr1 = "8" Then out_tri1 = " восемь"

If kstr1 = "9" Then out_tri1 = " девять"

triade = out_tri3 & out_tri2 & out_tri1

Exit Function

LblErr:

MsgBox Err. Description, vbCritical + vbOKOnly

End Function

Function ucasefirst (in_str As String) As String

On Error GoTo LblErr

Dim fs As String

Dim ns As String

If Nz (in_str, "") = "" Then ucasefirst = ""

in_str = Trim (in_str)

fs = Left (in_str,

1)

ns = Right (in_str, Len (in_str) - 1)

ucasefirst = UCase (fs) & ns

Exit Function

LblErr:

MsgBox Err. Description, vbCritical + vbOKOnly

End Function

 Скачать реферат