Discussion :

[EricStib]

Bonjour à tous,

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.AvecTdateTime;
var
    dateInput : TDateTime;
begin
    dateInput := StrToDate(L_EdNbresSecondes.Text);
    RichEdit1.Lines.Add(DecodeDateTime(dateInput)); //bloque ici !
end;

Quand je veux compiler, j'obtiens un message d'erreur :
[Error] uForm1.pas(141): Not enough actual parameters

Quand je vais voir dans l'aide, je lis ceci:

procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);

Je pensais que je devais juste mettre la valeur TDateTime comme paramètre... mais manifestement j'ai un doigt dans l'oeil car cela ne fonctionne pas tel quel !

Si vous pouviez m'aider, ce serait sympa !
A+
EricStib

[Pedro]

Salut
Comme le dit si bien la déclaration de DecodeDateTime:

Code :

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

1
2
 
procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);

out signifie, en gros, que la fonction va "remplir" les variables. En l'occurrence, ici, des Word.
Si tu veux récupérer tout ça, tu dois faire:

Code :

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

1
2
3
4
5
6
 
var Year, Month, Day, Hour, Minute, Second: Word;
begin
  DecodeDateTime(dateInput, Year, Month, Day, Hour, Minute, Second);
  ...
end;

Ensuite, à toi de te débrouiller pour afficher les valeurs qu'il a renvoyées

[EricStib]

C'est presque ça ! ... il y juste le message d'erreur qui a changé :+)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.AvecTdateTime;
var
  dateInput : TDateTime;
  Year, Month, Day, Hour, Minute, Second, MilliSecond : word;
 
 
begin
    dateInput := StrToDate(L_EdNbresSecondes.text);
    RichEdit1.Lines.Add(DateToStr(DecodeDateTime(dateInput,year,month,day,hour,minute,second,millisecond));
end;

Cette fois, le message d'erreur est le suivant:

[Error] uForm1.pas(142): There is no overloaded version of 'DateToStr' that can be called with these arguments

Bon, manifestement, je passe encore à côté de qq chose...
a+
EricStib

[philnext]

?? t'as un pb avec dateToStr ou strToDate ??

[EricStib]

Ben, comme la sortie se fait en word, j'ai essayé aussi un IntToStr (puisque le Richedit1 attend un string)... mais cela donne le même genre de message:

[Error] uForm1.pas(141): There is no overloaded version of 'IntToStr' that can be called with these arguments

Je comprend plus rien ! Je laisse tomber pour ce soir et je reverrai cela demain !

a+
EricStib

[SergioMaster]

Utilise pour formater ta date directement en string et selon ce que tu veux

Code :

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

FormatDateTime('dd/mm/yyyy hh:nn:ss',DateInput)