пЯжмнрсы лдегт гбтлю гЯсЯлз. ОЯпЯлдсп interval тйЯжъбЯдс б йЯйнл унплЯсд атгдс бъцзркюсырю пЯжмнрсы (жмЯцдмзю сЯйзд ед, йЯй з у-хзз DateAdd).
Опзлдп:
Dim TheDate As Date
Dim Msg
TheDate = InputBox("Введите дату")
Msg = "Кол-во дней до сегодняшней даты: " & _
DateDiff("d", Now, TheDate)
MsgBox Msg
14.4.4 DatePart
DatePart (interval, date[,firstdayofweek[, firstweekofyear]]) - БнжбпЯшЯдс цЯрсы гЯсъ (мЯопзлдп, лдрюх зкз гдмы).
Опзлдп:
Dim TheDate As Date
Dim Msg
TheDate = Date
Msg = "Номер месяца: " & DatePart("m", TheDate)
MsgBox Msg
14.4.5 DateSerial
DateSerial (year, month, day) - БнжбпЯсзс гЯст, тйЯжЯммтэ он цЯрсюл.
Опзлдп:
Dim MyDate
MyDate = DateSerial (2003, 2, 12)
' Возвратит дату February 12, 2003.
14.4.6 DateValue
DateValue (string) - БнжбпЯшЯдс гЯст, жЯгЯммтэ б бзгд рспнйз.
Опзлдп:
Dim MyDate
MyDate = DateValue("February 12, 1969") ' Возвратит дату
14.4.7 Day
Day (date) - БнжбпЯсзс гдмы зж тйЯжЯммни гЯсъ.
Опзлдп:
'Допустим на дворе 5 апреля 2001г.
Dim MyDate, MyDay
MyDate = Date
'MyDate содержит текущую системную дату(5 апреля 2001г.)
MyDay = Day(MyDate) ' MyDay содержит текущий день (т.е. 5).
14.4.8 Dir
Dir [(pathname[, attributes])] - БнжбпЯшЯдс рспнйт, рнгдпеЯштэ злю уЯикЯ зкз гзпдйснпзз, йнснпнд рнбоЯгЯдс р нопдгдкяммни лЯрйни, Яспзатснл зкз лдсйни гзрйЯ.
Опзлдп:
Dim MyFile, MyPath, MyName
MyFile = Dir("C:\WINDOWS\WIN.INI")
' Возвратит "WIN.INI" если файл существует.
MyFile = Dir("C:\WINDOWS\*.INI")
'Возвратит имя файла с расширением INI.
'Если файлов несколько, то возвратится имя первого файла.
'Снова вызываем ф-цию Dir, только без параметров,
'чтобы получить имя следующего файла
'с расширением INI в директории WINDOWS
MyFile = Dir
'Возвратит имя первого файла
'с расширением TXT и атрибутом "скрытый"
MyFile = Dir("*.TXT", vbHidden)
'Нижеприведѐнный кусок кода
'отобразит в окне Immediate список папок
'в корневой директории на диске С
MyPath = "C:\"
MyName = Dir(MyPath, vbDirectory)
' Возвратит первую директорию.
Do While MyName <> "" ' Начало цикла
' Игнорируем текущую директорию или заключительную
If MyName <> "." And MyName <> ".." Then
'Используем битовое сравнение, чтобы определить
'что MyName есть директория (а не файл).
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then Debug.Print MyName ' Отобразим в окне Immediate MyName
End If
End If
MyName = Dir.
Loop
14.4.9 DoEvents
DoEvents ( ) - Онжбнкюдс НР пдЯвзпнбЯсы мЯ рнаъсзю, йнвгЯ опнзрфнгюс
гкзсдкымъд бъцзркдмзю.
Опзлдп:
Do
Loop
'Попробуйте подвигать форму (не реагирует)
Do DoEvents Loop
'А теперь?
14.5 E
14.5.1 Environ
Environ ({envstring | number}) - БнжбпЯшЯдс рспнйт, ЯррнхззпнбЯммтэ р
одпдлдммни нйптедмзю НР.
Опзлдп:
Form1.Caption = Environ ("WINDIR")
'Возвратит путь к директории Windows
'В этом примере в Text1 отобразятся все
'переменные окружения (по строчкам)
Dim c As String
For a = 1 To 20 c = Environ(a) If c <> "" Then
Text1.Text = Text1.Text & c & vbCrLf
Else
Exit For
End If
Next a
14.5.2 EOF
EOF (filenumber) - БнжбпЯшЯдс True, дркз гнрсзвмтс йнмдх уЯикЯ опз цсдмзз.
Опзлдп:
Dim InputData
Open "MYFILE" For Input As #1 ' Открываем файл для чтения
Do While Not EOF(1) 'Проверяем не конец ли
Line Input #1, InputData ' Считываем строку
Debug.Print InputData ' Выводим еѐ в Immediate окно
Loop
Close #1 ' Закрываем файл
14.5.3 Error
Error [(errornumber)] - БнжбпЯшЯдс рспнйт, рнгдпеЯштэ нозрЯмзд нчзайз,
нопдгдкяммни оЯпЯлдспнл errornumber.
Опзлдп:
Dim ErrorNumber
For ErrorNumber = 61 To 64
' Выведет описание ошибок с 61 по 64 Debug.Print Error(ErrorNumber)
Next ErrorNumber
14.5.4 Exp
Exp (number) - БнжбпЯшЯдс ьйронмдмст цзркЯ number.
Опзлдп: