Discussion :

[Gigli]

Bonjour à tous



Tout d'abord, je suis un débutant absolu sur Delphi.


J'essaye de faire un tout petit programme, me permettant de transformer une heure delphi (exemple : 40176.37244) en heure et date normale (29/12/09 08H18).


Quand je fais

Code :

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

FormatDateTime('"Nous sommes le" dd/mm/yyyy", il est "hh:ss',  40176.37244 ) ;

j'obtiens bien la date et l'heure.



j'aimerais que la valeur que je transforme ici en gras soit issu d'une valeur entrée dans un Tedit.


Pourriez vous m'aider ?


Merci

[Fenix01]

Salut ^^

C'est pas compliqué.
A la place de 40176.37244 tu veux la valeur d'un Tedit.

La fonction demande en paramètre une variable extended (nombre à virgule).
Le texte d'un Tedit se récupère avec la propriété text.
Edit1.text par exemple. Edit1.text est un string et non un nombre à virgule donc on le convertit avec StrToFloat.

On a au final :

Code :

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

FormatDateTime('"Nous sommes le" dd/mm/yyyy", il est "hh:ss', StrToFloat(Edit1.text) ) ;

[Gigli]

Merci pour ta réponse rapide !

J'ai testé cependant ça ne marche pas, je pense qu'il y a un ptit truc qui doit me manqué


j'ai un edit1, un button1 et un label1

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
var
  Form1: TForm1;
  DateChaine: string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
 
//        40176.37244 = 29/12/09 08H18.
 
 
 
  DateChaine := FormatDateTime('dd/mm/yyyy hh:ss', StrToFloat(Edit1.text) ) ;
 
 
  label1.Caption:=datechaine;

une variable qui va pas ?

[Fenix01]

Qu'est ce qui ne marche pas ?
J'ai réutilisé le code que tu as posté juste avant et ca fonctionne très bien.

cette valeur dans edit1 40176,37244 renvoit dans le label1 29/12/2009 08:18

Mais attention ce n'est pas un point qu'il faut mettre mais une virgule !
40176,37244 au lieu de 40176.37244

Sinon tu as une erreur.
---------------------------
Notification des exceptions du débogueur
---------------------------
exception EConvertError avec le message ''40176.37244' n'est pas une valeur en virgule flottante correcte'.

[Dr.Who]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  V : double;
begin
  if pos('.', Edit1.Text) then
    DecimalSeparator := '.'
  else
  if pos(',', Edit1.Text) then
    DecimalSeparator := ',';
 
  if TryStrToFloat(Edit1.Text, V) then
    Label1.Caption := FormatDateTime('dd/mm/yyyy hh:nn', V);
end;

[Gigli]

Merci à vous deux, en rajoutant DecimalSeparator := '.' dans le code je peux mettre indiferement 40176.37244 ou 40176,37244


par contre, pourriez vous m'aiguiller : j'aimerais forcer mon Tedit pour qu'on puisse uniquement y inserer des numéros et des "." mais rien d'autre (pour éviter les erreurs) ... ?


Merci