Discussion :

[ddubois]

Bonjour,

Je cherche à obtenir l'heure pleine sans les minutes (ex: 7 pour 7h12) de préférence de facon propre, cad en jouant sur le format Time plutot qu'une extraction du 1er caractère...

Plus compliquer, je souhaite également attribuer la valeur "1" de 0h01 à midi (matin) puis "2" de 12h01 à minuit (0h00).

Merci,

Denis

[dehorter olivier]

La fonction HourOf fait cela

plus un petit coup de IF pour obtenir le AM et PM

[ddubois]

Merci, c'est ok, j'ai fait :

Code :

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

1
2
 
  Label1.Caption := IntToStr(HourOf(Now));

Mais je souhaite obtenir la date sur 12 heures (format US) et non sur 24 heures...

Denis

[dehorter olivier]

je ne comprends pas

[mick605]

Mais je souhaite obtenir la date sur 12 heures (format US) et non sur 24 heures...

Et bien, un petit coup de modulo fait l'affaire ...

Code :

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

Label1.Caption := IntToStr(((HourOf(Now)+11) mod 12) +1);

C'est bien ca que tu cherchais ?

[DOLPat®]

Code :

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

1
2
 
  Label1.Caption := IntToStr(HourOf(Now));

Mais je souhaite obtenir la date sur 12 heures (format US) et non sur 24 heures...Denis

Bonjour

Pour avoir l'heure sous la forme 12 heures, tu peux utiliser la fonction FormatDateTime sous l'une des 3 formes suivantes:

Code :

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

1
2
3
4
 
  Caption:=FormatDateTime('hh ampm', now)
  Caption:=FormatDateTime('hh am/pm', now)
  Caption:=FormatDateTime('hh a/p', now)

Pat.

[Dr.Who]

tout simplement :

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
var
  H, M ,S ,Z: word;
  V: integer;
begin
  DecodeTime(now, H, M, S, Z);
  case H of
    0..11 : V := 1;
    12..23: V := 2;
  end;
  case H of
    0,12 : caption := '12';
    1..11 : caption := format('%.2d',[H]);
    13..23 : caption := format('%.2d';[H-12]);
  end;
end;

[DOLPat®]

tout simplement :

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
var
  H, M ,S ,Z: word;
  V: integer;
begin
  DecodeTime(now, H, M, S, Z);
  case H of
    0..11 : V := 1;
    12..23: V := 2;
  end;
  case H of
    0,12 : caption := '12';
    1..11 : caption := format('%.2d',[H]);
    13..23 : caption := format('%.2d';[H-12]);
  end;
end;

Bonjour

Pourquoi faire simple quand on peut faire compliqué. je ne veux pas polémiquer, mais je crois le code que j'ai mis dans mon message précédant est quand même plus simple. Une seule ligne pour arriver au même résultat...

Code :

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

Caption:=FormatDateTime('hh ampm', now)

Sauf erreur de ma part, c'est bonnet blanc ou blanc bonnet. Me tromperais-je ?

[Dr.Who]

C'est différents et similaire.

tout dépend de ce qu'on cherche a faire. parfois montrer plusieurs façon de faire permet de mieux comprendre une problématique.

dans ton code par exemple, on ne voit pas de détermination d'une valeur 1 dans la plage 0..11 et 2 dans la plage 12..23.
Donc tu ne répond pas à la seconde question de notre ami.

il est vrai que j'ai pris l'habitude d'utiliser decodeTime car j'ai souvent besoin de chaque composantes de temps.

on aurait pus aussi utiliser le HoursOf de DateUtils puisque seul l'heure nous intéresse.

on pourrait effectivement remplacer le CASE OF qui détermine le texte de l'heure par ta méthode plus simple et lisible, mais pourquoi refaire un calcul sur le temps déjà effectué par decodeTime? ne demandant plus qu'un petit Format ou IntToStr plutôt qu'un FormatDateTime qui vas ressortir d'une valeur TDateTime la composante Heure au format demandé.

Les deux méthodes sont bonnes.
le reste est un choix.