De la date delphi, en date normale ?

Version imprimable

30/12/2009, 12h14
Gigli

De la date delphi, en date normale ?

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:

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 :)
30/12/2009, 12h23
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:

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

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:

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 ?

30/12/2009, 13h24
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'.

Code:

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;

31/12/2009, 10h51
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 :)
31/12/2009, 11h06
Linkin

Un petit tour dans la FAQ ;)
http://delphi.developpez.com/faq/?pa...propri#numbers

Code:

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
50
51
52
53
54
55
56
57
58
59
60
unit Unit5;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm5 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    procedure SendEdit1Value(const Value: double);
  public
 
  end;
 
var
  Form5: TForm5;
 
implementation
 
{$R *.dfm}
 
procedure TForm5.Edit1Change(Sender: TObject);
var V: double;
    ODS : Char;
begin
  ODS := DecimalSeparator;
  if pos('.', Edit1.Text) <> 0 then
    DecimalSeparator := '.'
  else
  if pos(',', Edit1.Text) <> 0 then
    DecimalSeparator := ',';
 
  if TryStrToFloat(Edit1.Text, V) then
  begin
    Edit1.Font.Color := clBlue;
    SendEdit1Value(V);
  end
  else
    Edit1.Font.Color := clRed;
 
  DecimalSeparator := ODS;
end;
 
procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #8, ',', '.']) then
    Key := #0;
end;
 
procedure TForm5.SendEdit1Value(const Value: double);
begin
  Caption := FormatDateTime('dd/mm/yyyy hh:nn', Value);
end;
 
end.

07/01/2010, 16h47
aydin24alain
Bonjour,
te casse pas la tete tu met :
Code:

1 2 Label1.Caption:='nous somme le : ' + datetostr(date) + ' il est : ' + timetostr(time);
utilise donc : datetostr(date)
timetostr(time)