Условие

[SkrudjMakdak]

Помогите, пожалуйста. Вот код проги:

dim с, newrec as Integer
dim i as long
c = ProvData(TextBox5.Value)
...
B = Range("Входящий!B" + CStr(i)).Value
...
newrec = ProvData(B) 'ProvData(String) as Integer
...
If newrec > с Then
MsgBox "newrec=" + CStr(newrec)
MsgBox "c=" + CStr(c)
End If

А выводит сообщения: newrec=812 и c=812
То что выводит одинаковые числа это правильно, но условие выполняться НЕ должно

[SkrudjMakdak]

Немного измененый код проги, но результат тот же:

Public Function ProvData(pdt As String) As Integer
Dim pdi, pdn, pdx As Integer
Dim pdc As String
pdn = 0
pdb = 0
For pdi = 1 To Len(pdt)
If (Mid(pdt, pdi, 1) = " ") Then
pdb = 1
End If
If pdb = 1 Then
pdc = pdc + Mid(pdt, pdi, 1)
End If
pdx = Asc(Mid(pdt, pdi, 1))
If (pdb = 0) And (pdx >= 48 And pdx <= 57) Then
pdn = 10 * pdn + CInt(Mid(pdt, pdi, 1))
End If
Next
Select Case pdc
Case " января"
ProvData = pdn + 100
Case " февраля"
ProvData = pdn + 200
Case " марта"
ProvData = pdn + 300
Case " апреля"
ProvData = pdn + 400
Case " мая"
ProvData = pdn + 500
Case " июня"
ProvData = pdn + 600
Case " июля"
ProvData = pdn + 700
Case " августа"
ProvData = pdn + 800
Case " сентября"
ProvData = pdn + 900
Case " октября"
ProvData = pdn + 1000
Case " ноября"
ProvData = pdn + 1100
Case " декабря"
ProvData = pdn + 1200
Case Else
ProvData = -1
End Select
End Function

Private Sub CommandButton2_Click()
Dim newrec, c As Integer
newrec = ProvData("12 августа")
c = ProvData("12 августа")
If newrec > с Then
MsgBox "newrec=" + CStr(newrec)
MsgBox "c=" + CStr(c)
End If
End Sub

[Hugo121]

Не надо путать с и c!
Используйте Option Explicit!

[SkrudjMakdak]

спасибо большое