16 Март 2011

Функция возвращает количество заглавных русских букв в строке

Задачи, Строки |  Таги: , , ,

Функция возвращает количество заглавных русских букв в строке

Public Function GetQuantity(ByVal strText As String) As Long
    Dim i As Long
    Dim lngQuantity As Long
    Dim intTempCharCode As Integer
    lngQuantity = 0
    For i = 1 To Len(strText) Step 1
        intTempCharCode = Asc(Mid(strText, i, 1))
        If intTempCharCode >= 192 And intTempCharCode < = 223 Then
            lngQuantity = lngQuantity + 1
        End If
    Next i
    GetQuantity = lngQuantity
End Function

Private Sub Command1_Click()
Text1 = GetQuantity(Text1)
End Sub


Оставить комментарий

Я не робот.