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