Дана дата d. Для этой даты определить даты первого и последнего дней недели - VB

Узнай цену своей работы

Формулировка задачи:

даты первого и последнего дней недели; даты первого и последнего дней года.

Решение задачи: «Дана дата d. Для этой даты определить даты первого и последнего дней недели»

textual
Листинг программы
Private Sub Command1_Click()
Dim MyDate As Date
 
    MyDate = InputBox("", "", "12 ноябрь, 2012") ' Присваиваем дату
 
    Print "Дата - " & MyDate
 
    Print "Начало недели - " & MyDate - (Weekday(MyDate, vbMonday) - 1)
 
    Print "Конец недели - " & MyDate + (7 - Weekday(MyDate, vbMonday))
 
End Sub

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


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

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

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