Discussion :

[KRis]

Bonjour à tous, je sais que c'est une question "bateau" mais mes recherches sont infructueuses pour le moment...
voilà j'ai un nombre d'heures et de minutes au format integer, et je souhaite l'afficher au format 'hh:mm'...
je devrai pouvoir afficher en string :
05:10
10:00
29:25
ou même 150:00

j'ai tester la fonction format mais sans succès...

Un peu d'aide serait la bienvenue ?

merci d'avance.

[evarisnea]

voici un exemple qui utilise conjointement les fonctions Format et FormatFloat

Code :

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

Format('%s:%s',[FormatFloat('00', 9), FormatFloat('00', 6)]))

9 et 6 sont les nombres à afficher, ce qui donne

09:06

[Cl@udius]

Salut

Tu peux faire ceci par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
 
function IntTimeToStr(Value: Integer): string;
var
  H, M: Integer;
begin
  H := Value div 60;
  M := Value mod 60;
  result := Format('%.2d:%.2d', [H, M]);
end;

[Edit] Grilled !
[Edit2] La fonction va si l'integer contient des minutes, bien sûr !

@+ Claudius

[evarisnea]

claudius je te dis merci
j'ai tout d'abord voulu utiliser uniquement la fonction Format, mais j'ai buté sur le format '00' et j'ai du contourner en utilisant la fonction FormatFloat. et dire que j'avais déjà réussi à le faire par le passé. c'est au vu de ton exemple que je me rends compte qu'il me manquait le point.

[Cl@udius]

c'est au vu de ton exemple que je me rends compte qu'il me manquait le point.

Ben ouais, ce petit point change tout. C'est autant subtile que déroutant.

@+

[KRis]

Merci à tous,
par contre j'ai corrigé un peu le dernier code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
function IntTimeToStr(Value: integer): string;
var
  H, M : Integer;
begin
   M:=Value div 60;
  H:=M div 60;
  M:=M-H*60;
 
  Result := Format('%.2d:%.2d', [H, M]);
end;

et ça marche parfaitement

Par contre maintenant faut que j'essaie de faire la fonction inverse...

[Cl@udius]

Salut

et ça marche parfaitement

Je ne comprends pas ton code ! Value ne représente pas un nombre de minutes ?

@+

[DragonHeart]

Salut,

J'utilise la même méthode que Claudius et c'est impécable ...

J'comprend pas trop non plus ton code ...

Pour la fonction inverse c'est pas bien compliqué aussi

[KRis]

ah pardon, Value représente pour moi un nombre de secondes.

[DragonHeart]

Ah pourtant tu avais spécifié au début un nombre d'heures et de minutes au format entier ^^

M:=M-H*60;

tu peu le remplacer (je pense) par

Code :

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

M := M Mod 60;

[Cl@udius]

Re,

Alors avec des secondes je coderais ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
 
function IntTimeToStr(Value: Integer): string;
var
  H, M: Integer;
begin
  H := Value div 3600;
  M := (Value mod 3600) div 60;
  result := Format('%.2d:%.2d', [H, M]);
end;

Quant à la fonction inverse, tu souhaites traiter une chaîne 'hh:mm' et retourner des secondes ?

@+