Hola! tarde..recien copie el codigo del compañero..y le reforme unas cosas por sino tenes esas funciones en delphi5..en mi triste delphi 4 no estan
.
Código Delphi
[-]
procedure TForm1.QuincenasDelAnio(Anio: integer);
var
FechaIni, FechaFin: TDate; aux, i:integer;
begin
for i:= 1 to 12 do
begin
FechaIni := EncodeDate(Anio, i, 1);
FechaFin := EncodeDate(Anio, i, 15);
Memo1.Lines.add(Datetostr(FechaIni) + '-' + DateToStr(FechaFin));
FechaIni:= EncodeDate(Anio, i, 16);
if i = 12 then
aux:=Round(EncodeDate((Anio + 1), 1, 1) - EncodeDate(Anio, i, 1))
else
aux:=Round(EncodeDate(Anio, i + 1, 1) - EncodeDate(Anio, i, 1));
FechaFin :=EncodeDate(Anio,i, aux);
Memo1.Lines.add(Datetostr(FechaIni) + '-' + DateToStr(FechaFin));
end;
end;
procedure TForm1.MesesDelAnio(Anio: Integer);
var
FechaIni, FechaFin: TDate; aux, i:integer;
begin
for i:= 1 to 12 do
begin
FechaIni := EncodeDate(Anio, i, 1);
if i = 12 then
aux:=Round(EncodeDate((Anio + 1), 1, 1) - EncodeDate(Anio, i, 1))
else
aux:=Round(EncodeDate(Anio, i + 1, 1) - EncodeDate(Anio, i, 1));
FechaFin :=EncodeDate(Anio,i, aux);
Memo1.Lines.add(Datetostr(FechaIni) + '-' + DateToStr(FechaFin));
end;
end;
Bueno fijate si te sirve...esta hecho medio asi nomas, de todas formas me parece que si sos nuevo en delphi deberias usar el help..la ayuda no muerde y esta para ayudar! la palabra misma lo dice. Si pones date..datetime o algo relacionado con lo que queres buscar te sale lo que buscas.
Tambien podrias mirar el libro La Cara Oculta de Delphi 4, es el mejor para mi gusto para aprender delphi.
salu22 y exitos