Дана дата 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
