Определение текущего времени(отдельно часы, минуты, секунды)

Code:

{ **** UBPFD ***************

>> Определение текущего времени(часы, минуты, секунды)

 Зависимости: SysUtils, Classes

Автор:       Eagle, Copyright:   MegaSoft

***************************************************** }

unit gettime;

interface

uses SysUtils, Classes;

function gethours: integer;

function getmins: integer;

function getsecs: integer;

implementation

function gethours: integer;

var

s: string;

h: integer;

begin

s := timetostr(time);

h := strtoint(s[1] + s[2]);

Result := h;

end;

function getmins: integer;

var

s: string;

h: integer;

begin

s := timetostr(time);

h := strtoint(s[4] + s[5]);

Result := h;

end;

function getsecs: integer;

var

s: string;

h: integer;

begin

s := timetostr(time);

h := strtoint(s[7] + s[8]);

Result := h;

end;

end.