Cita:
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