Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 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, там много вкусных функций для работы с датами и временами. Ну, и в частности вот эта:

Приложение:
  1. IsPM function
  2.  
  3. ndicates whether the time portion of a specified TDateTime value occurs after noon.
  4.  
  5. Unit
  6.  
  7. DateUtils
  8.  
  9. Category
  10.  
  11. datetime routines
  12.  
  13. Delphi syntax:
  14.  
  15. function IsPM(const AValue: TDateTime): Boolean;
  16.  
  17. C++ syntax:
  18.  
  19. extern PACKAGE bool __fastcall IsPM(const System::TDateTime AValue);
  20.  
  21. Description
  22.  
  23. 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

mvp (статус: 4-ый класс), 21 ноября 2006, 20:36 [#1]:

Забыл в ответе уточнить, что надо подключить sysutils, но, думаю итак догадаетесь :)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:47
Выполнено за 0.02 сек.