[Alex04]

Наткнулся на шутку коллеги в коде Navision.
"А найдем последнюю дату месяца" - и:

D2 := DMY2DATE(1,DATE2DMY(TODAY,2)+1,DATE2DMY(TODAY,3)) - 1;