delphi - デルフィ分を時間単位から分単位に変換する

Question

こんにちは、適切な入力コンポーネントでポイント A からポイント B に到達するのにかかった分数の Delphi プログラムを作成する方法がわかりません。たとえば、65 分は 1 時間 5 分です。

Answer 1

これは、div整数除算およびモジュラス演算子で実行できます。mod

procedure ConvertMinutesToHoursAndMinutes(
  Input: Integer; out Hours, Minutes: Integer);
begin
  Hours := Input div 60;
  Minutes := Input mod 60;
end;

Answer 2

適切なフォーマット ルーチンは次のようになります。

function MinutesToStrEx(const Minutes: Cardinal): string;
var
  D, H, M: Integer;
begin
  H := M div 60;
  M := M mod 60;
  D := H div 24;
  H := H mod 24;
  if D > 0 then
    if (H <> 0) or (M <> 0) then
      Result := Format('%d days %d hours and %d minutes', [D, H, M])
    else
      Result := Format('%d days', [D]);
  else if H > 0 then
    if M > 0 then
      Result := Format('%d hours and %d minutes', [H, M])
    else
      Result := Format('%d minutes', [M]);
end;

次に、次のように呼び出します。

begin
  Label1.Caption := 'Ellapsed time to reach from A to B: ' + MinutesToStrEx(Minutes);
end;