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
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
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.
générer une fois ?
par SQL ?
Quel type de base de données ?
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.
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.
Salut,
Voila un code pour ton problème.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;![]()
merci liazidf je vais essayer ce code
ou mieux encore
ce code c'est pour avoir des dates valide sans faire trops de controle de cas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
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 !
Désolé effectivement il falait des Dword a la place des entier, j'ai pas testé le code avant le post,
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager