delphi将小时中的分钟转换为分钟

ello我不知道如何编写一个delphi程序，它需要多少分钟才能在一个合适的输入组件中从a点到B点，例如65分钟是1小时5分钟，现在我的问题是如何编写它？

你可以使用div和mod来完成这项工作

---

一个好的格式化例程可能如下所示：

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;

---

很抱歉，我不能理解这个评论。你只需要在答案中使用代码。它就在那里。好的，编码应该是这样的，然后是Unit1；界面使用窗口、消息、系统、变量、类、图形、控件、窗体、对话框；类型TForm1=classtformprivate{private declarations}public{public declarations}end；var Form1:TForm1；实现{$R*.dfm}过程ConvertMinutesToHoursAndMinutes输入：整数；输出小时数，分钟数：整数；开始时间：=输入div 60；分钟数：=输入模60；终止结束。问题是如何将分钟转换为小时和分钟。我回答说。我不想写整个程序。你应该考虑清楚地修改你的问题，我有一个模糊的想法你问什么，它已经被回答和接受了，但是很难理解这个问题。

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