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

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


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

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

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