Презентация по информатике на тему Программирование в среде VB. Обработка даты и времени

* * Обработка даты и времени Назначение функций, предназначенных для обработки даты и времени Format * * Функция Format предназначена для форматирования различных значений данных согласно указанным инструкциям. * * Три варианта функции FormatCurrency (возвращает выражение, отформатированное как денежное выражение) FormatNumber ( возвращает выражение, отформатированное как число ) FormatPercent ( возвращает выражение, отформатированное как процентное отношение) Format……….. (expression [, а[, b [, с[, d]]]) * * Значение аргументов функции:Format …(expression [, а[, b [, с[, d]]]) expression Выражение для форматирования a Количество отображаемых знаков после десятичной точки b -1 отображать ведущий ноль, 0 -нет c -1 отрицательные значения в скобках d -1 нужны ограничители, 0 - нет * * Пример использования трех рассмотренных функций * * Программный код проекта Private Sub Command1_Click() Dim a, b As Single a = Text1.Text b = Text2.Text c = a / b c = FormatNumber(c, 3) Label3.Caption = c End Sub * * Программный код проекта Private Sub Command2_Click() Dim a, b As Currency a = Text1.Text b = Text2.Text c = a / b c = FormatCurrency (c, 3) Label3.Caption = c End Sub * * Программный код проекта Private Sub Command1_Click() Dim a, b As Single a = Text1.Text b = Text2.Text c = a / b c = FormatPercent (c, 3) Label3.Caption = c End Sub * * Ещё два варианта функции для форматирования даты и времени 1. FormatDateTime возвращает выражение, отформатированное как дата или времяFormatDateTime(Date [,NamedFormat]) Date Дата для форматирования NamedFormat Численное значение для формата * * Аргумент NamedFormat может принимать следующие значения: Константа Значен. Описание vbGeneralDate 0 Отображать дату и/или время vbLongDate 1 Отображать дату длинного формата vbShortDate 2 Отображать дату короткого формата vbLongTime 3 Отображать время длинного формата vbShortTime 4 Отображать время короткого формата * * Пример использования функций Создать проект VB с формой 1.Разместить на форме кнопку «пуск» * * Программный код проекта Private Sub Command1_Click() Print "Формат" & Chr(9) & "Дата и время" Print "------------------------------------------------------" Print "General Date:" & Chr(9) & Format(Now, "General Date") Print "Long Date:" & Chr(9) & Format(Now, "Long Date") Print "Medium Date:" & Chr(9) & Format(Now, "Medium Date") Print "Short Date:" & Chr(9) & Format(Now, "Short Date") Print "Long Time:" & Chr(9) & Format(Now, "Long Time") Print "Medium Time:" & Chr(9) & Format(Now, "Medium Time") Print "Short Time:" & Chr(9) & Format(Now, "Short Time")End Sub * * Результат работы проекта * * Дополнительное форматирование даты и времени 2. Format (expression [, format [, a[,b]]), гдеA – первый день недели;B – первая неделя года expression Любое допустимое выражение format Допустимое выражение именованного или определенного пользователем формата a Константа, которая определяет первый день недели b Константа, которая определяет первую неделю года * * Аргумент firstdayofweek может принимать следующие значения: Константа Значе-ние Описание vbUseSystem 0 Использовать настройку NLS API vbSunday 1 Sunday vbMonday 2 Monday vbTuesday 3 Tuesday vbWednesday 4 Wednesday vbThursday 5 Thursday vbFriday 6 Friday vbSaturday 7 Saturday * * Аргумент f i r s t w e e k o f y e a r может принимать следующие значения: Константа Значение Описание vbUseSystem 0 Использовать настройку NLS API vbFirstJan1 1 Начинать с недели, в которой имеется дата 1-ое января vbFirstFourDays 2 Начинать с первой недели, в которой имеется, по крайней мере, четыре дня года vbFirstFullWeek 3 Начинать с первой полной недели года * * Программный код Private Sub Command2_Click() Dim Дата As Date, Время As Date, ДатаВремя As Date Дата = Date 'Текущая дата Время = Time 'Текущее время ДатаВремя = Now 'Текущие дата и время Print "Текущая дата: " & Chr(9) & Дата Print "Текущая время: " & Chr(9) & Время Print "Текущие дата и время: "; ДатаВремя Print "Число:"; Day(Дата), "Месяц:"; Month(Дата), _"Год:"; Year(Дата) * * Продолжение Print "Час: "; Hour(Время), "Минут: "; Minute(Время), _ "Секунд: "; Second(Время) Print "День недели: "; Spc(7); Weekday(Now, vbMonday) Print "Число секунд после полуночи: "; Timer Dim ДатаРождения As Date ДатаРождения = DateSerial(1984, 6, 17) Print Print Tab(10); "Дата рождения: " & Chr(9) & ДатаРождения Print "Год рождения: ", DatePart("yyyy", ДатаРождения) Print "Месяц: "; DatePart("m", ДатаРождения), Print " Число: "; DatePart("d", ДатаРождения) Print "День дня рождения: "; Weekday(ДатаРождения, vbMonday) Print * * Продолжение Print "Число прожитых лет: ", DateDiff("yyyy", ДатаРождения, Now) Print "Число прожитых месяцев: "; DateDiff("m", ДатаРождения, Now) Print "Число прожитых недель: ", DateDiff("w", ДатаРождения, Now) Print "Число прожитых дней: ", DateDiff("d", ДатаРождения, Now) Print "Число прожитых часов: ", DateDiff("h", ДатаРождения, Now) Print "Число прожитых минут: ", DateDiff("n", ДатаРождения, Now) Print "Число прожитых секунд: ", DateDiff("s", ДатаРождения, Now) Print Print Tab(9); "Дата 20-летия: "; DateAdd("yyyy", 20, ДатаРождения)End Sub * * Другие ресурсы Буклет организацииДругие документыИмя ответственного/телефон по каждому пункту * * Другие ресурсы Буклет организацииДругие документыИмя ответственного/телефон по каждому пункту * * Необходимые документы Рассмотрите все формы, требующие заполненияОпишите время и сроки заполнения документов новыми сотрудниками * * Выводы Обсудите рассмотренные темыПовторите приглашениеНапомните о сдаче заполненных документовЗавершите выступление