🔥 Вставка интервала дат (2)
В этом примере для преобразования дат будем использовать функцию DateSerial. А явное указание свойства Text у текстовых полей позволит не использовать функцию Format — Excel автоматически будет преобразовывать значение даты в текстовый формат системы. И добавим в пример еще три кнопки для вставки периодов.

#VBA #ExcelVBA #Date #DateSerial #ИнтервалДат #Период

1️⃣ Кнопка «Сегодня»
Поля начальной и конечной дат заполняются значениями текущей даты.

Private Sub CommandButton1_Click()
    TextBox1.Text = Date
    TextBox2.Text = Date
End Sub

2️⃣ Кнопка «Вчера»
Поля начальной и конечной дат заполняются значениями прошедшей (вчерашней) даты.

Private Sub CommandButton2_Click()
    TextBox1.Text = Date - 1
    TextBox2.Text = Date - 1
End Sub

3️⃣ Кнопка «Текущий месяц»
Поле начальной даты заполняется значением первого дня текущего месяца, а поле конечной — значением текущей даты.

Private Sub CommandButton3_Click()
    TextBox1.Text = DateSerial(Year(Date), Month(Date), 1)
    TextBox2.Text = Date
End Sub

4️⃣ Кнопка «Прошлый месяц»
Поле начальной даты заполняется значением первого дня предыдущего месяца, а поле конечной — значением последнего дня предыдущего месяца.

Private Sub CommandButton4_Click()
    TextBox1.Text = DateSerial(Year(Date), Month(Date) - 1, 1)
    TextBox2.Text = DateSerial(Year(Date), Month(Date), 0)
End Sub

5️⃣ Кнопка «Прошлый год»
Поле начальной даты заполняется значением первого дня предыдущего года, а поле конечной — значением последнего дня предыдущего года.

Private Sub CommandButton5_Click()
    TextBox1.Text = DateSerial(Year(Date) - 1, 1, 1)
    TextBox2.Text = DateSerial(Year(Date) - 1, 12, 31)
End Sub

#VBA #ExcelVBA #Date #DateSerial #ИнтервалДат #Период