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
Si quelqu'un t'a offensé, ne cherche pas à te venger; assieds-toi au bord de la rivière et, bientôt, tu verras passer son cadavre.
Lao Tseu - un sage chinois
Celui qui lutte contre les monstres doit veiller à ne pas le devenir lui-même.
Et quand ton regard pénètre longtemps au fond d'un abîme, l'abîme, lui aussi, pénètre en toi.
Friedrich Nietzsche - Par délà le bien et le mal
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.
Deux, n'apprendront pas; le timide et l'arrogant
générer une fois ?
par SQL ?
Quel type de base de données ?
MVP Embarcadero
Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
SGBD : Firebird 2.5, 3, SQLite
générateurs États : FastReport, Rave, QuickReport
OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd
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.
Si quelqu'un t'a offensé, ne cherche pas à te venger; assieds-toi au bord de la rivière et, bientôt, tu verras passer son cadavre.
Lao Tseu - un sage chinois
Celui qui lutte contre les monstres doit veiller à ne pas le devenir lui-même.
Et quand ton regard pénètre longtemps au fond d'un abîme, l'abîme, lui aussi, pénètre en toi.
Friedrich Nietzsche - Par délà le bien et le mal
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
Si quelqu'un t'a offensé, ne cherche pas à te venger; assieds-toi au bord de la rivière et, bientôt, tu verras passer son cadavre.
Lao Tseu - un sage chinois
Celui qui lutte contre les monstres doit veiller à ne pas le devenir lui-même.
Et quand ton regard pénètre longtemps au fond d'un abîme, l'abîme, lui aussi, pénètre en toi.
Friedrich Nietzsche - Par délà le bien et le mal
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 !
Si quelqu'un t'a offensé, ne cherche pas à te venger; assieds-toi au bord de la rivière et, bientôt, tu verras passer son cadavre.
Lao Tseu - un sage chinois
Celui qui lutte contre les monstres doit veiller à ne pas le devenir lui-même.
Et quand ton regard pénètre longtemps au fond d'un abîme, l'abîme, lui aussi, pénètre en toi.
Friedrich Nietzsche - Par délà le bien et le mal
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