Как сделать что бы 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))