Дана дата 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