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)

[EricStib]

En fait, ce que je voudrais c'est pouvoir introduire un grand nombre quelconque et savoir combien cela fait en années, mois, jours, heures, minutes et secondes.

j'ai, enfin, compris comment utiliser la fonction DecodeDateTime:

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
18
19
20
21
 
procedure TForm1.AvecTdateTime;
var
  dateInput : TDateTime;
  Year, Month, Day, Hour, Minute, Second, MilliSecond : word;
 
 
begin
    dateInput := StrToDate(L_EdNbresSecondes.text);
    DecodeDateTime(dateInput,year,month,day,hour,minute,second,millisecond);
    with RichEdit1.Lines do
            begin
                Add('Nombres d''années :' + IntToStr(year));
                Add('Nombre de mois :' + IntToStr(month));
                Add('Nombre de jours :' + IntToStr(day));
                Add('Nombre d''heures :' + IntToStr(hour));
                Add('Nombre de minutes : ' + IntToStr(minute));
                Add('Nombre de secondes :' + IntToStr(second));
                //Add(IntToStr (High (Integer)));
            end;
end;

Comme ceci l'erreur de compil ne se produit plus.

Maintenant, quand je rentre un nombre (par ex: 12345678912) j'obtiens le message d'erreur "is not a valide date".

J'ai bien essayé avec la méthode des div et mod mais cela ne fonctionne que pour l'intervalle valide des Integers... pour le nombre 12345678912 je devrais employer le type Double mais alors je ne peux plus utiliser div et mod (utilisable seulement pour les integer)... bref, je ne suis pas encore sortis de l'auberge :+)

EricStib

[DragonHeart]

Et si tu essayé par rapport a une date de 'référence' ?

[EricStib]

Il semblerait que l'utilisation des fonctions DecodeDateTime soient soumises à l'utilisation d'un nombre correcte sous format DATE. Or, ici, je rentrais un nombre tout à fait au choix de l'utilisateur.

J'ai relevé la limite des Integer en utilisant le type Int64... en attendant de
trouver mieux.

Ci-dessous, le code modifié (et fonctionnel).

Je vais continuer mes recherches sur le format TDateTime en employant des format valable.

Merci à tous pour votre aide,
a+
EricStib

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
procedure TForm1.Calcul;
 
var
    nbreInitial,nbreAnnee,nbreMois,nbreJours,
             nbreHeures,nbreMinutes,NbreSecondes, reste  : Int64;
 
 
begin
    {les fonctions mod et div ne sont utilisables que dans la gamme des
    valeurs integer !! }
    try
        RichEdit1.Clear;
 
        {Transforme un nombre entier donné en :
            Année, Mois, Jour, Heure, Minutes et secondes}
        nbreInitial := StrToInt64(L_EdNbresSecondes.Text);
 
        nbreAnnee := nbreInitial div (365*(24*3600));
        reste := nbreInitial mod (365*(24*3600));
 
        nbreMois := reste div (3600*24*30);
        reste := reste mod (3600*24*30);
 
        nbreJours := reste div (3600*24);
        reste := reste mod (3600*24);
 
        nbreHeures := reste div 3600;
        reste := reste mod 3600;
 
        nbreMinutes := reste div 60;
        nbreSecondes := reste mod 60;
 
        with RichEdit1.Lines do
            begin
                Add('Nombres d''années :' + IntToStr(nbreAnnee));
                Add('Nombre de mois :' + IntToStr(nbreMois));
                Add('Nombre de jours :' + IntToStr(nbreJours));
                Add('Nombre d''heures :' + IntToStr(nbreHeures));
                Add('Nombre de minutes : ' + IntToStr(nbreMinutes));
                Add('Nombre de secondes :' + IntToStr(nbreSecondes));
 
            end;
 
 
    except
        MessageDlg('Dépassement de la limite des integer ! ', mtWarning, [mbOK], 0);
    end;
end;

[ShaiLeTroll]

Parfois, je me demande si certains ne le font pas exprès ! ne pas savoir faire la différence entre une procédure avec des paramètres en sortie et une fonction ... avant de faire de Delphi, essayer de programmer sur une Ti80 ça fera un entrainement à certaines logiques de programmation ...

sinon, il existe "TryEncodeDateTime" qui renvoit True ou False, selon si la date est correcte ou pas, et sinon fonctionne comme EncodeDateTime

il est bien dommage que TryDecodeDateTime n'existe pas d'ailleurs, ...

juste comme ça F1 sur EncodeDateTime, puis "voir aussi", c'est dingue mais l'on trouve ce que l'on veut !

Sinon, un TDateTime, faut lire l'aide aussi à ce sujet, c'est un nombre à virgule flottante ...

La partie entière d'une valeur de type TDateTime représente le nombre de jours depuis le 30/12/1899.
La partie fractionnaire d'une valeur de type TDateTime est la partie des 24 heures écoulée.

Tu confonds donc un nombre de secondes avec une date en format delphi ... déjà ...

les fonctions mod et div ne sont utilisables que dans la gamme des valeurs integer

c'est vrai que le modulo et la division entière n'est valable que pour les entiers ... ça c'est la base des mathématiques quand même, la différences entre les Entiers Naturelles ou Relatifs et les Réels ...


maintenant euh, encore F1, ... car ton calcul n'est possible que pour Heure, Minute ... car les années Bisextiles, les mois de différentes longueurs ...

Ceci, fait en gros un calcul similaire, mais avec plus de chance d'être exacte !

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
var
  NbMilliSecond: Int64;
  AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word;
begin
  NbMilliSecond := 12345678912;
  DecodeDateTime(IncMilliSecond(0, NbMilliSecond), AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
  with ListBoxWord.Items do
  begin
      Add('Nombres d''années :' + IntToStr(AYear));
      Add('Nombre de mois :' + IntToStr(AMonth));
      Add('Nombre de jours :' + IntToStr(ADay));
      Add('Nombre d''heures :' + IntToStr(AHour));
      Add('Nombre de minutes : ' + IntToStr(AMinute));
      Add('Nombre de secondes :' + IntToStr(ASecond));
      Add('Nombre de millisecondes :' + IntToStr(AMilliSecond));
  end;
end;