| Neftali [Germán.Estévez] |
10-12-2004 15:59:53 |
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);
|
