Получить дату сегодняшнего дня - VBA

Формулировка задачи:

Помогите дописать код пожалуйста для Word: В ячейке B3 получить дату сегодняшнего дня, В ячейке B4 записать дату, когда количество прожитых дней станет в 2 раза больше, чем прожитых дней до текущего дня. Дату получить в формате 12 апреля 2016

                    Листинг программы
                
 
                        
                          
                    
Sub Создание_таблицы()
Dim aTable As Table
'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(3, 2).Range.Text = "День рождения"
aTable.Cell(3, 3).Range.Text = "19.07.1991"
aTable.Cell(4, 2).Range.Text = "Дней прожито"
aTable.Cell(5, 2).Range.Text = "Дата в 2 раза больше прожитых дней:"
End Sub

Решение задачи: «Получить дату сегодняшнего дня»

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