---D---
Date - возвращает текущую дату.
Dim MyDate
MyDate = Date ' MyDate содержит текущую системную дату.
DateAdd (interval, number, date) - Возвращает дату, в которой к date добавляет временной интервал.
Параметр interval может принимать следующие значения:
yyyy - Год
q - Квартал
m - Месяц
y - День года
d - День
w - День недели
ww - Неделя
h - Час
n - Минута
s - Секунда
number - количество интервалов, которые вы хотите добавить.
Dim FirstDate As Date
Dim IntervalType As String
Dim Number As Integer
IntervalType = "m"
'"m" устанавливает в качестве интервала - месяцы.
FirstDate = Date
Number = InputBox("Введите кол-во месяцев для добавки")
MsgBox = "Новая дата: " & _
DateAdd(IntervalType, Number, FirstDate)
DateDiff (interval, date1, date2[, firstdayofweek[, firstweekofyear]]) - возвращает разность между двумя датами. Параметр interval указывает в каком формате будет вычисляться разность (значения такие же, как и ф-ции DateAdd).
Dim TheDate As Date
Dim Msg
TheDate = InputBox("Введите дату")
Msg = "Кол-во дней до сегодняшней даты: " & _
DateDiff("d", Now, TheDate)
MsgBox Msg
DatePart (interval, date[,firstdayofweek[, firstweekofyear]]) - Возвращает часть даты (например, месяц или день).
Dim TheDate As Date
Dim Msg
TheDate = Date
Msg = "Номер месяца: " & DatePart("m", TheDate)
MsgBox Msg
DateSerial (year, month, day) - Возвратит дату, указанную по частям.
Dim MyDate
MyDate = DateSerial (2003, 2, 12)
' Возвратит дату February 12, 2003.
DateValue (string) - Возвращает дату, заданную в виде строки.
Dim MyDate
MyDate = DateValue("February 12, 1969") ' Возвратит дату
Day (date) - Возвратит день из указанной даты.
'Допустим на дворе 5 апреля 2001г.
Dim MyDate, MyDay
MyDate = Date
'MyDate содержит текущую системную дату (5 апреля 2001г.)
MyDay = Day(MyDate) ' MyDay содержит текущий день (т.е. 5).
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
DoEvents ( ) - Даёт ОС реагировать на события, когда происходят длительные вычисления.
Do
Loop
' Попробуйте подвигать форму (что, не получилось? ;)
Do
DoEvents
Loop
' А теперь? Вот так вот.
---E---
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
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 ' Закрываем файл
Error [(errornumber)] - Возвращает строку, содержащую описание ошибки, определённой параметром errornumber.
Dim ErrorNumber
For ErrorNumber = 61 To 64
' Выведет описание ошибок с 61 по 64
Debug.Print Error(ErrorNumber)
Next ErrorNumber
Exp (number) - Возвращает экспоненту числа number.
Form1.Caption = Exp(1)
'Отобразит на Caption число e (т.е. e в степени 1)
| 
