dias que faltan para terminar el año a partir de la fecha de hoy

[richy08]

Empezado por ContraVeneno

Código Delphi [-]
Function DiasParaNocheVieja:Integer;
Begin
Result := DaysBetween(Now,EncodeDate(YearOf(Now),12,31));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('Faltan '+inttostr(DiasParaNocheVieja)+' para que finalize el año.');
end;

//-------------------------------------
//------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('Faltan '+inttostr(DaysBetween(Now,EncodeDate(YearOf(Now),12,31)))+' para que finalize el año.');
end;

Muchas gracias contraveneno esa si fue la solucion que buscaba disculpa lei en otros hilos que manejas muy bien el tdbchart yo tengo dos series y tengo un problema con los espacios entre ellas quiero que en el eje de las X el espacio sea de un dia pero en tiempo de diseño no puedo cambiarla no sabra usted como modificarlo en tiempo de ejecucion gracias por su tiempo