скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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



Автор: Eagle

{ **** 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.





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook