Определение текущего времени(отдельно часы, минуты, секунды)
Материал из DRKB
Определение текущего времени(отдельно часы, минуты, секунды)[править | править код]
DecodeTime(Time, Hour, Minute, Second);
Устаревший вариант:
{ **** 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.
Source: http://delphibase.endimus.com
ID: 01647