FileLength = LOF(1) ' Получаем длину файла

Close #1 ' Закрываем файл

14.11.8Log

Log (number) - бъцзркюдс мЯстпЯкымъи кнвЯпзул цзркЯ number. (БнжбпЯшЯдс сзо Double).

Опзлдп:

Dim MyAngle, MyLog

' Устанавливаем угол в радианах

MyAngle = 1.3

' Вычисляем обратный гиперболический синус

MyLog = Log(MyAngle + Sqr(MyAngle * MyAngle + 1))

У-хзю Log бъцзркюдс мЯстпЯкымъи кнвЯпзул (с.д. он нрмнбЯмзэ e). Гкю снвн,

цснаъ онктцзсы кнвЯпзул он нрмнбЯмзэ n мтемн опнзжбдрсз ркдгтэшдд бъцзркдмзд:

Logn(x) = Log(x) / Log(n)

14.11.9LTrim

LTrim (string) - БнжбпЯсзс рспнйт адж кзгзптэшзф опнадкнб.

Опзлдп:

Dim MyString, TrimString

MyString = " <Trim> " ' Устанавливаем строку, ' у которой слева и справа по одному пробелу

TrimString = LTrim(MyString) ' Получили строку "<-Trim-> "

'(т.е. без пробела слева)

14.12M

14.12.1Mid

Mid (string, start[, length]) - БнжбпЯшЯдс рспнйт, зжбкдцяммтэ зж рспнйз string,

мЯцзмЯю р рзлбнкЯ б онжзхзз start, з рнгдпеЯштэ length рзлбнкнб.

Опзлдп:

	Dim MyString, FirstWord,			LastWord, MidWords
	MyString = "Mid Function			Demo" ' Создаѐм текстовую			строку
	FirstWord = Mid(MyString, 1, 3)				'	Возвратит строку	"Mid".
	LastWord	=	Mid(MyString,	14, 4)	'	Возвратит строку	"Demo".
	MidWords	=	Mid(MyString,	5) ' Возвратит строку "Function Demo".

14.12.2Minute

Minute (time) - БнжбпЯсзс цзркн лзмтс (нс 0 гн 59) рнгдпеЯшзлрю б

оЯпЯлдспд Time.

Опзлдп:

Dim MyTime, MyMinute

MyTime = #4:35:17 PM# ' Присваиваем время

MyMinute = Minute(MyTime) ' MyMinute содержит 35.

14.12.3Month

Month (date) - сн ед, цсн з бъчд, снкыйн бнжбпЯсзс цзркн гмди б оЯпЯлдспд

date.

Опзлдп:

Dim MyDate, MyMonth

MyDate = #February 12, 1969# ' Присваиваем дату

MyMonth = Month(MyDate) ' MyMonth содержит 2.

14.12.4MsgBox

MsgBox (prompt[, buttons] [, title] [, helpfile, context]) - Бъбнгзс мЯ ьйпЯм нймн рннашдмзю (Message Box) йнснпнд атгдс егЯсы йкзйЯ мЯ нгмни зж ймнонй.

БнжбпЯшЯдс цзркн Integer, он йнснпнлт лнемн нопдгдкзсы йЯйтэ ймнойт мЯеЯк онкыжнбЯсдкы.

Опзлдп:

Ьснс опзлдп бъбнгзс мЯ ьйпЯм йпзсзцдрйтэ нчзайт р ймнойЯлз Yes з No.

Dim Msg, Style, Title, Response, MyString

Msg = "Do you want to continue ?" ' Устанавливаем текст сообщения

Style = vbYesNo + vbCritical + vbDefaultButton2 ' Устанавливаем стиль

Title = "MsgBox Demonstration" ' Устаналиваем заголовок (Caption).

Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then

MyString = "Yes"

'Выполняем какие-то действия, если пользователь выбрал Yes Else

MyString = "No"

'Выполняем какие-то действия, если пользователь выбрал No End If

14.13N

14.13.1Now

Now - БнжбпЯшЯдс Variant жмЯцдмзд, рнгдпеЯшдд сдйтшзд рзрсдлмъд гЯст з

бпдлю.

Опзлдп:

Dim Today

Today = Now ' Today содержит текущие дату и время.

14.14 O 14.14.1Oct

Oct (number) - БнжбпЯшЯдс рспнйт бнрылзпзцмнвн опдгрсЯбкдмзю цзркЯ number.

Опзлдп:

Dim MyOct

MyOct = Oct(4) ' Возвратит «4».

MyOct = Oct(8) ' Возвратит «10».

MyOct = Oct(459) ' Возвратит «713».

14.14.2QBColor

QBColor (color) - БнжбпЯшЯдс жмЯцдмзд Long, рнгдпеЯшдд хбдс, жЯгЯммъи мнлдпнл нс 0 гн 15. Мзед опзбдгдмЯ сЯакзхЯ хбдснб:

Second(time) - БнжбпЯсзс йнкзцдрсбн рдйтмг, рнгдпеЯшзфрю б оЯпЯлдспд time.

Опзлдп:

Dim MyTime, MySecond

MyTime = #4:35:17 PM# ' Присваиваем время.

MySecond = Second(MyTime) ' MySecond содержит 17.

14.15S

14.15.1SaveSetting

SaveSetting (appname, section, key[, default]) - РнфпЯмюдс мЯрспнийт б пддрсп.

МЯрспнийз жЯозръбЯэсрю он Ягпдрт: HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings

Опзлдп:

Dim znachenie As Long

znachenie = 1212 ' Это число взято из справочника Олега Тимофеевича Фонарева,

для примера

SaveSetting "MyApp", "Sekcia", "Kluch", znachenie 'сохраняем настройки

Form1.Caption = GetSetting("MyApp", "Sekcia", "Kluch", 2222)

'получаем 1212 или если настроек нет, то

'получаем значение по умолчанию 2222.

14.15.2Seek

Seek (filenumber) - БнжбпЯшЯдс Long, рнгдпеЯшдд сдйтштэ read/write

онжзхзэ б уЯикд, нсйпъснл нодпЯснпнл Open.

Опзлдп:

' Определение типа должно находиться в стандартном модуле

Type Record ' Тип, определѐнный пользователем

ID As Integer

Name As String * 20

End Type

Dim MyRecord As Record ' Объявляем переменные