Ayuda con función para detectar días.

[[nlsgarcia]]

pabloe9k,

Empezado por pabloe9k

...una función que me devuelva la cantidad de días martes que tiene el mes en curso...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DateUtils, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    MonthCalendar1: TMonthCalendar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Calcula la cantidad de días Martes de un Mes y Año específico
procedure TForm1.Button1Click(Sender: TObject);
const
   NameMonth : Array[1..12] of String = ('Ene', 'Feb', 'Mar', 'Abr', 'May', 'Jun', 'Jul', 'Ago', 'Sep', 'Oct', 'Nov', 'Dic');

var
   i : Integer;
   DateSearch : TDate;
   Year, Month, Days, DaysMonth : Word;

begin

   DateSearch := MonthCalendar1.Date;
   Year := StrToInt(FormatDateTime('y',DateSearch));
   Month := StrToInt(FormatDateTime('m',DateSearch));
   DaysMonth := DaysInAMonth(Year,Month);

   for i := 1 to DaysMonth do
      if FormatDateTime('ddd', EncodeDate(Year,Month,i)) = 'Tue' then
         inc(Days);

   MessageDlg(Format('El Mes de %s tiene %d días Martes',[NameMonth[Month],Days]),mtInformation,[mbOK],0);

end;

end.

El código anterior calcula la cantidad de días Martes de un Mes y Año específico como se puede apreciar en la siguiente imagen:



Espero sea útil

Nelson.