Código Delphi [-] DiaActual := Trunc(Now) - Trunc(encodeDate(year(now),1,1));
DiaActual := Trunc(Now) - Trunc(encodeDate(year(now),1,1));