Form1.Caption = Exp(1)

'Отобразит на Caption число e (т.е. e в степени 1).

14.6 F

14.6.1 FileAttr

FileAttr (filenumber, returntype) - БнжбпЯшЯдс бзг нсйпъсзю уЯикЯ утмйхзди

Open. returntype гнкемн пЯбмюсырю 1. БЯпзЯмсъ бнжбпЯшЯдлъф жмЯцдмзи

(ркдбЯ - сзо, ропЯбЯ - жмЯцдмзд):

Input 1

Output 2

Random 4

Append 8

Binary 32

Опзлдп:

Dim FileNum, Mode

FileNum = 1

Open "TESTFILE" For Append As FileNum

Mode = FileAttr(FileNum, 1) ' Возвратит 8 (Т.е. файл открыт

' методом Append).

Close FileNum ' Close file.

14.6.2 FileDateTime

FileDateTime (pathname) - бнжбпЯшЯдс сзо Date, гЯсъ онркдгмдвн зжлдмдмзю

уЯикЯ.

Опзлдп:

Dim MyStamp

'Предположим, что файл TESTFILE последний раз был изменѐн

'12 февраля 1993 в 16:35:47

MyStamp = FileDateTime("TESTFILE") ' Возвратит "2/12/93 4:35:47 PM".

14.6.3 FileLen

FileLen (pathname) - бнжбпЯшЯдс пЯжлдп уЯикЯ.

Опзлдп:

Dim MySize

MySize = FileLen("TESTFILE") ' Возвратит длину файла в байтах

14.6.4 Fix

Fix (number) - бнжбпЯсзс хдктэ цЯрсы цзркЯ.

Опзлдп:

Dim MyNumber

MyNumber = Fix(99.2) ' возвратит 99.

MyNumber = Fix(-99.8) ' возвратит -99.

MyNumber = Fix(-99.2) ' возвратит -99.

14.6.5 Format

Format (expression[, format[, firstdayofweek[, firstweekofyear]]]) –

унплЯсзптдс жмЯцдмзд expression он унплЯсмни рспнйд (йЯй б Р).

Опзлдп:

Dim MyTime, MyDate, MyStr

MyTime = #17:04:23#

MyDate = #January 27, 1993#

' Возвратит текущее системное время в длинном формате.

MyStr = Format(Time, "Long Time")

' Возвратит текущую системную дату в длинном формате.

MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s") ' Возвратит "17:4:23".

MyStr = Format(MyTime, "hh:mm:ss AMPM") ' Возвратит "05:04:23 PM". MyStr = Format(MyDate, "dddd, mmm d yyyy")

'Возвратит "Wednesday,

'Jan 27 1993".

'Если формат не задан, то возвратится просто строка.

MyStr = Format(23) ' Возвратит "23". ' Форматы определѐнные пользователем

MyStr = Format(5459.4, "##,##0.00") ' Возвратит "5,459.40".

MyStr = Format(334.9, "###0.00") ' Возвратит "334.90".

MyStr = Format(5, "0.00%") ' Возвратит "500.00%".

MyStr = Format("HELLO", "<") ' Возвратит "hello".

MyStr = Format("This is it", ">") ' Возвратит "THIS IS IT".

14.6.6 FreeFile

FreeFile [(rangenumber)] - бнжбпЯсзс ркдгтэшзи отрсни уЯикнбъи мнлдп.

Опзлдп:

Dim MyIndex, FileNumber

For MyIndex = 1 To 5 ' Начало цикла

FileNumber = FreeFile ' Получаем неиспользуемый номер

Open "TEST" & MyIndex For Output As #FileNumber

Write #FileNumber, "Это пример." ' Запишем текст в файл

Close #FileNumber ' Закроем файл

Next MyIndex

14.7 G

14.7.1 GetAllSettings

GetAllSettings (appname, section) - БнжбпЯсзс розрнй брдф мЯрспндй б рдйхзз.

(Йнснпъд аъкз жЯозрЯмъ у-хзди SaveSetting).

Опзлдп:

Dim MySettings As Variant, intSettings As Integer ' Запишем кое-какие настройки

SaveSetting "MyApp", "Startup", "Left", 50 ' Возвратит строку:

MySettings = GetAllSettings("MyApp", "Startup")

For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1) Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1) Next intSettings

DeleteSetting "MyApp", "Startup" ' Удалим записанные настройки

14.7.2 GetAttr

GetAttr (pathname) - БнжбпЯсзс Яспзатсъ уЯикЯ зкз оЯойз.

БЯпзЯмсъ бнжбпЯшЯдлъф жмЯцдмзи: vbNormal - 0 - Normal

vbReadOnly - 1 - Read-only vbHidden - 2 - Hidden vbSystem - 4 - System

vbDirectory - 16 - Directory or folder

vbArchive - 32 - File has changed since last backup

Опзлдп:

Dim MyAttr

'Предположим файл TESTFILE имеет атрибут "скрытый" MyAttr = GetAttr("TESTFILE") ' Возвратит 2

'Возвратит не ноль, если атрибут "скрытый" установлен

Debug.Print MyAttr And vbHidden

' Возвратит не ноль, если установлены "скрытый" и "только для чтения"

Debug.Print MyAttr And (vbHidden + vbReadOnly)

' Предположим что MYDIR папка.

MyAttr = GetAttr("MYDIR") ' Возвратит 16.

14.7.3 object.GetAutoServerSettings

GetAutoServerSettings ([progid], [clsid]) - р онлншыэ ьсни у-хзз лнемн онктцзсы ProgID з CLSID, с.д. GUID йнлонмдмсЯ ActiveX.

Опзлдп:

Б ьснл опзлдпд лъ онктцЯдл змунплЯхзэ н пдвзрспЯхзз нащдйсЯ Hello.

Dim oRegClass As New RegClass

Dim vRC As Variant

vRC = oRegClass.GetAutoServerSettings ("HelloProj.HelloClass") If Not(IsEmpty(vRC)) Then

If vRC(1) Then

MsgBox "Hello удалѐнно зарегистрирован на сервере - " & vRC(1) Else

MsgBox "Hello зарегистрирован локально."

End If