Discussion :

[socooooool]

Bonjour à tous,

je développe une appli en delphi, avec composants BDE.
J'utilise également une base de données Access.

J'ai réussi à récupérer une saisie de datetimepicker dans la base access mais j'aimerais que cette dernière ne comporte pas l'heure en effet sous access le champs se présente ainsi

09/02/2007 13:23:01

je voudrais seulement

09/02/2007

A savoir que le champs sous access est défini en date/time
et que dans mon code c'est :

Fieldbyname('datecv').asdatetime:=datetimepicker1.date;

Merci de votre aide

Amo

[jambonstar]

Une premiere solution serait de dégager la partie après l'espace (pas beau et pas propre) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
var Heure, TaDate : String;
 
heure := LeftStr(TaDate, pos(' ',TaDate)-1);

Ah, j'avais prévenu, c'est moche

[Pedro]

Ah, j'avais prévenu, c'est moche

Il me semble que le XX/XX/XXXX fait toujours le même nombre de caractères non? Alors pourquoi s'embêter?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Heure := LeftStr(TaDate, 10);

Vala

[LadyWasky]

D'abord comme ça dans Delphi (pour supprimer heures/minutes/secondes, on supprime la partie fractionnaire du TDateTime)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fieldbyname('datecv').asdatetime:=trunc(datetimepicker1.date);

Et après c'est une histoire de format d'affichage dans Access... et là... la,la,la

[jambonstar]

Il me semble que le XX/XX/XXXX fait toujours le même nombre de caractères non? Alors pourquoi s'embêter?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Heure := LeftStr(TaDate, 10);

Vala

Wouarf !! C'est encore plus moche tout ça !!
Seul probleme, les Options régionales du pc. Et oui, si le mec il veux ses date comme ceci : "DD/MM/YY" et bien on est plus qu'à 8 caractères..
Par contre j'ai jamais vu personnes retirer l'espace entre la date et l'heure.

[jambonstar]

@Waskol : Je crois que ça c'est pas top, parce que ca ne faire que mettre l'heure à minuit. Enfin je dis ça mais j'ai pas tenté.

Sinon, on peut utiliser FormatDateTime.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Jour := FormatDateTime('DD/MM/YYYY', MonDateTime);

Et l'affaire est dans le sac.

[pitango]

Bonjour

De cette manière tu pourras extraire la date

datetostr(DateTimePicker1.Date)

A+

pitango

[Pedro]

Wouarf !! C'est encore plus moche tout ça !!

De quoi ?

Seul probleme, les Options régionales du pc. Et oui, si le mec il veux ses date comme ceci : "DD/MM/YY" et bien on est plus qu'à 8 caractères..

Effectivement tu as raison

[jambonstar]

Bonjour

De cette manière tu pourras extraire la date

datetostr(DateTimePicker1.Date)

A+

pitango

Oui c'est vrai mais si c'est un windows US, la date extraite sera MM/DD/YYYY et non pas le format qu'il souhaite dans ca demande.

[LadyWasky]

@Waskol : Je crois que ça c'est pas top, parce que ca ne faire que mettre l'heure à minuit. Enfin je dis ça mais j'ai pas tenté.

Sinon, on peut utiliser FormatDateTime.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Jour := FormatDateTime('DD/MM/YYYY', MonDateTime);

Et l'affaire est dans le sac.

Oui mais non

Effectivement, mon affaire met les heures/minutes/secondes à zéro, j'ai pensé qu'il voulait vraiment supprimer les heures/minutes/secondes parasites de sa base de donnée, donc en ce sens, je pense que c'est une première étape (si il veut pouvoir comparer deux dates plus tard dans ses requêtes)

Sinon, son problême d'affichage (le formattage sans les heures/minutes/secondes), c'est bien côté Access, pas Delphi, hein ?

Parce que sinon, la méthode la moins sauvage est bien celle-ci (bandes de sauvages ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Affichage:=FormatDateTime('dd/mm/yy',Date);

[jambonstar]

Oui mais non

Effectivement, mon affaire met les heures/minutes/secondes à zéro, j'ai pensé qu'il voulait vraiment supprimer les heures/minutes/secondes parasites de sa base de donnée, donc en ce sens, je pense que c'est une première étape (si il veut pouvoir comparer deux dates plus tard dans ses requêtes)

Sinon, son problême d'affichage (le formattage sans les heures/minutes/secondes), c'est bien côté Access, pas Delphi, hein ?

Parce que sinon, la méthode la moins sauvage est bien celle-ci (bandes de sauvages ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Affichage:=FormatDateTime('dd/mm/yy',Date);

Y-a pas à dire, ça se voit que c'est vendredi..

[edam]

D'abord comme ça dans Delphi (pour supprimer heures/minutes/secondes, on supprime la partie fractionnaire du TDateTime)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fieldbyname('datecv').asdatetime:=trunc(datetimepicker1.date);

+ trunc ou int, car en acces il affiche dans la base seulement les dates et ajoute l'heur si la parti décimal>0

[LadyWasky]

+ trunc ou int, car en acces il affiche dans la base seulement les dates et ajoute l'heur si la parti décimal>0

Merci Edam de cette confirmation !!!
@Jambonstar : c'est Vendredi...