Foros Club Delphi - dias que faltan para terminar el año a partir de la fecha de hoy

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - dias que faltan para terminar el año a partir de la fecha de hoy (https://www.clubdelphi.com/foros/showthread.php?t=46193)

richy08

26-07-2007 00:42:31

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

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 :confused: utilizo delphi 7

ContraVeneno

26-07-2007 00:49:42

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

AzidRain

26-07-2007 01:54:44

Muy Simple:

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

richy08

26-07-2007 16:00:19

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

richy08

26-07-2007 16:45:41

:confused:

Cita:

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

26-07-2007 16:52:36

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

26-07-2007 16:58:10

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

26-07-2007 17:23:09

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

ContraVeneno

26-07-2007 23:08:40

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 :D)

richy08

26-07-2007 23:15:05

Cita:

Empezado por ContraVeneno

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

La franja horaria es GMT +2. Ahora son las 06:48:18.