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