Arsip: Menghitung Selisih Waktu [billing]


by delphi in Articles more 15 years ago 2194
beberapa rekan yang sedang mulai membuat latihan program Billing sepertinya menemui kesulitan dalam melakukan penghitungan waktu.
kode ini mungkin berguna:
function  SelisihMenit( ptMulai, ptSelesai : TTime) :integer;
const
pembagi = 0.0006944444444444444444444;
begin
Result := Trunc( ( ptSelesai - ptMulai ) / pembagi );
end;

 

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com