Funciones con Date

[KAYO]

Como puedo obtener el valor del primer y ultimo dia del año, existe
alguna función que retorne estos valores del reloj del sistema

[[Lepe]]

la función RecodeDate (creo que de la unidad DateUtils) puede servirte.

El hecho es que esas dos fechas concretas siempre existen y no han variado en 2000 años (chiste fácil ya... ). Solo tendrás que recodificar el año de una fecha determinada, e inyectar el dia y mes como unas constantes.

Código Delphi [-]
function LastDayOfYear(const Value:TDateTime):TDateTime
begin
  Result := RecodeDateTime(Value, Yearof(Value), 12,31, 0, 0, 0 ,0);
end;

Saludos

[vtdeleon]

Hay que ver el propósito de esto, puesto que el primer y último día del año siempre serán 1 y 31, a menos que los super-cientificos (astrónomos y demás) lo cambien.

Saludos