delphi將分鐘轉換爲分鐘

Question

ello我不知道如何編寫一個delphi程序，該程序以合適的輸入組件獲取從點A到點B所花費的分鐘數爲例。 65分鐘是1小時5分鐘，現在我的問題是怎麼寫呢？

Answer 1

您可以使用div和mod,integer division and modulus operators。

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;