Скачать 4.38 Mb.
|
2.8.4. Операторы и функции обработки данных типа «дата-время» Оператор Time (установить системное время) Time[$] = timeExpr Устанавливает значение системного времени. Параметр timeExpr - выражение, значением которого является дата-время типа String или Variant. Функция NOW - . ... ......... ..;;;: •• • : •; -- •• ..•..---••„.•...... .. -. ... Now Возвращает текущее системное значение даты-времени. Возвращаемое значение имеет тип Variant DataType7 (Date/Time). . . Значение дата-время представляет собой восьмибайтовое число с плавающей точкой. Целая часть представляет собой порядковый номер текущего дня, считая с 1 января 100 г. н.э. Дробная часть представляет время текущего дня, считая с полночи предыдущего дня. Пример. Вывод на экран текущей даты и времени в формате Long Date. Print Format(Now(), "Long Date") 'Выводит Tuesday, June 06, 1995 Функция Date Date[$] Возвращает текущую дату. Возвращаемое функцией Date значение является целой частью значения, возвращаемого функцией Now и имеет тип Variant DataType 7 (Date/Time), а функцией Date$ - типа String. Функция Date эквивалентна функции Today. Пример: Выводится строка "05/25/99" если установлена текущая системная дата 25 мая 1999. Print DateS © InterTrust Co. Тел. (095) 9567928 258 Язык LotusScript Функция Today Today Возвращает значение системной даты. Тип Variant DataType 7 (Date/Time). Это значение является целой частью выражения, возвращаемого функцией Now. Пример. Значение, возвращаемое функцией Today, присваивается переменной whenNow типа String. Dim whenNow As String whenNow$ = Today() Print whenNow$ 'Выводит 6/7/95 Функция Time Time[$] Функция Time возвращает значение текущего времени. Возвращаемое значение является дробной частью значения, возвращаемого функцией Now. Функция Time возвращает значение типа Variant DataType7 (Date/Time), a Time$ - типа String. Пример. Dim current As String current$ = Time$() Print current$ 'Выводит системное время Функция DateNumber DateNumber ( год, месяц, день ) Возвращает дату, соответствующую указанным году, месяцу и дню. Возвращаемое значение имеет тип Variant DataType7 (Date/Time). год - числовое выражение, определяющее год. месяц - числовое выражение, определяющее месяц года, принимающее значения от 1 до 12 включительно. Если месяц представлен отрицательным значением, функция DateNumber пересчитывает его, вычитая текущее значение из 12 и относит полученное значение месяца к прошедшему году. Например, если год равен 1999, а месяц равен -2, будет получена дата Октябрь. 1998. день - числовое выражение, определяющее день месяца, принимающее значения в диапазоне от 1 до 31. Если значение выражения является отрицательным числом, то функция DateNumber вычисляет значение дня, как разность между максимальным значением дня для предыдущего месяца и этим значением. Например, DateNumber(1995, 5, -3) соответствует дате Апрель, 27, 1995. Пример. Вычисление значения даты с использованием отрицательных аргументов. Print DateNumber(1947, 10, 8) х Выводит 10/8/47 Print DateNumber(95, 2-5, 4 - 10} ' Выводит 8/25/94 Print DateNumber(95, -3, -б) Л Выводит 8/25/94 Функция TimeNumber TimeNumber ( hour , minute , second ) © InterTrust Co. Тел. (095) 9567928 260 Язык LotusScript Пример. Dim x As Variant Dim yy As Integer x - DateNumber (1995, 4, 1) yy% = Year(x) Print yy% ' Выводит 1995 Функция Month Month (dateExpr ) Возвращает месяц в виде числа от 1 до 12 для аргумента типа время-дата. Параметр dateExpr - выражение "дата-время" типа String или Variant. Тип данных возвращаемого значения - Variant (Integer). Функция Month(Null) возвращает значение Null. Пример. Dim x As Long Dim mm As Integer . x& = DateNumber(1994, 4, 1) mm% = Month(x&) Print mm% ' Выводит 4 Функция Day Day ( dateExpr ) Возвращает день месяца (целое число от 1 до 31) для аргумента дата-время. Параметр dateExpr - допустимая строка дата-время типа String или типа Variant. Возвращаемое значение имеет тип Variant. (Integer). Значение года, определенное двумя цифрами (см. пример выше) определяется как число из 4 цифр. Функция Day(Null) возвращает значение Null. •* Пример, Dim x As Variant, dd As Integer x = DateNumber(1992, 4, 7) dd% = Day(x) Print dd% ' Выводит 7 Функция Hour Hour ( dateExpr) Возвращает время дня - только час в интервале 0 - 23 - для аргумента дата-время. Параметр dateExpr - допустимая строка, содержащая значение даты-времени типа String или Variant. Возвращаемое значение имеет тип Variant (Integer). Если выражение dateExpr типа Variant содержит значение Null, то функция Hour возвращает значение Null. Пример. Формируется сообщения о текущем времени: часе, минутах и секундах текущего дня. Dim timeFrag As String, hoursFrag As String © InterTrust Co. Тел. (095) 9567928 Lotus Domino R. 5: @-формулы, LotusScript, встроенные массы LotusScript и Java 261 Dim minutesFrag As String, secondsFrag As String Dim crlf As String, message As String timeFrag$ = Format(Time, "h:mm:ss AM/PM") hoursFrag$ = Str(23 - Hour(Time)) minutesFrag$ = Str(59 - Minute(Time)) secondsFrag$ = Str(60 - Second(Time)) crlf$ = Chr(13) & Chr(lO) message$ = "Current time: " & timeFrag$ & ". " & crlf$ & "Time remaining in the day: " & hoursFrag$ & " hours, " & minutesFragS & " minutes, and " & secondsFrag$ & " seconds." MessageBox(message$) Функция Minute Minute ( dateExpr ) Возвращает значение минут (целое число от 0 до 59) для аргумента дата-время. Параметр dateExpr - выражение, содержащее значение даты/времени, тина String или Variant. Тип возвращаемого значения - Variant (Integer). Функция Minute(Null) возвращает значение Null. Пример. Формируется сообщение о значении текущего времени в виде чисел, представляющих час, минуту и секунду текущего дня Dim timeFrag As String, hoursFrag As String Dim minutesFrag As String, secondsFrag As String Dim crlf As String, message As String timeFrag$ = Format (Time, "h:mm:ss AM/PM") . hoursFrag$ = Str(23 - Hour(Time)) minutesFrag$ = Str(59 - Minute(Time)) secondsFrag$ =- Str(60 - Second (Time) ) crlf$ = Chr(13) & Chr(10) message? = "Current time: " & timeFrag$ & ". " & crlf$ & "Time remaining in the day: " _ & hoursFrag$ & " hours, " & minutesFrag$ & " minutes, and " _ & secondsFrag$ & " seconds." MessageBox(message$) Функция Second Second (dateExpr) Возвращает секунды (целое значение от 0 до 59) для аргумента дата-время. Параметр dateExpr - строка дата-время типа String или Variant. Возвращаемое значение имеет тип Variant (Integer). Функция Second(Null) возвращает значение "Null. Пример. Формируется и выводится сообщение о значении текущего времени. Dim timeFrag As String, hoursFrag As String Dim minutesFrag As String, secondsFrag As String Dim crlf As String, message As String timeFrag$ = Format(Time, "h:mm:ss AM/PM") hoursFrag$ = Str(23 - Hour(Time)) minutesFrag$ = Str(59 - Minute (Time) ) . © InterTrust Co. Тел. (095) 9567928 262 Язык LotusScript secondsFrag$ - Str(60 - Second(Time)) crlf$ = Chr(13) & Chr(lO) message$ = "Current time: " & timeFrags$ & ". message$ = "Current time: " & timeFrag$ & ". " & crlf$ & "Time remaining in the day: " & hoursFrag$ & " hours, " & minutesFrag$ & " minutes, arid " & secondsFrag$ & " seconds." MessageBox(message$) Функция Timer Timer Возвращает время в секундах от полуночи до текущего момента. Возвращаемое значение имеет тип Single. Пример. Определяется длительность выполнения цикла из 10 000 итераций. Dim startTime As Single Dim elapsedTime As Single . startTime! = Timer(} For counter% = 1 To 10000 Next counter! elapsedTime! = Timer() - startTime! Print "10000 iterations in "; elapsedTime; " seconds" Функция Weekday Weekday ( dateExpr) Возвращает номер дня недели (в интервале от 1 до 7) для аргумента типа дата-время. Параметр dateExpr - значение даты-времени типа String или Variant DataType7 (Date/Time). Тип возвращаемого значения - Variant (Integer). Первым днем недели считается воскресенье, вторым - понедельник, и т.д. Функция Weekday(NulI) возвращает значение Null. Пример. Dim x As Variant, wd As Integer x = DateNumber(1993, 7, 7) wd% = Weekday(x) Print wd% 'Выводит: 4 2.8.5. Форматирование данных (функция Format) Format[$] ( expr [, fmt ] ) Форматирует число, значение дата-время или строку, для которых возможна эта. операция. Параметр expr - любое выражение, которое оценивается:
fmt - опция, являющаяся строкой форматирования, которая может быть:
© InterTrust Co. Тел. (095) 9567928 Lotus Domino R. 5: @~формулы, LotusScript, встроенные классы LotusScript и Java 263 Если строка fmt не является строкой формата, то функция FormatS выполняется, как функция Str[$]. Функция Format возвращает строку типа Variant, а функция FormatS возвращает строку типа String. Если значением выражения ехрг является строка и значением опции fmt - число в строковом формате, то предпринимается попытка преобразовать строку в число. При успешном выполнении этой операции результат форматируется. Если строка преобразуется в число, то предпринимается попытка преобразовать строку в формат даты-времени и в число. В случае успешного выполнения этих преобразований результат форматируется. Если значением выражения ехрг является число, го можно использовать одно из имен форматов, представленных ниже, или создать свой числовой формат, использующий числовые коды форматирования.
Коды числового форматирования Следующая таблица представляет символы, используемые для числового форматирования.
© InterTrust Co. Тел. (095) 9567928 264 Язык LotusScript
Строка форматирования может содержать в себе от одной до четырех секций, разделенных знаком точка с запятой ( ; ). При наличии в формате более одной секции, секции, следующие за первой определяют форматирование других значений числового выражения. Следующая таблица определяет использование секций в одно - и многосекционной строке форматирования.
|
В excel имеются средства для обработки данных, организованных по принципу баз данных – функции списка, основные операции которых... | Республике Саха (Якутия)» (далее – гау «мфц рс(Я)» или Оператор) считает важнейшими своими задачами соблюдение принципов законности,... | ||
Положения об особенностях обработки персональных данных, осуществляемой без использования средств автоматизации и устанавливает порядок... | Рриториальных органов, а также порядок взаимодействия Роскомнадзора и его территориальных органов с операторами, осуществляющими... | ||
Правительства Российской Федерации от 15. 09. 2008 №687 «Об утверждении Положения об особенностях обработки персональных данных,... | Категории обрабатываемых персональных данных, источники их получения, сроки обработки и хранения. 3 | ||
Постановлением Правительства Российской Федерации от 15. 09. 2008 №687 «Об утверждении Положения об особенностях обработки персональных... | Постановлением Правительства Российской Федерации от 15. 09. 2008 №687 «Об утверждении Положения об особенностях обработки персональных... | ||
Постановлением Правительства Российской Федерации от 15. 09. 2008 №687 «Об утверждении Положения об особенностях обработки персональных... | Ии администрации сельского поселения (Н. П. Свистуновой) довести под роспись до сотрудников администрации сельского поселения, обязанности... |
Поиск Главная страница   Заполнение бланков   Бланки   Договоры   Документы    |