Определить дату, название месяца, квартал, неделю года, день недели - VBA
Формулировка задачи:
Для заданной даты и определенного значения определить дату, название месяца, квартал, неделю года, день недели.
Решение задачи: «Определить дату, название месяца, квартал, неделю года, день недели»
textual
Листинг программы
Option Explicit Sub h() Dim data As Date Dim oldweekday As Integer Dim oldyearweek As Integer Dim oldkv As Integer data = InputBox("Введите дату: ") oldweekday = weekday(data) oldyearweek = DatePart("ww", data) oldkv = Int(Month(data) / 4) + 1 MsgBox ("Дата: " & data & vbNewLine & "Квартал: " & oldkv & vbNewLine & "Неделя года: " & oldyearweek & vbNewLine & "День недели: " & oldweekday) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д