Différence entre datetimes en Heures, Minutes, Secondes

J'essaye de faire la différence entre les deux datetimes et l'afficher dans la chaîne sous la forme hh:mm

q.parambyname('vstart').asdatetime:=  vstart;
q.parambyname('vend').asdatetime:= vend;
d:= vend-vstart;
mins:= d * 1440;
q.ParamByName('mins').asBCD:= mins;

actuellement la base de données stocke dans les minutes

exemple (0.39)

Je voudrais ensuite prendre à partir de la base de données et l'afficher dans la chaîne de format hh:mm

  • Avez-vous vraiment besoin mins dans votre Base de données? vstart et vend champs contiennent déjà toutes les informations dont vous avez besoin pour revenir différence entre eux comme résultat de la requête (dans le format dont vous avez besoin).
InformationsquelleAutor Blow ThemUp | 2012-10-23
  1. 16

    Dans DateUtils il y a une fonction MinutesBetween qui peut être utilisé en tant que tel:

    m := MinutesBetween(vend,vstart);
yourHMStr := Format('%2.2d:%2.2d',[m div 60,m mod 60]);
    • Cette réponse donne hh:mm mais Qu'en quelques secondes, comme il le mentionner dans le Titre?
    • utiliser les Système.DateUtils.SecondsBetween . s := SecondsBetween(vend,vstart); HMSstr := Format('%2.2d:%2.2d:%2.2d',[s div 3600,(s div 60) mod 60,s mod 60]);, où s est un Int64 variable.
    InformationsquelleAutor LU RD
  2. 2

    Je peux proposer ce simple code à l'aide de DateUtils:

    DiffTimeStr:= FormatDateTime('hh:nn:ss', TimeEnd - TimeStart);
    InformationsquelleAutor Dreamer64