Achar o 1� e �ltimo dia do m�s????????

Question

Como fazer com que ao abrir o formul�rio, os componentes DateTimePicker1 e DateTimePicker2 apresentem o 1� dia do m�s e �ltimo dia do m�s respectivamente?...

Luiz.gv · Answer

Algu�m sabe como achar o 1� dia do m�s e o �ltimo dia? Preciso abrir um formul�rio que apresente estas 2 datas para consultar....

Marcelo.c · Answer

Obtendo a data do �ltimo dia do m�s, ou �ltimo dia �til, de uma data informada:

Function LastDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime; 
var 
  Ano, Mes, Dia : word; 
  AuxData : TDateTime; 
  DiaDaSemana : Integer; 
begin 
  AuxData := FirstDayOfMonth (NextMonth (Data), False) - 1; 
  if lSabDom Then 
  begin 
    DecodeDate (Auxdata, Ano, Mes, Dia); 
    DiaDaSemana := DayOfWeek (AuxData); 
    if DiaDaSemana = 1 Then 
    Dia := Dia - 2 
  else 
    if DiaDaSemana = 7 Then 
    Dec (Dia); 
    AuxData := EnCodeDate (Ano, Mes, Dia); 
  end; 
  LastDayOfMonth := AuxData; 
end;

Obtendo data do primeiro dia util do m�s:

Function FirstDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime; 
var 
  Ano, Mes, Dia : word; 
  DiaDaSemana : Integer; 
begin 
  DecodeDate (Data, Ano, Mes, Dia); 
  Dia := 1; 
  if lSabDom Then 
  begin 
    DiaDaSemana := DayOfWeek (Data); 
    if DiaDaSemana = 1 Then 
    Dia := 2 
  else 
    if DiaDaSemana = 7 Then 
    Dia := 3; 
  end; 
  FirstDayOfMonth := EncodeDate (Ano, Mes, Dia); 
end;

F�rum Achar o 1� e �ltimo dia do m�s???????? #187986