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

ContraVeneno · #6 26-07-2007

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;