| 
| 
 | Вопрос # 167/ вопрос открыт / | 
 |  Пишет автор вопроса № 165. Первая часть вопроса, видимо, не всем стала ясна. Как сделать так, чтобы выводилась строка, в которой было написано 12:30:45 РМ или АМ, короче текущее время а часть дня, это и есть астраномическое время. Пробовал искусственным способом, ну то есть проверять скок время и добавлять РМ или АМ условием больше или меньше 12, всё получается, но в вопросе сказано одним оператором. Заранее спасибо. 
|  |   Вопрос задал: Полушин Сергей Анатольевич (статус: Посетитель)Вопрос отправлен: 21 ноября 2006, 18:37
 Состояние вопроса: открыт, ответов: 2.
 |  Ответ #1. Отвечает эксперт: mvp FormatDateTime('hh:mm:ss am/pm', now);
 Посмотрите в helpe FormatDateTime и Date-Time Format Strings, если интересно, как это работает :)
 
|  | Ответ отправил: mvp (статус: 4-ый класс)Время отправки: 21 ноября 2006, 20:35
 Оценка за ответ: 5
 |  Ответ #2. Отвечает эксперт: min@y™ А ещё есть чудесный модуль DateUtils.pas, там много вкусных функций для работы с датами и временами. Ну, и в частности вот эта: Приложение:Переключить в обычный режим IsPM function ndicates whether the time portion of a specified TDateTime value occurs after noon. Unit DateUtils Category datetime routines Delphi syntax: function IsPM(const AValue: TDateTime): Boolean; C++ syntax: extern PACKAGE bool __fastcall IsPM(const System::TDateTime AValue); Description IsPM returns true if the time portion of AValue occurs on or after 12:00 noon and before 12:00
midnight.
|  | Ответ отправил: min@y™ (статус: Доктор наук)Время отправки: 22 ноября 2006, 08:28
 Оценка за ответ: 3
 |  
 Мини-форум вопросаВсего сообщений: 1; последнее сообщение — 21 ноября 2006, 20:36; участников в обсуждении: 1. 
|   | mvp (статус: 4-ый класс), 21 ноября 2006, 20:36 [#1]:Забыл в ответе уточнить, что надо подключить sysutils, но, думаю итак догадаетесь   |  Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте. |