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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Определение текущего времени(часы, минуты, секунды)

Зависимости: SysUtils, Classes
Автор:       Eagle, ICQ:160702560
Copyright:   MegaSoft
Дата:        2 ноября 2002 г.
***************************************************** }

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.