Buscar por:

Pegando o primeiro e o último dia do mes

Código

Procedure PrmeiroEUltimoDiaDoMes(mes,ano:String; var dataIni,dataFin:string);

var

 MesAux,AnoAux:Integer;

Begin

  {Procedimento recebe um mes e um ano como parametro.

  E retorna nas variaveis DataIni e DataFin o primeiro e

  o ultimo dia daquele mes. Bem simples e eficiente}

  //primeiro dia

  dataIni:='01/'+FormatCurr('00',StrToInt(mes))+'/'+ano;

  //ultimo dia

  MesAux:=StrToInt(mes);

  AnoAux:=StrToInt(ano);

  //se ja estivesse em dezembro

  MesAux:=MesAux+1;

  if MesAux = 13 then

  begin

    MesAux:=1;

    AnoAux:=AnoAux+1;

  end;//if MesAux = 13 then

  dataFin:='01/'+IntToStr(MesAux)+'/'+IntToStr(AnoAux);

  dataFin:=DateToStr(StrToDate(dataFin)-1);

End;//procedure