Получить значение системной даты и вычислить - VB
Формулировка задачи:
Системную дату получили, а как вычислить количество месяцев прошедших с начала года, и поместить эти данные в строку заголовок формы, сделать зеленым цвет строки заголовка окна, предоставить пользователю возможность восстановления исходного цвета строки заголовка окна.
Решение задачи: «Получить значение системной даты и вычислить»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim datTim1 As Date '
- Dim datTim2 As Date '
- datTim1 = #1/1/2014# ' Начало года
- datTim2 = Now() ' Текущая дата
- m = DateDiff("m", datTim1, datTim2)
- Form1.Caption = "Месяцев с начала года= " & m
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
