Source Code



convert minutes in a days / hours / minutes format

  • anonymous
  • Dec 20' 13
  • Delphi
  • 243
  • 123
  • United States

Use this source code to convert minutes in a  days / hours / minutes format


 

function MinutesToDaysHoursMinutes(AMinutes: Integer): string;
const
  HOURSPERDAY = 8;    // tentukan / specify the current day job
var
  Days: Integer;
  Hours: Integer;
  Minutes: Integer;
begin
  if (AMinutes  0) then
  begin
    Hours   := AMinutes div 60;
    Minutes := AMinutes mod 60;
    Days    := Hours div HOURSPERDAY;
    Hours   := Hours mod HOURSPERDAY;
  end
  else
  begin
    Hours   := 0;
    Minutes := 0;
    Days    := 0;
  end;

  Result := Format(''%.2d:%.2d:%.2d'', [Days, Hours, Minutes]);
end;
  • Tags : delphi, format, date, time, hour, day, minutes, convert
comments powered by Disqus

Related Code

How to convert Short to Long filenames

Get Database Path With Alias

SQL data to Excel

Execute a JavaScript Code on a TWebBrowser Document

Save a StringGrid as a CSV file

Empty Recylce Bin

Get MAC Address of Network Card

Kill Active Program

Resizable forms and size grip

Simple Like Function



Category