Discussion :

[redoran]

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 :

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 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;

[Cl@udius]

Salut

La propriété Format de TDateTimePicker ne précise qu'un format d'affichage. Par conséquent la propriété Date reste un TDateTime (Date + heure).

Il suffit de formater la valeur avec FormatDateTime:

Code :

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

1
2
    with DateTimePicker1 do
      flistemalade.QRLabel2.Caption := FormatDateTime(Format, Date);

@+

[redoran]

Bonjour; Merci Cl@udius ca marche