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

[richy08]

hola que tal compañeros quisiera saber si existe una funcion para determinar cuantos dias le quedan al año a partir de la fecha de hoy, si n oexiste dicha funcion si alguien sabe como hacerlo se agradece cualquier comentario mil gracias utilizo delphi 7

[ContraVeneno]

Puedes utilizar la función DayOfTheYear y restársela al valor que te de la función DaysInAYear

[[AzidRain]]

Muy Simple:

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

[richy08]

Gracias contraveneno que parametros son los que le tengo que pasar a la funcion

[richy08]

Empezado por AzidRain

Muy Simple:


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

oye azid a lprobar tu solucion a la hora de meterle la fecha 2007,12,31 me dice que es una fecha no valida a que se debe gracias

[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;

[ContraVeneno]

Parámetros??? para cuál función????

Si consultas la ayuda de delphi podrás ver que parámetros necesitas, ver la explicación y hasta ejemplos te puedes encontrar. Solo coloca el cursor sobre la función que deseas conocer y presiona F1.

[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

[ContraVeneno]

El espacio entre los ejes tengo entendido que lo da automático cuando esta manejando fechas, dependerá de los valores que tengas en tus datos.

(Y como dije en uno de esos hilos sobre el dbchart, no es que sepa mucho sobre el mismo, si no que más bien la ayuda de delphi viene muy bien documentada )

[richy08]

Empezado por ContraVeneno

El espacio entre los ejes tengo entendido que lo da automático cuando esta manejando fechas, dependerá de los valores que tengas en tus datos.

(Y como dije en uno de esos hilos sobre el dbchart, no es que sepa mucho sobre el mismo, si no que más bien la ayuda de delphi viene muy bien documentada )

a ok muchas gracias contraveneno por todas tus respuestas te debo una