Fórum Pegando dia de um Mes #236595

function QtdDiaSemana(Mdt: TDateTime; DiaSemana : Integer) : Integer;
{Mdt = qualquer dia do mes DiaSemana = dia da semana procurado ( 1 a 7) retorna o quantidade de dias}
var
   ano, mes, UltimoDia : word;
   mDtTemp : TDateTime;
   I : Integer;
begin
   MdtTemp := UltimodiaMes(Mdt);
   Decodedate(MdtTemp, ano, mes, UltimoDia);
   MdtTemp := EncodeDate(ano,mes,1);
   result := 0;
   for I := 1 to UltimoDia do
      begin
      if DayOfWeek(Mdttemp) = DiaSemana then
         Inc(Result);
      MdtTemp := Mdttemp + 1;
      end;
end;

function UltimoDiaMes(Mdt: TDateTime) : TDateTime;
{ retorna o ultimo dia o mes, de uma data fornecida}
var
   ano, mes, dia : word;
   mDtTemp : TDateTime;
begin
   Decodedate(mDt, ano, mes, dia);
   mDtTemp := (mDt - dia) + 33;
   Decodedate(mDtTemp, ano, mes, dia);
   Result := mDtTemp - dia;
end;

function EndOfTheMonth(const AValue: TDateTime): TDateTime;

procedure TForm1.Button1Click(Sender: TObject);
var X:integer;
    DataInicial:TDate;
begin
   DataInicial:=StrToDate(´01/06/2004´);
   For X:= 0 to ListBox1.Items.Count -1 do
      begin
      while DayOfWeek(DataInicial) <> DiadaSemana(ListBox1.Items[x]) do
         DataInicial:=DataInicial+1;
      ListBox2.Items.Add(DateToStr(DataInicial));
      end;
end;

Function DiadaSemana(DSemana : String) : Integer;
const semana : array[1..7] of string = (´Domingo´,´Segunda´,´Terça´,´Quarta´,´Quinta´,´Sexta´, ´Sábado´);
var X:integer;
begin
   Result:=0;
   for X:=1 to 7 do
      if DSemana = semana[X] then
         Result:=X;
end;