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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы