Discussion :

[ghilo]

Salame alikoume;
Bonjour a tous et a toutes
Je voudrais faire une petite conversion de genre je saisi dans un Tdatetime l'heure et j'aurais comme résultat les minutes de cette heure
Exemple: 13H35 ======>815 Minute
Comment je procède ??
Cordialement

[inforock]

Bonjour,

Voici une fonction que j'utilise régulièrement dans un de mes programmes ... Le type de retour de la fonction (integer) n'est peut-être pas le plus approprié mais ça a le mérite de fonctionner correctement.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function CONVERT_MINUTES(HEURE : tdatetime) : integer;
var
  HH,MN,SEC,MSEC : word;
  MINUTES : integer;
 
begin
  decodetime(HEURE,HH,MN,SEC,MSEC);
  CONVERT_MINUTES := (HH * 60) + MN;
end;

En espérant que ça réponde à la question ...

[ghilo]

Merci bcp inforock je vais essayer votre code @+