А вот какой кусок кода для нахождения первого дня текущего месяца я увидел как-то у клиента, ведущего доработки своими силами:
Код:
Datv:=CALCDATE('<CM-1M+1D>') ;
IF DATE2DMY(Datv,1)=1 THEN Datv:=CALCDATE('<CM-1M>') ;
DnachMes:=CALCDATE('<-'+FORMAT(DATE2DMY(Datv,1)-1)+'D>',Datv); // ПЕРВЫЙ ДЕНЬ МЕСЯЦА