104

мент Length определяет количество копируемых в Mid символов из String. Если Start содержит большее число, чем фактическая длина String, то возвращается пустая строка.

Пример

Sub Встр_функции_7()

Dim R1 As String, R2 As String, _

R3 As String, R4 As String

R4 = "Ваша оценка Отлично"

R1 = Left(R4, 4)

R2 = Mid(R4, 6, 6)

R3 = Right(R4, 7)

MsgBox "R4=" & R4 & Chr(13) & _ "R1=" & R1 & Chr(13) & _

"R2=" & R2 & Chr(13) & _ "R3=" & R3

End Sub

2.13.1.5.5. Форматирование значений данных

Форматирование значений данных можно выполнить при помощи функции Format, которая идентична функции Format в Excel и использует те же символы-заполнители форматирования данных.

Формат функции:

Format (Expression [, Format[, Firstdayofweek [, Firstweekofyear]]])

Expression – любое допустимое выражение (обязательный аргумент). Format – допустимое выражение именованного или определенного пользователем формата.

Firstdayofweek – константа, которая определяет первый день недели. Firstweekofyear – константа, которая определяет первую неделю года.

Чтобы использовать функцию Format, надо либо задать предопреде-

ленный формат, либо создать образ определенного формата, используя символы-заполнители. В качестве символов-заполнителей используются символы 0, #, $, m, d, q и другие, используемые в Excel.

Пример

Sub Встр_функции_8() Dim Дата As Date Дата = Date

MsgBox Format(Дата, "Long Date") & vbCr _

&Format(Дата, "Medium Date") & vbCr _

&Format(Дата, "Short Date") & vbCr _

&Format(Дата, "dd mmmm yy") & vbCr _

&Format(Дата, "dd mm yy") & vbCr _

&Format(Дата, "dd mm yyyy")

End Sub