récupérer valeur datetimepicker
salut; j'ai un datetimepicker avec un format : MMMM/yyyy ceq ui donne par exemple janvier/2010 ; lors de la récupération du contenu du datetimepicker dans le QRLabel1.caption au lieu d'avoir janvier/2010 j'ai 02/01/2010. :?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| procedure Tfimplistmalade.BitBtn1Click(Sender: TObject);
var Year,Month,Day,an,mois:Word;begin
if rbparmois.Checked=true
then
begin
decodeDate(datetimepicker1.Date,Year,Month,Day);
an:=year;
mois:=month;
dm1.qimplistmalade.Close;
dm1.qimplistmalade.Parameters.ParamByName('an').value:=an;
dm1.qimplistmalade.Parameters.ParamByName('mois').value:=mois;
dm1.qimplistmalade.Open;
dm1.tparam.Open;
flistemalade.QRLabel2.Caption:=datetimepicker1.date;
flistemalade.QuickRep1.Preview;
end;
end; |
