Générer un calendrier dans une table

Version imprimable

31/03/2007, 18h35
freud

Générer un calendrier dans une table

Bonjour à tous,

Es-ce que l'on pourra m'indiquer comment générer le calendrier dans une table ?

Je ne sais pas par ou commencer peut-etre il faut deux vairiable de type date
et faire le debut et la fin mais comment ?

Merci
04/04/2007, 16h25
hocine

Salut,
peut être que j'ai mal compris la question, mais il y a un composant TTIMERPCKER dans la palette WIN.. de delphi 7.
Bonne chance.
Merci.
04/04/2007, 17h29
SergioMaster

générer une fois ?
par SQL ?
Quel type de base de données ?
04/04/2007, 18h16
aityahia

8O génerer un calendrier la c'est pas tres claire.
vous voullez une gérer des interval de date

deux champs comme vous le dite
ou un cahmps date et un entier pour la durée.
05/04/2007, 12h48
freud

Bonjour à tous,

Excusez moi du retard que j'ai mis pour répondre.

Il ne s'agit pas de composant TTIMERPCKER.

Je m'explique, j'ai une table avec champs :dateJour, NumeroJour,NumeroMois
J'aimerais remplir le champ dateJour à partir du 1er janvier au 31 décembre ce qui me donnera 365 lignes ca doit être une boucle sur une variable date mais je ne sais pas comment mettre le debut et la fin par SQL ou autre

Merci.

calendrier dans table

Salut,
Voila un code pour ton problème.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.Button1Click(Sender: TObject);
var vDate1 : TDate;
    i:integer;
begin
i:=1;
vDate1:=DTP1.Date;
while vDate1 < DTP2.Date do
 begin
   Table1.Insert;
   Table1njour.value:=I;
   Inc(i);
   Table1Date.Value:=vDate1;
   vDate1:=vDate1+1;
   Table1.Post;
 end;
end;

:bug:

05/04/2007, 18h19
freud

merci liazidf je vais essayer ce code

ou mieux encore

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var MaDate,DateFin : TDate;
      J,M,A : Integer;
Begin
MaDate := EncodeDate(2007,1,1);
DateFin:=EncodeDate(2007,12,31);
While MaDate < DateFin Do
 Begin
  DecodeDate(MaDate,A,M,J);
   MaTable.Append;
   MaTable.FieldByName('dateJour').Value := J;
   MaTable.FieldByName('NumeroMois').Value := M;
   MaTable.FieldByName('NumeroAnnee').Value := Q;
   MaTable.Post;
   IncDay(MaDate,1);
 end;

ce code c'est pour avoir des dates valide sans faire trops de controle de cas.

06/04/2007, 13h10
freud

Bonjour,

Je te remercie AitYahia ton code est plus souple en décomposant le champ date en 3 champs string ca me permet d'identifier à quel mois est lier le jour et ca marche trés bien
sauf que j'ai du remplacer le type de J,M,A en WORD parce qu'il ne fonctionne pas en integer et qu'avec IncDay(MaDate,1 ) ca boucle sans s'arreter sur le 1/1/2007 que j'ai du remplacer par MaDate:=MaDate+1;

Merci encore !
06/04/2007, 14h26
aityahia

Désolé effectivement il falait des Dword a la place des entier, j'ai pas testé le code avant le post,