Dias del año

karocs · #1 10-12-2004

Saludos

Hay alguna funcion en delphi que me permita conocer el numero de dias que van del año, no los que tiene un año, o talvez obtener el primer dia de cada año 01-01-2004,01-01-2005 etc...

Gracias de antemano...

Neftali [Germán.Estévez] · #2 10-12-2004

Cita:

Empezado por karocs

alguna funcion en delphi que me permita conocer el numero de dias que van del año

Segun la ayuda de Delphi la función DayOfTheYear te devuelve los días ransacurridos entre la fecha que le pasas como parámetro y el 31 de Diciembre del año anterior.

Código Delphi [-]  D1 := Now;
  MessageDlg('Días: ' + IntToStr(DayOfTheYear(D1)), mtInformation, [mbOK], 0);

Cita:

Empezado por karocs

o talvez obtener el primer dia de cada año 01-01-2004,01-01-2005

Puedes construir la fecha apartir del año actual. Añade DateUtils al USES.

Código Delphi [-]  D1 := EncodeDate(YearOf(Now), 1, 1);
  MessageDlg('Primer día de éste año: ' + DateToStr(D1), mtInformation, [mbOK], 0);

karocs · #3 10-12-2004

Saludos

Gracias por responder tan rapido y muchisimas gracias por resolver la duda....