Obtendo o último dia útil caso a data informada caia em um fim de semana

Obtendo o último dia útil caso a data informada caia em um fim de semana Function DiaUtilAnterior (dData : TDateTime) : TDateTime; begin if DayOfWeek(dData) = 7 then dData := dData – 1 else if DayOfWeek(dData) = 1 then dData := dData – 2; DiaUtilAnterior := dData; end;

Continuar lendo »

Como colocar seus programas no Painel de Controle

Como colocar seus programas no Painel de Controle em Delphi. Abaixo segue o código para seu programa no Painel de Controle. Para começar adicione a Unit Cpl ao seu projeto. Library Project1; {Muda de “programa” para “library”} uses Cpl, {use Cpl unit} Windows, Forms, Unit1 in ‘Unit1.pas’ {Form1}; {$R *.RES} procedure ExecuteApp; begin Application.Initialize; Application.CreateForm(TForm1,Form1);

Continuar lendo »