Время и дата в VBA Excel

Тема: Время и дата в VBA Excel

Цели: 

Образовательные:

1. Cформировать представление о работе с датой

2. Cформировать представление об функциях работы с датой и временем

3. Сформировать навыки работы с датой и временем в VBA.

Развивающие:

1. Продолжить развивать творческое мышление и воображение.

2. Продолжить развивать речь (обогащение и усложнение словарного запаса)

3. Продолжить развивать память

Воспитательные:

1. Воспитание дисциплины.

2. Воспитание бережного отношения к школьному имуществу

3. Воспитание самостоятельности

4. Воспитание аккуратности

Тип урока: комбинированный

Оборудование:

1. Компьютеры.

2. Раздаточный материал.

3. Мультимедийный проектор.

Формы обучения: коллективная, индивидуальная 

Методы обучения:

1. Объяснение

2. Демонстрация

Дидактические единицы: тип Date, функции для работы с датой и временем

Ход урока 

1.Оргмомент и целеполагание

     Здравствуйте! Сегодня на уроке вы узнаете, как работать с датой и временем в VBA Excel.

2.Объяснение нового материала

Время и дата

     Объектно-ориентированное программирование позволяет создавать графический интерфейс разрабатываемых приложений на основе Для работы с датой в VBA предусмотрен специальный тип Date. Он занимает 8 байт и хранит дату во внутреннем представлении VB. Чтобы преобразовать дату и время из строки в этот формат, можно воспользоваться функциями DateValue и TimeValue. 

Например вывод даты с помощью диалогового окна. 

Sub DateConversionTest() 
     Dim TestDate As Date 
     TestDate = DateValue("2/3/98") 
     MsgBox (Str(Year(TestDate))) 
End Sub 

Или в случае со временем: 
Sub Test() Dim MyTimeDate As Date 
     MyTimeDate = DateValue("7/2/93") + TimeValue("11:12:13") 
     MsgBox Str(Minute(MyTimeDate)) 
     MsgBox Str(Year(MyTimeDate)) 
End Sub

Функции для работы с датой и временем:

Date – определяет текущую дату по системному времени

Time() – определить текущее время

Month- определяет номер месяца по дате

MonthName(номер месяца) – определяет название месяца по его номеру

Day- определяет день по дате

Year(date)- определяет год по дате

Hour(Time())- определяет час по времени час 

Minute(Time())- определяет минуты по времени 

Second(Time())- определяет секунды по времени 

WeekDay (Date, vbMonday)- определяет номер дня недели, начиная с указанного

WeekDayName (номер дня) – определяет название дня недели 
Возвращают соответственно месяц, день, год, часы, минуты, секунды и день недели. 

DateDiff(“m”,d1,d2) – определяет разницу между двумя датами d2 и d1 в указанных единицах измерения (“YYYY” – в годах; “m” – месяцах, “Y” - в днях; “h” – в часах; “n” – в минутах; “s” – в секундах)

Sub Test() 
     Dim MyDate As Date 
     MyDate = DateValue("3/7/89") 
     If (WeekDay(MyDate) = vbSunday) Then MsgBox ("Sunday") 
End Sub 

vbSunday, vbMonday, ... - предопределенные константы для дней недели.

3.Практическая работа 

Тема: Время и дата в VBA Excel.

Цель: Создать календарь, всплывающий по нажатию сочетания клавиш, с помощью которого можно вводить дату в выбранную заранее ячейку. 

Оборудование: Компьютер, табличный процессор Microsoft Excel.

Перечень заданий:
     Задание1. Создать форму
     Задание2. Написать код для выполнения программы

Технология работы:

1. Откройте редактор Visual Basic через меню Сервис - Макрос - Редактор Visual Basic (Tools - Macro - Visual Basic Editor).

2. Создайте в нем новую пустую пользовательскую форму, выбрав в меню Insert - User form. Автоматически должна появиться панель Toolbox:

(Если не появилась - жмите в меню View - Toolbox.)

3. На этой панели представлены различные управляющие элементы окон: кнопки, списки, счетчики и т.д. Но нам нужен элемент (календарь), которого пока на панели не видно. Чтобы добавить его, щелкните по серому фону панели правой кнопкой мыши и выберите Additional Controls. Появится вот такое окно:

4. В нем надо найти и отметить Элемент управления Календарь 11.0 (Calendar Control 11.0). Версии могут отличаться (11.0, 10.0 и т.д.) в зависимости от версии Microsoft Office, это несущественно. После нажатия на ОК на панели появится новая кнопка – Calendar:

5. Щелкните по ней, а затем нарисуйте календарь на поле формы, удерживая нажатой левую кнопку мыши:

6. Теперь переключитесь в режим ввода программного кода созданной формы (меню View - Code) и скопируйте туда этот текст: 
       Private Sub Calendar1_Click() 
       ActiveCell = Calendar1.Value 
       ActiveCell.NumberFormat="dd/mm/yy" 
   End Sub 
   Private Sub UserForm_Activate() 
       Me.Calendar1.Value = Date 
   End Sub

7. Теперь надо заставить Excel показывать нам созданную форму, когда мы этого захотим. Для этого вставьте новый модуль (Insert - Module) и скопируйте туда этот текст:
   
   Sub ShowCalendar() 
        UserForm1.Show 
   End Sub 
   
   3.Практическая работа 
   
   
   4.Итог урока

     Сегодня на уроке мы научились работать с датой и временем. А также сделали интересную практическую работу облегчающую ввод дат на лист в MS Excel.

5.Домашняя работа

     Дома нужно знать, как работать с датами, функции для работы с датой и временем.