Discussion :

[Vodkha]

Bonjour,

J'ai un problème avec une fonction qui convertit une heure décimale en format h:m:s.


T = 62E800 en hexa et 6481920 en décimal (14h4min0sec)

quand je convertit à l'aide du code ci-dessous, j'ai la variable sec qui est égal à 60. J'ai fais un test (if) pour checker cette variable et le programme n'entre pas dans mon if quand sec est égal à 60.

Merci de votre aide

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
 
  res := (StrToInt('$'+T) / 460800);
  h := Int(res);
  min1 := (res-h)*60;
  min := Int(min1);
  sec := (((res-h)*60)-min)*60;
 
  if sec >= 60 then
  begin
    min := min +1;
    sec := sec-60;
  end;
  if min >= 60 then
  begin
    h := h +1;
    min := min - 60;
  end;
  heure := FormatFloat('00',h)+':'+FormatFloat('00',min)+':'+FormatFloat('00'+DecimalSeparator+'00',sec);

[Michel Devaud]

Pourquoi ne pas utiliser la fonction FormatDateTime ?

[Dr.Who]

si la base est la seconde :

pour trouver S, M, H :

Code :

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

1
2
3
S := T mod 60;
M := (T div 60) mod 60;
H := T div 3600

;

pour trouver T :

Code :

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

1
2
 
T := H*3600 + M*60 + S;

si la base est la Milliseconde (comme getTickcount par exemple)

pour trouver Z,S,M,H :

Code :

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

1
2
3
4
Z := T mod 1000;
S := (T div 1000) mod 60;
M := (T div 60000) mod 60;
H := T div 3600000;

pour trouver T :

Code :

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

T := H*3600000 + M * 60000 + S * 1000 + Z;

si T est de type TTime ou TDateTime :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  H,M,S,Z: word;
begin
  DecodeTime(T, H, M, S, Z);
end;
 
var
  T : TTime;
begin
  T := EncodeTime(H, M, S, Z);
end;

et pour formater :

Code :

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

1
2
 
Caption := Format('%.2d Heure %.2d Min %.2d Sec',[H,M,S]);

[Andnotor]

Vodkha,

Remplace l'ensemble de ton code par ceci:

Code :

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

Heure := TimeToStr(StrToInt('$'+T) /460800 /(24 *60));

[Vodkha]

Merci ça fonctionne bien avec cela

heure := FormatDateTime('hh:mm:ss.zz',StrToInt('$'+T) /460800 /24);