Преобразовать все буквы в прописные [ВЕРХНИЙ РЕГИСТР] — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
iText = "ТексТ" ' "текст"
 
iUpText = UCase(iText) ' Вариант I.
 
iUpText = StrConv(iText, vbUpperCase)  ' Or
iUpText = StrConv(iText, 1) ' Вариант II.
 
iUpText = Format(iText, ">") ' Вариант III.

Похожие записи/страницы:

Leave a Comment