Datetimepicker : ajout de fonctions
Description
A partir d'un code de DelphiProg qui nous proposait de dériver les composants existants ponctuellement et sans installation de quoi que ce soit, j'ai fait cette petite unité pour me faciliter la vie...
L'unité UMDF_DateTimePicker permet donc de rajouter les petites fonctions (de fainéant) suivantes :
- StrDate : Renvoie la date en string
- QRYDate : Renvoie la date en format 'mm/dd/yy' utilisable directement dans une requête SQL
- WeekNo : Renvoie le n° de la semaine (nécessite la jcl, à désactiver si vous ne l'avez pas)
Une deuxième fonction peut s'avérer utile pour les sélections de période :
Mode d'emploi :
Sur la form, on pose deux DateTimePicker (DTP1 et DTP2)
on ajoute UMDF_DateTimePicker dans la liste des uses et on déclare le type :
TDateTimePicker = Class(UMDF_DateTimePicker.TDateTimePicker);
(NB : Pour une utilisation récurrente, on peut créer un dossier "Composants Modifiés" et l'ajouter dans la liste des chemins de Delphi)
Sur le FormCreate de la form, on met DTP1.LinkedDTP := DTP2;
On gére l'événement OnCloseUp du DTP1 et on rattache celui du DTP2 à ce même événement.
Et maintenant, quand on choisit une date dans le DTP1, un popup apparait pour proposer une période (1 jour, 1 mois ...). Et quand on clique sur un item du popup, ça déclenche l'événement OnCloseUp.
La propriété Reversed permet de choisir une période inversée (i.e. D'aujourd'hui à il y a un an)
Voilà, ce code ne constitue pas une révolution de la programmation, mais personnellement, ça me fait gagner pas mal de temps.
Vos commentaires, idées et corrections sont les bienvenus...
(Ou si vous avez des modifications de la sorte sur d'autres composants...)
L'unité UMDF_DateTimePicker permet donc de rajouter les petites fonctions (de fainéant) suivantes :
- StrDate : Renvoie la date en string
- QRYDate : Renvoie la date en format 'mm/dd/yy' utilisable directement dans une requête SQL
- WeekNo : Renvoie le n° de la semaine (nécessite la jcl, à désactiver si vous ne l'avez pas)
Une deuxième fonction peut s'avérer utile pour les sélections de période :
Mode d'emploi :
Sur la form, on pose deux DateTimePicker (DTP1 et DTP2)
on ajoute UMDF_DateTimePicker dans la liste des uses et on déclare le type :
TDateTimePicker = Class(UMDF_DateTimePicker.TDateTimePicker);
(NB : Pour une utilisation récurrente, on peut créer un dossier "Composants Modifiés" et l'ajouter dans la liste des chemins de Delphi)
Sur le FormCreate de la form, on met DTP1.LinkedDTP := DTP2;
On gére l'événement OnCloseUp du DTP1 et on rattache celui du DTP2 à ce même événement.
Et maintenant, quand on choisit une date dans le DTP1, un popup apparait pour proposer une période (1 jour, 1 mois ...). Et quand on clique sur un item du popup, ça déclenche l'événement OnCloseUp.
La propriété Reversed permet de choisir une période inversée (i.e. D'aujourd'hui à il y a un an)
Voilà, ce code ne constitue pas une révolution de la programmation, mais personnellement, ça me fait gagner pas mal de temps.
Vos commentaires, idées et corrections sont les bienvenus...
(Ou si vous avez des modifications de la sorte sur d'autres composants...)
Codes Sources
A voir également
- Datetimepicker : ajout de fonctions
- Datetimepicker - Forum Delphi / Pascal
- Prendre que la date d'un dateTimePicker ✓ - Forum C# / .NET
- Datetimepicker delphi ✓ - Forum Delphi / Pascal
- Datetimepicker excel - Forum Visual Basic 6
- Datetimepicker ou monthcalender - Forum Delphi / Pascal
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.