pabloe9k,
Cita:
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
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
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.