1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, :arrow: DateUtils;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Button1: TButton;
Table1: TTable;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
d : TDateTime;
annee : integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
// T est la table, contenant un champ "LeJour" de type date
Table1.Open;
Table1.Last;
d := Table1.FieldByName('complet').AsDateTime + 1;
annee := Yearof(d)+1;
While YearOf(d) < annee do
begin
Table1.append;
Table1.FieldByName('complet').AsDateTime := d;
Table1.FieldByName('Lettre').AsString := formatdatetime('DDDD', d);
Table1.FieldByName('Jour').AsString := formatdatetime('D', d);
Table1.FieldByName('Mois').AsString := formatdatetime('M', d);
Table1.FieldByName('Moislettre').AsString := formatdatetime('MMMM', d);
Table1.FieldByName('Annee').AsString := formatdatetime('YYYY', d);
Table1.Post;
d := d + 1;
end;
Table1.Close;
end;
end. |
Partager