Função para obter a data do primeiro dia de um mês passado por parâmetro.

É necessário estar declarado DateUtils na seção uses,
em versões unicode declare System.DateUtils;

Função do Delphi: StartOfAMonth(Ano e Mes);
Retorno: TDateTime

Exemplos de uso

1
2
3
4
5
6
7
8
9
10

procedure TForm1.Button1Click(Sender: TObject);
var
  vDate : TDateTime;
begin
  vDate := StartOfAMonth(2015, 03);
  ShowMessage(DateToStr(vDate));
 
  vDate := StartOfAMonth(1999, 10);
  ShowMessage(DateToStr(vDate));
end;