Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.98
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.98

Day

Данная функция служит для определения порядкового номера дня недели. Согласно нашим региональным установкам отсчет начинается с понедельника (Monday), поэтому в приведенном ниже коде результатом станет ноль.

TextBox2.Text = Day.Monday

Format

Функция служит для форматирования выражения вообще и величин даты и времени в частности. Общий синтаксис форматирования выглядит так: Format (выражение, формат). Применительно к дате или времени под словом выражение понимается любое сочетание, которое оценивается как дата. Под определением формат надо понимать тип данных. Ниже приведены примеры, отображающие некоторые способы форматирования.

Private Sub Buttonl_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs) Handles Buttonl.Click

Dim a As String

a = TextBoxl.Text

TextBox2.Text = Format(a, "General Date") End Sub

Если ввести в текстовое поле значение 14,11,05, то результатом будет 14.11.2005 0:00:00. такой же результат получим, если ввести 14 ноября. А вот ввод значения 14 ноября 2005 года даст результат 14 ноября 2005 года. Можно указывать и другой тип данных, например " Long Datе", " Shot Date". Существует еще одна функция, предназначенная для форматирования времени и даты. Это FormatDateTime. Действует она так же, как и функция Format, с той лишь разницей, что формат выбирается пользователем из списка перечисления.

6-Трусош

ГЛАВА 18 ▼ Текстовый редактор Mow

Данная функция сообщает реальную дату и время, соответствующее установкам системы

Private Sub Buttonl_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs) Handles Buttonl.Click TextBoxl.Text = Now

TimeSerial

Данная функция служит для получения времени. Система определяет его как число, отсчитываемое от установленного начального значения, то есть данная функция действует так же, как и DateSerial. Например, код TextBoxl .Text = TimeSe-rial(20/ 30, -40) определит время как 20 :29 :20, то есть от числа минут будет вычтено 40 с.

АкодTextBoxl.Text = TimeSerial (20000, 3000, 40) определит дату, отсчитав указанное количество часов, минут и секунд от начала нашей эры. Результатом будет дата 16.04.0003 10:00:40.


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta