Как сделать что бы 22 числа каждого месяца в text1.text прибавлялось 1? - VB

Узнай цену своей работы

Формулировка задачи:

как сделать что бы 22 числа каждого месяца в text1.text прибавлялось 1? по сути программа переходила на новый месяц? то есть 22.07.13 программа должна перейти на 22.08.13, а дата на компьютере остаться неизменной и т.д..

Решение задачи: «Как сделать что бы 22 числа каждого месяца в text1.text прибавлялось 1?»

textual
Листинг программы
Text1.Text = "22." & Format(Month(DateAdd("d", Day(DateAdd("d", -1, DateAdd("m", 1, DateAdd("d", 1, DateAdd("d", -Day(Date), Date))))) - 21, Date)), "00") & "." & Year(DateAdd("d", Day(DateAdd("d", -1, DateAdd("m", 1, DateAdd("d", 1, DateAdd("d", -Day(Date), Date))))) - 21, Date))

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы