Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
Топик располагается на нескольких страницах: Ctrl  назад   1 [2]      все
 Re: К сумме за текущий месяц прибавить сумму за предыдущий  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 5883
а Вы еще это посмотрите-может что "навеет" 21899791
8 июн 19, 15:24    [21905159]     Ответить | Цитировать Сообщить модератору
 Re: К сумме за текущий месяц прибавить сумму за предыдущий  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 5883
Function Spred(myMes, myGod)
Dim Fpred, Lpred, Ftek, Ltek
Ftek = DateSerial(myGod, myMes, 1) 'первый день месяца
Ltek = DateAdd("m", 1, Ftek) - 1   'последний день месяца
Fpred = DateAdd("m", -1, Ftek)     'первый день предыдущего месяца
Lpred = DateAdd("d", -1, Ftek)     'последний день предыдущего месяца
Spred = Ftek & ", " & Ltek & ", " & Fpred & ", " & Lpred
End Function
?spred(1,1999)
01.01.1999, 31.01.1999, 01.12.1998, 31.12.1998
?spred(2,2000)
01.02.2000, 29.02.2000, 01.01.2000, 31.01.2000
?spred(2,1999)
01.02.1999, 28.02.1999, 01.01.1999, 31.01.1999
8 июн 19, 17:21    [21905189]     Ответить | Цитировать Сообщить модератору
 Re: К сумме за текущий месяц прибавить сумму за предыдущий  [new]
kniga
Member

Откуда: KZ
Сообщений: 102
sdku,

Спасибо, здесь тоже был три дня назад, даже пример скачал для изучения ))
8 июн 19, 17:29    [21905191]     Ответить | Цитировать Сообщить модератору
 Re: К сумме за текущий месяц прибавить сумму за предыдущий  [new]
kniga
Member

Откуда: KZ
Сообщений: 102
sdku, спасибо за код!
8 июн 19, 17:33    [21905194]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: Ctrl  назад   1 [2]      все
Все форумы / Microsoft Access Ответить