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

• 1 слайд

  1
  19.06.2022
  Обработка даты и времени
  
  Назначение функций, предназначенных для обработки даты и времени Format
  

• 2 слайд

  19.06.2022
  2
  Функция Format предназначена для форматирования различных значений данных согласно указанным инструкциям.
  

• 3 слайд

  19.06.2022
  3
  Три варианта функции
  
  FormatCurrency (возвращает выражение, отформатированное как денежное выражение)
  FormatNumber ( возвращает выражение, отформатированное как число )
  FormatPercent ( возвращает выражение, отформатированное как процентное отношение)
  Format……….. (expression [, а[, b [, с[, d]]])
  

• 4 слайд

  19.06.2022
  4
  Значение аргументов функции:
  Format …(expression [, а[, b [, с[, d]]])
  

• 5 слайд

  19.06.2022
  5
  Пример использования трех рассмотренных функций
  

• 6 слайд

  19.06.2022
  6
  Программный код проекта
  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
  

• 7 слайд

  19.06.2022
  7
  Программный код проекта
  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
  

• 8 слайд

  19.06.2022
  8
  Программный код проекта
  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
  

• 9 слайд

  19.06.2022
  9
  Ещё два варианта функции для форматирования даты и времени
  
  1. FormatDateTime возвращает выражение, отформатированное как дата или время
  FormatDateTime(Date [,NamedFormat])
  

• 10 слайд

  19.06.2022
  10
  Аргумент NamedFormat может принимать следующие значения:
  

• 11 слайд

  19.06.2022
  11
  Пример использования функций
  Создать проект VB с формой 1.
  Разместить на форме кнопку «пуск»
  
  
  

• 12 слайд

  19.06.2022
  12
  Программный код проекта
  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
  

• 13 слайд

  19.06.2022
  13
  Результат работы проекта
  

• 14 слайд

  19.06.2022
  14
  Дополнительное форматирование даты и времени
  2. Format (expression [, format [, a[,b]]), где
  A – первый день недели;
  B – первая неделя года
  

• 15 слайд

  19.06.2022
  15
  Аргумент firstdayofweek может принимать следующие значения:
  

• 16 слайд

  19.06.2022
  16
  Аргумент f i r s t w e e k o f y e a r
  может принимать следующие значения:
  

• 17 слайд

  19.06.2022
  17
  Программный код
  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(Дата)
  
  

• 18 слайд

  19.06.2022
  18
  Продолжение
  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
  

• 19 слайд

  19.06.2022
  19
  Продолжение
  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
  

• 20 слайд

  19.06.2022
  20
  Другие ресурсы
  Буклет организации
  Другие документы
  Имя ответственного/телефон по каждому пункту
  

• 21 слайд

  19.06.2022
  21
  Другие ресурсы
  Буклет организации
  Другие документы
  Имя ответственного/телефон по каждому пункту
  

• 22 слайд

  19.06.2022
  22
  Необходимые документы
  Рассмотрите все формы, требующие заполнения
  Опишите время и сроки заполнения документов новыми сотрудниками
  

• 23 слайд

  19.06.2022
  23
  Выводы
  Обсудите рассмотренные темы
  Повторите приглашение
  Напомните о сдаче заполненных документов
  Завершите выступление