24. september 2002 - 14:36Der er
13 kommentarer og 1 løsning
Minutter til HH:MM
Jeg har et program der tæller "online" tid så længe det benyttes - For hvert minut tælles vOnlineTime 1 op Inc(vOnlineTime) Samtidig vil jeg vise brugeren hvor lang tid han har været online, jeg har prøvet med StatusBar.Panels[2].Text := 'Online: '+TimeToStr(EncodeTime(vOnlineTime div 60, vOnlineTime mod 60, 0, 0));
Men den fejler "Invalid argument to Timeencode" vOnlineTime er i Integer Har jeg forstået funktionen forkert ?
du skal gribe det anderledes an. Du skal lave dig en privat variabel af Typen TDateTime, lad os kalde den StartTime. Den sætter du til værdien Now i FormCreate. Så laver de en timer der gør det følgende :
Function GetMinutes(aTime : TDateTime) : Integer; var h, m, s, hund : Word; begin Result := Trunc(aTime) * MinutsInADay; DecodeTime(aTime, h, m, s, hund); inc(result, h * 60); inc(result, m); end;
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.