Зимняя шутка

[Milk]

А вот какой кусок кода для нахождения первого дня текущего месяца я увидел как-то у клиента, ведущего доработки своими силами:

Datv:=CALCDATE('<CM-1M+1D>')                       ;
IF DATE2DMY(Datv,1)=1 THEN Datv:=CALCDATE('<CM-1M>')    ;
DnachMes:=CALCDATE('<-'+FORMAT(DATE2DMY(Datv,1)-1)+'D>',Datv);   // ПЕРВЫЙ ДЕНЬ МЕСЯЦА