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);