Me.Дата = DateAdd("n", 15, Me.Дата) ' Для справки по 1 параметру: y - год, m - месяц, d - день, h - час, n - минуты, s - секунды