Получить дату сегодняшнего дня - VBA
Формулировка задачи:
Помогите дописать код пожалуйста для Word:
В ячейке B3 получить дату сегодняшнего дня, В ячейке B4 записать дату, когда количество прожитых дней станет в 2 раза больше, чем прожитых дней до текущего дня. Дату получить в формате 12 апреля 2016
Решение задачи: «Получить дату сегодняшнего дня»
textual
Листинг программы
Sub Создание_таблицы() Dim aTable As Table, d1 As Date, d2 As Date, v As Long ActiveDocument.Tables(1).Delete ' Создаем таблицу ActiveDocument.Tables.Add ActiveDocument.Range, 5, 4 Set aTable = ActiveDocument.Tables(1) ' Создаем рамки aTable.Borders.OutsideLineStyle = wdLineStyleSingle aTable.Borders.InsideLineStyle = wdLineStyleSingle ' Прописываем столбцы и строки aTable.Cell(1, 2).Range.Text = "A" aTable.Cell(1, 3).Range.Text = "B" aTable.Cell(1, 4).Range.Text = "C" aTable.Cell(2, 1).Range.Text = "1" aTable.Cell(3, 1).Range.Text = "2" aTable.Cell(4, 1).Range.Text = "3" aTable.Cell(5, 1).Range.Text = "4" ' Подписи для ячеек aTable.Cell(2, 2).Range.Text = "Сегодня" aTable.Cell(3, 2).Range.Text = "День рождения" aTable.Cell(4, 2).Range.Text = "Дней прожито" aTable.Cell(5, 2).Range.Text = "Дата в 2 раза больше прожитых дней:" ' d1 = CDate("19.07.1991") d2 = Date aTable.Cell(2, 3).Range.Text = d1 aTable.Cell(3, 3).Range.Text = d2 v1 = DateDiff("d", d1, d2) aTable.Cell(4, 3).Range.Text = v1 aTable.Cell(5, 3).Range.Text = FormatDateTime(DateAdd("d", v1, d2), vbLongDate) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д