Возвращает диапазон дат с первого дня текущего месяца по нынешнюю дату. MonthToDate

CurrencyVar MTDSales;

If {Sales.Sale Date} In MonthToDate Then MTDSales := MTDSales + {Sales.Amount}

накапливает сумму продаж в переменной, если продажа имела место в период с начала текущего месяца по нынешнюю дату.