| Библиотека программирование, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Free & Destroy, Какая разница между Free и Destroy ? Delphi 6 RTL Update Pack 2 & 3, поделитесь ссылками Анимрованный курсор Edit для ввода пароля, замена на ***** Отправка почты TTreeView Обработка исключений Импорт графики, Импорт графики Как сделать, чтобы "подчиненные" окна, не выходили за пределы главного окна... Что такое FreeReport ? Разослать всем месаги! Программный скроллинг Memo, Программный скроллинг Memo Morfit, Движение объектов Инсталлятор, Как в инсталлятор добавить форму ListView, папки и фалы, Вопросы по ListView, папки и фалы Delphi 7 Люди где можно скачать Самый новый Делфи безплатно Передача месаги между прилажениями! Поиск в мемо Вставить строку в активное поле Memo & WWW Подключение OCX-модулей, Нужно подключить OCX-модуль из Delphi new А как перенести прогу с базой данных, на другой комп как получить часы,минуты или секунды, Из времени ??? Помогите Web-собрату!, Всего на 1 минуту Помогите, нужна программа на Дельфи Обращение к дочерней форме MDI из модальной., Обращение к дочерней форме MDI Эмулятор Exel, или что то типа этого... Выключение компа Установление Dialup соединения Как Вы относитесь к курящим девушкам? OLE и Word можно ли вставлять слова в нужные места Русские символы при записи в TTable, переколбашиваются в мусор. Несколько графиков в одном окне. Как? Как в программе включить Caps Lock ?, Как в проге управлять регистром клавы? Работа с WEB-камерой, Поиск компонент для работы с WEB-камеро Перекодирование ADPCM to PCM Посчитать координаты "крылышек" стрелочки Работа с реестром, Как записать и считать REG_BINARY ? Как получить текущую длину динамического массива?, array of Integer Документация по FormulaOne IP address, Как узнать? FreeReport, как засунуть картинку? Delphi и XP, Криво встает РЕестр на апишных функциях, Проблемы с функцией ПОмогите плиззз, Вопрос задаю второй раз ! Работа с компонентом NMPOP3, Нельзя получить приаттаченный файл... Скачать файл TMemo Как запомнить текст из окна другой проги? глюк при установки PGP2Comp, глюк при установки PGP2Comp Время сервака Срочно и очень важно:, Работа с базой данных Help - Pop-up windows Компоненты для построения нечеткой нейронной сети, Поиск компонентов Proxy, авторизация Команды модема, Следим за параллельным телефоном Базы данных., почему ошибка??? ShellListView :(, ну как сделать ? Помогите пожалуйста!!!, Курсовая горит ListBox за пределами формы, как??? POST запрос, type=password SQL 92, group by F1Book вкладка ActiveX, Загрузка файла помогите!!! задачка с координатами на Pascal Работа с базами данных, Перевод из одного формата в другой Ошибка с динамическим массивом Как Вы относитесь к курящим девушкам? Сумма выделенных ячеек в DBGRIDEh, или в обычном DBGRide |
Платные хостинги Раскрутка сайта Книги по программированию как получить часы,минуты или секунды, Из времени ???
- Мне надо в лабел вывести часы или минуты (в данное время) подскажите плизз - MinuteOf(time); // минутыHourOf(Time); // часы - caption:=FormatDateTime('hh:mm', Now); - DecodeTime - Я про DecodeTime Слышал - как им пользоватсья ??? - набираем в Дельфях DecodeTime и нажимаем F1 тебе там все напишут и объяснят. - Вообщето проще так:Код procedure TForm1.Timer1Timer(Sender: TObject);beginLabel1.Caption:=Timetostr(time); //для времениLabel2.Caption:=Datetostr(time); //для датыend;highlightSyntax('delphiMzIyYW','delphi'); - пример использования DecodeTimeКод ...var h,m,s,ms:word;begin DecodeTime(time,h,m,s,ms);Edit1.Text:=IntToStr(h)+'/'+IntToStr(m)+'/'+IntToStr(s)+'/'+IntToStr(ms);...highlightSyntax('delphiMTczZD','delphi'); Это сообщение отредактировал Albinos_x - 10.1.2005, 13:45 - Способ от NiJazz - конечно же WinAPI! Так работать должно быстрее и затрат ресурсов меньше - не надо лишний раз подключать VCL.Код procedure TForm1.Button1Click(Sender: TObject);const GMT = 3;var syst: TSystemTime; strt: string;begin strt := ''; GetSystemTime(syst); strt := strt + IntToStr(syst.wHour+GMT) + ':' + IntToStr(syst.wMinute); Label1.SetTextBuf(PChar(strt));end;highlightSyntax('delphiNWI1YT','delphi'); Добавлено @ 14:18 Если выводить время с секундами, то код такой:Код procedure TForm1.Button1Click(Sender: TObject);const GMT = 3;var syst: TSystemTime; strt: string;begin strt := ''; GetSystemTime(syst); if syst.wSecond < 10 then strt := IntToStr(syst.wHour+GMT) + ':' + IntToStr(syst.wMinute) + ':' + '0'+IntToStr(syst.wSecond) else strt := IntToStr(syst.wHour+GMT) + ':' + IntToStr(syst.wMinute) + ':' + IntToStr(syst.wSecond); Label1.SetTextBuf(PChar(strt));end;highlightSyntax('delphicwMzFm','delphi'); - Хотя IntToStr - функция из модуля SysUtils. Как и DecodeTime. В данном случае использование API не несёт выгоды в плане экономии ресурсов. Дело вкуса, в общем. - думаю оптимальнее пользоваться именно DecodeTime - Ок, дам ещё один экстравагантный способ, не требующий вообще никаких библиотек. Даже WinAPI поэтому будет работать и под Windows и под LinuxПуть Код t:TDateTime;Hours:=trunc(frac(t)*24);Minutes:=trunc(frac(t*24)*60);Seconds:=trunc(frac(t*24*60)*60);highlightSyntax('delphiNhMDU=','delphi'); - Если не учитывать, что Frac и TDateTime - детища VCL, то да. - TDateTime: единица это одни сутки, следовательно 1 час это 1/24 и т.д.Цитата (NiJazz @ 10.1.2005, 07:53)Если не учитывать, что Frac и TDateTime - детища VCL, то да. С какой тихой радости это VCL? TDateTime - это базовый тип дельфи, а Frac - это стандартная функция паскаля (Любого!), определена ещё в 1969 году во время создания паскаля... - Код procedure TForm1.Timer1Timer(Sender: TObject);var t:TDateTime; Hours, Minutes, Seconds: integer;begin t:=now; Hours:=trunc(frac(t)*24); Minutes:=trunc(frac(t*24)*60); Seconds:=trunc(frac(t*24*60)*60); if Seconds < 10 then Label1.Caption := IntToStr(Hours)+':'+IntToStr(Minutes)+':0'+IntToStr(Seconds) else Label1.Caption := IntToStr(Hours)+':'+IntToStr(Minutes)+':'+IntToStr(Seconds)end;highlightSyntax('delphiNlNWU2','delphi');  |