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