Определение текущего времени, отдельно часы, минуты и секундыDelphi , Синтаксис , Дата и ВремяОпределение текущего времени, отдельно часы, минуты и секунды
Автор: 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. Статья Определение текущего времени, отдельно часы, минуты и секунды раздела Синтаксис Дата и Время может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Дата и Время ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |