Новые книги
Если покупатель говорит «нет». Работа с возражениями
Почему люди не понимают друг друга? Почему даже самые понятные и четкие ваши аргументы или идеи вызывают иногда у других ярое сопротивление или недоверие? Как сделать так, чтобы ваши доводы были услышаны и приняты?

С несогласием, возражениями и вопросами мы встречаемся постоянно. Мы слышим их от клиентов и партнеров по бизнесу, от друзей и знакомых, от родных и близких. Иногда мы не знаем, что и как сделать, чтобы нас поняли и приняли нашу точку зрения.

Книга адресована тем, кто по роду своей деятельности постоянно находится в контакте с людьми: продавцам, менеджерам, руководителям различного ранга, психологам, бизнес-консультантам, тренерам и всем, кто хотел бы быть более успешным в бизнесе и жизни. Здесь вы найдете множество идей превращения «нет» в «да».
Информационные системы и технологии в маркетинге. Монография
Современная рыночная экономика характеризуется преобладанием знаний и информации над материально-вещественными факторами производства. Информационные технологии рыночного управления предприятиями видоизменяют традиционные маркетинговые подходы. В монографии рассматривается многоаспектное влияние информатизации общества на сферу рыночных отношений. Автором предлагается комплексный взгляд на современный этап развития маркетинга как вида информационной деятельности. Реализован системный подход к определению сущности и современного предназначения маркетинговых информационных систем (МИС). Разработана авторская классификация маркетинговой информации как основы формирования и функционирования МИС. Сформулированы методологические принципы и разработана авторская модель МИС на основе переменных комплекса маркетинга. Существенное внимание в монографии уделено информационным технологиям и программному обеспечению при реализации МИС. Монография рекомендуется для использования в учебном процессе при подготовке специалистов, бакалавров, магистров, аспирантов и докторантов в области маркетинга, организации и управления инновационной экономикой, а также в научно-исследовательской работе и практике рыночной деятельности.

Процедуры и функции работы с датой и временем
Версия для печати

Процедуры и функции работы с датой и временем

Модуль SysUtils

 

Function Date: TDateTime;

Возвращает текущую дату.

 

Function DateTimeToStr(DateTime: TDateTime): String;

Преобразовывает параметр типа TDateTime, содержащий дату и время, в строку. Если параметр DateTime не содержит значения даты, дата устанавливается в 00/00/00. Если параметр DateTime не содержит значения времени, время устанавливается в 00:00:00.

 

Function DateToStr(Date: TDateTime): String;

Преобразовывает параметр типа TDateTime, содержащий дату, в строку.

Преобразование использует формат, определенный глобальной переменной ShortDateFormat.

 

Function DayOfWeek(Date: TDateTime): Integer;

Возвращает день недели определенной даты как целое число между 1 и 7. Воскресенье - первый день недели, и суббота - седьмой.

 

Procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

Извлекает дату из формата TDateTime и помещает год, месяц и день соответственно в переменные Year, Month и Day.

 

Procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);

Извлекает время из формата TDateTime и помещает часы, минуты, секунды, и миллисекунды соответственно в переменные Hour, Min, Sec и MSec.

 

Function EncodeDate(Year, Moth, Day: Word): TDateTime;

Возвращает дату в формате TDateTime, полученную из значений параметров Year, Month и Day.

Year должен быть между 1 и 9999.

Допустимые значения Month - от 1 до 12.

Допустимые значения Day - от 1 до 28, 29, 30, или 31, в зависимости от значения Month. Например, возможные значения Day в течение второго месяца (февраля) - от 1 до 28, или от 1 до 29, в зависимости от того, определяет или нет значение Year високосный год.

Если значения находятся вне диапазона, возникает исключительная ситуация EConvertError. Возникающее в результате значение - единица плюс число дней между 30/12/1899 и данной датой.

 

Function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;

Возвращает время в формате TDateTime, полученное из значений параметров Hour, Min, Sec и MSec.

Если значение типизированной константы Time24Hour ложно (False), значения Hour лежат в пределах от 0 до 12, если истинно (True) -  от 0 до 23.

Допустимые значения Min и Sec - от 0 до 59. Допустимые значения MSec - от 0 до 999.

Если значения находятся вне диапазона, возникает исключительная ситуация EConvertError.

 

Function Now: TDateTime;

Возвращает текущую дату и время в формате TDateTime (дата + время).

 

Function StrToDate(const S: String): TDateTime;

Преобразовывает строковое представление даты в формат TDateTime. Дата в параметре S должна быть записана по правилам Windows, т.е. должна состоять из двух или трех чисел, отделяемых символом, определенным в глобальной переменной DateSeparator. Порядок следования месяца, дня и года определен в глобальной переменной ShortDateFormat. Возможные комбинации - m/d/y, d/m/y, и y/m/d.

Если строка содержит только два числа, это интерпретируется как дата (m/d или d/m) в текущем году. Значения Year между 0 и 99 означают год  в текущем столетии.

Если строка содержит дату в неверном формате, возбуждается  исключительная ситуация EConvertError.

 

Function StrToTime(Const S: String): TDateTime;

Преобразовывает строковое представление времени в формат TDateTime.

Строка должна состоять из двух или трех чисел, отделяемых символом, определенным в глобальной переменной TimeSeparator. Числа представляют собой часы, минуты, и (необязательно) секунды, в соответствующем порядке.

Если строка содержит время в неверном формате, возбуждается  исключительная ситуация EConvertError.

 

Function Time: TDateTime;

Возвращает текущее время.

 

 

 

Function TimeToStr(Time: TDateTime): String;

Преобразовывает время из формата TDateTime в строковое представление.

Преобразование использует формат, определенный в глобальной переменной LongTimeFormat. Вы можете изменять формат отображения времени, изменяя значения переменных даты и времени (или используя Панель управления Windows).