Определить дату, название месяца, квартал, неделю года, день недели - 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