Получить дату сегодняшнего дня - 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