3 respuestas en este tema

[seoane]

Pues eso, necesitaba un calendario en excel y esta es la forma que se me ocurrió:

delphi

program Calendario;
 
{$APPTYPE CONSOLE}
 
uses
  Windows, SysUtils, Classes, DateUtils;
 
procedure EscribirMes(Mes: Integer);
var
  i,j: Integer;
  Fecha: TDateTime;
begin
  Case Mes of
    1: Writeln(';;;Enero;');
    2: Writeln(';;;Febrero;');
    3: Writeln(';;;Marzo;');
    4: Writeln(';;;Abril;');
    5: Writeln(';;;Mayo;');
    6: Writeln(';;;Junio;');
    7: Writeln(';;;Julio;');
    8: Writeln(';;;Agosto;');
    9: Writeln(';;;Septiembre;');
    10: Writeln(';;;Octubre;');
    11: Writeln(';;;Noviembre;');
    12: Writeln(';;;Diciembre;');
  end;
  Writeln('Lunes;Martes;Miercoles;Jueves;Viernes;Sabado;Domingo');
  Fecha:= EncodeDate(2013,Mes,1);
  while DayOfTheWeek(Fecha) <> 1 do
  begin
    Fecha:= Fecha - 1;
  end;
  for i:= 1 to 8 do
  begin
    for j:= 1 to 7 do
    begin
      if MonthOf(Fecha) = Mes then
        Write(DayOf(Fecha));
      Write(';');
      Fecha:= Fecha + 1;
    end;
    Writeln;
  end;
end;
 
var
  i: Integer;
begin
  for i:= 1 to 12 do
  begin
    EscribirMes(i);
  end;  
end.

Una vez compilado hacer algo como esto:

delphi

Calendario.exe > Calendario.csv

Y ya tenemos un calendario  (aunque el código es MUY mejorable)

[Wilson]

Muy Bueno, gracias maestro. 

[cadetill]

Una mejora muy sencilla y que te evita tener que recompilar cada año el programa es pasarle por parámetro el año del que quieres crear el calendario ;-)

[Delphius]

Interesante 

Esto me hizo acordar de un almanaque de oficina que tenía mi padre. Tenía un sistema de "cilindro" por dentro de modo que para ir al siguiente mes sólo debía deslizar el "calendario" hacia la izquierda y listo. Ahora se mostraba el mes siguiente, y así hasta el infinito. Y yo me dije ba... no puede ser cierto, ¿y para años bisiestos anda? Y si... sorprendentemente también contemplaba esto, tenía otro "cilindro" que permitía correr los años y se ajustaba en el mes de Febrero. ¡Tenía unas ganas de abrirlo para ver como era su diseño por dentro!
No estoy con demasiadas ganas de hacer los cálculos pero cada x años se repiten los calendarios. ¿Era cada 11? Yo soy capaz de desempolvar un almanaque viejo con tal de no comprar uno nuevo. 

Saludos,