На главную страничку учебника Visual Basic

Стандартные функции VB (D-E)

Описание ф-ций, встроенных в Visual Basic 5, начинающихся с букв D до E

Список функций, описанных в этом разделе:

• Date
• DateAdd
• DateDiff
• DatePart
• DateSerial
• DateValue
• Day
• Dir
• DoEvents
• Environ
• EOF
• Error
• Exp

---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).

На главную страничку учебника Visual Basic