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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.133 из 5
Похожие ответы