DecodeTime — Процедура Delphi

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

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).

Типы, функции и процедуры Delphi для работы с датой и временем.

Содержание:

Функции и процедуры Delphi для работы с датой и временем.

Тип TDateTime.

Тип TTimeStamp.

Тип TSQLTimeStamp.

Функции и процедуры Delphi для работы с датой и временем.

Значения символических констант для обозначения дней недели в соответствии с ISO 8601. Используйте эти константы для работы с функциями, работающими в соответствии со стандартом ISO 8601 (функции из модуля DateUtils).

Внимание: Не используйте эти константы с функцией DayOfWeek, которая трактует Воскресение (Sunday) как первый день недели.

Возвращает день недели из значения TDateTime. Возвращаемое функцией значение находится в промежутке между 1 и 7, где 1 соответствует Понедельнику (Monday), а 7 — Воскресение (Sunday).

Внимание: Значения DayOfTheWeek соответствуют ISO 8601 (где Понедельник (Monday) является первым днем недели). Если хотите чтобы первым днем недели считалось Воскресение (Sunday) используйте функцию DayOfWeek вместо функции DayOfTheWeek.

Совет: Чтобы сделать возвращаемые значения более читабельными, используйте константы Day of week.

Возвращает день недели из значения TDateTime. Возвращаемое функцией значение находится в промежутке между 1 и 7, где Воскресение (Sunday) является первым днем недели, а Суббота (Saturday) — седьмым.

Внимание: Значения DayOfWeek не соответствуют ISO 8601 (где Понедельник (Monday) является первым днем недели). Если хотите чтобы первым днем недели считался Понедельник (Monday) используйте функцию DayOfTheWeek вместо функции DayOfWeek.

Содержание

Тип TDateTime.

Тип TDateTime — это основной тип в Delphi для работы с датой и временем. Он является числом с плавающей запятой, целая часть которого содержит число дней, отсчитанное от некоторого начала календаря, а дробная часть равна части 24-часового дня, т.е. характеризует время и не относится к дате. Для 32-разрядных версий Delphi за начало календаря принята дата 12/30/1899, 12 часов.

Ниже приведены несколько примеров значения TDateTime и соответсвующие им дата и время:

Чтобы найти количество дней, включая дробную часть, между двумя датами, просто вычтите два значения, если только одно из них не является отрицательным. Аналогично, если значение TDateTime не отрицательное, то, чтобы увеличить значение даты и времени на определенное кличество дней, включая дробную часть, достаточно прибавить количество дней, включая дробную часть, к значению TDateTime.

Когда обрабатываются отрицательные значения TDateTimes, то вычисление дробной части производится отдельно. Дробная часть отражает часть 24-часового дня не зависимо от знака значения TDateTime. Например, 6:00 am on 12/29/1899 это –1.25, а неt –1 + 0.25, что составило бы –0.75. Значений TDateTime между –1 и 0 не существует. Cовет: В модулях SysUtils и DateUtils для работы с датой и временем имеется большое количество процедур и функций на все случаи жизни. Не заморачивайтесь с обственными вычислениями, не изобретайте велосипед, а пользуйтесь уже готовыми наработками разработчиков Delphi. (См. Функции и процедуры Delphi для работы с датой и временем.) Оно надежнее.

Примечание: В Delphi 1 за начало отсчета принят год 1, т.е. для перевода даты Delphi 1 в дату последующих версий Delphi надо вычесть из даты число 693594.

Содержание

Тип TTimeStamp.

TTimeStamp представляет значения дата и время.

Используйте TTimeStamp если требуется повышеная точность представления значения времени в знчениях дата/время. Если нет необходимости сохранять значение времени с точностью до милисекунд, используйте более компактное TDateTime. Если необходима еще большая точность, то используйте TSQLTimeStamp (но НЕ назначайте его типом Variant).

Поле Time field показывает количество милисекунд, прошедших с полуночи.

Поле Data показывает число календарных дней от начала календаря (число дней с 1/1/0001 плюс один).

Содержание

Тип TSQLTimeStamp.

TSQLTimeStamp представляет значения даты и времени с очень высокой точностью.

Драйвера баз данных dbExpress используют TSQLTimeStamp когда работают со значениями даты и времени.

• Year определяет год от 1 до 9999.
• Month определяет месяц от 1 до 12.
• Day определяет день месяца, от 1 до 28, 29, 30, или 31, в зависимости от значения Month.
• Hour определяет час от 0 до 23.
• Minute и Second могут колебаться от 0 до 59.
• Fractions определяет милисекунды от 0 до 999.

Используя функцию VarSQLTimeStampCreate, Вы можете создать тип Variant который представляет значение TSQLTimeStamp. Фактически, простейший путь манипулирования значениями SQLTimeStamp это создать подобный Variant и использовать встроеные операторы, обеспечивающие работу с Variant.

Процедуры и функции преобразования дат и времени

CurrentYear: Word;

Возвращает полное обозначение (четыре цифры) текущего года.

Date : TDateTime

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

DateOf(const AValue: TDateTime): TDateTime

Выделяет из AValue только часть, связанную датой, обнуляя время.

DateTimeToFileDate(DateTime: TDateTime): Integer

Преобразует дату и время TDateTime в формат операционной системы, ис­пользуемый при задании времени создания и модификации файлов.

DateTimeToSQLTimeStamp(const DateTime: TDateTime): TSQLTimeStamp

Преобразует дату и время TDateTime в формат TSQLTimeStamp .

DateTimeToStr (DateTime: TDateTime): string

Преобразует дату и время DateTime в строку.

DateTimeToString fvar Result: string; const Format: string;

DateTime: TDateTime)

Преобразует DateTime с помощью строки форматирования Format в стро­ку Result.

DateTimeToSystemTime(DateTime: TDateTime;

var SystemTime: TSystemTime)

Преобразует DateTime типа TDateTime в тип TSystemTime . Используемый в API Windows 32.

DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp Преобразует DateTime типа TDateTime в тип TTimeStamp .

DateToStr(Date: TDateTime): string

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

DayOf f(const AValue: TDateTime): Word

Извлекает день месяца из даты AValue типа TDateTime. Идентична функ ции DavOfTheMonth.

DayOfTheMonth f(const AValue: TDateTime): Word

Извлекает день месяца из даты AValue типа TDateTime. Идентична функ­ции DayOf .

DayOfTheWeek(const AValue: TDateTime): Word

Возвращает день недели (1 — понедельник, 7 — воскресенье).

DayOfTheYear(const AValue: TDateTime): Word;

Возвращает число дней между датой AValue и 31 декабря предыдущего года.

DayOfWeek (Date: TDateTime): Integer

Возвращает день неде ли (1 — воскресенье, 7 — суббота).

DaysBetween f(const ANow, AThen: TDateTime): Integer

Возвращает число полных суток между двумя указанными датами ANow и AThen типа TDateTime.

DaysInAMonth(const AYear, AMonth: Word): Word

Возвращает число дней в указанном месяце AMonth в указанном году AYear.

DaysInYear(const AValue: TDateTime): Word

Возвращает число дней в году, к которому относится указанная дата AValue.

DaySpan (const ANow, AThen: TDateTime): Double

Возвращает действительное число, равное числу суток между двумя ука­занными датами ANow и AThen типа TDateTime, учитывая неполные су­тки. В этом отличие данной функции от DaysBetween.

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

Разбивает дату Date на год — Year, месяц — Month и день — Day.

DecodeDateDay(const AValue: TDateTime; out AYear, ADayOfYear: Word)

Возвращает год AYear, к которому относится дата AValue, и число дней ADayOfYear в этом году.

DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day,

DOW: Word): Boolean

Выделяет из даты DateTime год Year, месяц Month, день Day, день недели DOW. Если год високосный, возвращается true.

DecodeDateMonthWeek(const AValue: TDateTime;

out AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word)

Возвращает год AYear, месяц AMonth, неделю месяца AWeekOfMonth, день недели ADayOfWeek (1 — понедельник) даты AValue.

DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay,

AHour, AMinute, ASecond, AMilliSecond: Word)

Возвращает год AYear, месяц AMonth, день ADay, час AHour, минуту AMinute, секунду ASecond, число миллисекунд AMilliSecond указанной даты и времени AValue.

DecodeDateWeek(const AValue: TDateTime;

out AYear, AWeekOfYear, ADayOfWeek: Word)

Возвращает год AYear, неделю года AWeekOfYear и день недели ADayOfWeek (1 — понедельник) указанной даты AValue.

DecodeDayOfWeekInMonth(const AValue: TDateTime;

out AYear, AMonth, ANthDayOfWeek, ADayOfWeek: Word)

Возвращает год AYear, месяц AMonth, который раз ANthDayOfWeek встречается в месяце данный день недели, день недели ADayOfWeek (1 — понедельник).

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

Разбивает время Time на час — Hour, минуту — Min, секунду — Sec, миллисекунду — MSec.

EncodeDate fYear. Month, Day: Word): TDateTime

Объединяет год Year, месяц Month и день Day в значение типа TDateTime.

EncodeDateDay(const AYear, ADayOfYear: Word): TDateTime

Формирует значение TDateTime по заданному году AYear и дню года ADayOfYear .

EncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth: Word;

const ADayOfWeek: Word = 1): TDateTime

Формирует значение TDateTime по заданному году AYear, месяцу AMonth, неделе месяца AWeekOfMonth и дню недели ADayOfWeek.

EncodeDateTime(const AYear, AMonth, ADay, AHour,

AMinute, ASecond, AMilliSecond: Word):TDateTime

Формирует значение TDateTime по заданному году AYear, месяцу AMonth, дню ADay, часу AHour, минуте AMinute, секунде ASecond, мил­лисекунде AMilliSecond.

EncodeDateWeek(const, AWeekOfYear: Word;

const ADayOfWeek: Word =1): TDateTime

Формирует значение TDateTime по заданному году AYear и указанному дню ADayOfWeek указанной недели AWeekOfYear.

EncodeDayOfWeekInMonth(const AYear, AMonth,

ANthDayOfWeek, ADayOfWeek: Word): TDateTime

Формирует значение TDateTime по заданному году AYear, месяцу AMonth, дню недели ADayOfWeek и тому, который раз ANthDayOfWeek

этот день встречается в данном месяце.

EncodcTime (Hour. Min, Sec, MSec: Word): TDateTime

Объединяет час Hour, минуту Min, секунду Sec и миллисекунду MSec

в значение типа TDateTime.

EndOfADay(const AYear, ADayOfYear: Word): TDateTime

Возвращает время окончания указанного дня ADayOfYear указанного года AYear.

EndOfADay(const AYear, AMonth, ADay: Word): TDateTime

Возвращает время окончания указанного дня ADay указанного месяца AMonth указанного года AYear.

EndOfAMonth(const AYear, AMonth: Word): TDateTime

Возвращает время окончания последнего дня указанного месяца AMonth указанного года AYear.

EndOfAWeek(const AYear, AWeekOfYear: Word;

const ADayOfWeek: Word = 7): TDateTime

Возвращает время окончания указанного дня ADayOfWeek указанной не­дели AWeekOfYear указанного года AYear.

EndOfAYear(const AYear): TDateTime

Возвращает время окончания указанного года AYear.

EndOfTheDay(const AValue: TDateTime): TDateTime

Возвращает время окончания указанной даты AValue.

EndOfTheMonth(const AValue: TDateTime): TDateTime

Возвращает время окончания месяца, содержащего указанную дату AValue.

EndOfTheWeek(const AValue: TDateTime): TDateTime

Возвращает время окончания недели, содержащей указанную дату

AValue. EndOfTheYear(const AValue: TDateTime): TDateTime

Возвращает время окончания года, содержащего указанную дату

AValue. FormatDateTime (const Format: string; DateTime: TDateTime): string

Возвращает значение DateTime, преобразованное в строку с помощью стро­ки форматирования Format.

. delphi отображать текущую дату delphi функции даты функция даты и времени паскаль c# преобразовать дату delphi дата и время

DecodeTime — Процедура Delphi

При задании значения даты-времени следует обратить внимание не только на сами значения, но и на знаки препинания. Несущественные части даты-времеи (например, секунды, минуты, часы) можно справа отбросить. В этом случае считается, что соответствующая часть равна нулю. Если в дате-времени отброшено еще и значение года, считается, что имеется в виду текущий год. Обычно тип дата-время используется в параметрах вариантного типа как один из допустимых вариантов, но может использоваться и самостоятельно для фиксации информации о времени.

Примечание. Следует иметь в виду, что при записи года двумя последними цифрами фактический год зависит от текущего года и глобальной переменной заданной в Delphi — TwoDigitYearCenturyWindow. По умолчанию эта переменная имеет значение, равное 50, что означает, что в конце этого столетия и начале следующего задаваемые двумя цифрами годы будут относиться к XX в., если число несколько больше 50, и к XXI в., если число несколько меньше 50.

В модуле SysUtils определен ряд стандартных функции работы с параметрами типа даты-времени.

• Time — текущее время. Функция возвращает текущее значение времени в формате TTime.
• Date — текущая дата. Функция возвращает текущее значение даты в формате TDate.
• Now — текущая дата и время. Функция возвращает текущее значение даты и времени в формате TDateTime.
• DateTimeToStr (DateTime) — символьное представление даты и времени. Функция формирует для параметра DateTime типа TDateTime символьное представление даты и времени с учетом региональной установки Windows и возвращает полученную строку в качестве результата своей работы.
• DateTimeToString (Result, Format, DateTime) — сформатированное символьное представление даты и времени. Процедура формирует символьное представление параметра DateTime типа TDateTime с учетом формата, заданного строкой Format, и помещает результат в строку Result.
• DateToStr (Date) — символьное представление даты. Функция формирует для параметра Date типа TDateTime или TDate символьное представление даты с учетом региональной установки Windows и возвращает полученную строку в качестве результата своей работы.
• DayOfWeek (Date) — день недели. Функция возвращает день недели заданной даты Date типа TDateTime или TDate в виде числа от 1 до 7, причем нумерация начинается с воскресенья.
• TimeToStr (Time) — символьное представление времени. Функция формирует для параметра Time типа TDateTime или TTime символьное представление времени с учетом региональной установки Windows и возвращает полученную строку в качестве результата своей работы.
• DecodeDate (Date, Year, Month, Day) — выделение в дате года, месяца, дня. Процедура выделяет из параметра Date типа TDateTime или TDate год, месяц, день и помещает их соответственно в параметры Year, Month и Day типа Word.
• DecodeTime (Date, Hour, Min, Sec, MSec) — выделение во времени часа, минуты, секунды и числа миллисекунд. Процедура выделяет из параметра Date типа TDateTime или TTime час, минуту, секунду и число миллисекунд и помещает их соответственно в параметры Hour, Min, Sec и MSec типа Word.
• EncodeDate (Year, Month, Day) — формирование даты из компонент. Функция формирует из заданного года, месяца и дня (заданных в параметрах Year, Month, Day) комплексный параметр типа TDateTime и возвращает его как результат работы.
• EncodeTime (Hour, Min, Sec, MSec) — формирование времени из компонент. Функция формирует из заданных часа, минуты, секунды и числа миллисекунд (заданных в параметрах Hour, Min, Sec, MSec) комплексный параметр типа TDateTime и возвращает его как результат работы.
• FormatDateTime (Format, DateTime) — сформатированное символьное представление даты и времени. Функция формирует символьное представление параметра DateTime типа TDateTime с учетом формата, заданного строкой Format, и возвращает полученную строку как результат своей работы.
• StrToDate (S) — преобразование символьного представления даты в тип TDateTime. Функция преобразовывает символьное представление даты, находящееся в строке S, в формат TDateTime или TDate и возвращает полученную величину как результат своей работы. Дата должна быть задана в соответствии с региональной установкой Windows.
• StrToTime (S) — преобразование символьного представления времени в тип TDateTime. Функция преобразовывает символьное представление времени, находящееся в строке S, в формат TDateTime или TTime и возвращает полученную величину как результат своей работы. Время должно быть задано в соответствии с региональной установкой Windows.
• StrToDateTime (S) — преобразование символьного представления даты и времени в тип TDateTime. Функция преобразовывает символьное представление даты и времени, находящееся в строке S, в формат TDateTime и возвращает полученную величину как результат своей работы. Дата и время должны быть заданы в соответствии с региональной установкой Windows.

Обновлять информацию о времени будем, используя таймер, и сделаем возможность запуска/остановки часов. Запускать и останавливать таймер будем следующей процедурой.

Таймер, через определенные интервалы времени, будет получать информацию о дате и времени, выводить ее, и вызывать процедуру рисования аналоговых часов.

А вот и сама процедура рисования аналоговых часов.

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

DecodeDate работает некорректно

Некорректно работает программа
Здравствуйте, прошу помощи в выполнении следующего задания: «Дана последовательность содержащая от.

Программа работает некорректно
После выполнения программы видает ошибку: «Access violation. Write of address. » Задча.

Некорректно работает Делфи
Привет всем, есть проблема, когда открываю проект в делфи, все окна закрываются и остается только.

Delphi работает некорректно
Здравствуйте, у меня возникли некоторые проблемы с Delphi. В течении первого полугодия у меня было.

Некорректно работает программа
Сам код: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes.

DecodeTime Routine

Unit Edit

Description Edit

Definition (Delphi 6, 2007, 2010):

Technical Comments Edit

(Known issues / Documentation clarifications / Things to be aware of)

Examples Edit

(Please provide links to articles/source code that show how to use this item.)

See Also Edit

(Please provide links to items specifically related to this item.)

User Comments/Tips Edit

(Please leave your name with your comment.)

Обработка календарных дат и времени в приложениях. Изучение и применение встроенных функций и процедур и компонентов Delphi для ввода, отображения и вычисления времени и даты

Страницы работы

Фрагмент текста работы

ЛАБОРАТОРНАЯ РАБОТА ПММ-Delphi-05

ОБРАБОТКА КАЛЕНДАРНЫХ ДАТ И ВРЕМЕНИ В ПРИЛОЖЕНИЯХ

Цель работы: изучение и применение встроенных функций и процедур и компонентов Delphi для ввода, отображения и вычисления времени и даты

1. Компоненты ввода даты и времени

В Delphi имеются компоненты, позволяющие вводить, отображать и редактировать числа, даты и время. Их применение более удобно, чем использование компонентов Label и Edit.

(окно ввода дат и времени)

Ввод даты (с выпадающим календарем выбранного месяца) или ввод времени.

Основные свойства — Date и Time.

Ввод дат с выбором из календаря выбранного месяца. Аналогичен

DateTimePicker, но календарь полностью виден на форме

Отображение календаря на указанный месяц. Основные свойства — Month и Day.

Из этих компонентов наиболее удобным является DateTimePicker. Этот компонент может использоваться и для ввода даты (свойство Kind имеет значение dtkDate) и для ввода времени (свойство Kind имеет значение dtkTime). На форме компонент занимает немного места, так как реализует режим появления выпадающего календаря. Это обеспечивает также безошибочный с точки зрения синтаксиса ввод дат и времени.

При вводе дат можно задать свойство DateMode равным dmComboBox — наличие выпадающего календаря, или равным dmUpDown — наличие кнопок увеличения и уменьшения. В последнем случае пользователь может независимо устанавливать с помощью кнопок число, месяц и год. Формат представления дат определяется свойством DateFormat, которое может принимать значения dfShort — краткий формат (например, 01.12.2008), или dfLong — полный формат (например, 1 декабря 2008 г.).

Свойство DateTimePicker.Date можно использовать в программе, причем для преобразования значения свойства в строку можно воспользоваться функцией DateToStr.

Можно задать значения свойств MaxDate и MinDate, определяющих соответственно максимальную и минимальную дату, которую может выбрать пользователь.

В режиме ввода времени dtkTime введенное пользователем значение можно найти в свойстве DateTimePicker.Time, тип которого — тот же рассмотренный выше TDateTime. Преобразовать время в строку можно функцией TimeToStr.

Упражнение 1. Выбор дня текущего месяца с помощью компонента

Дополните проект компонентами DateTimePicker1 и Label3

Свойство Label3.Caption задайте как «Выбрана дата: »

Компонент Label3 будем использовать для отображения даты, выбранной при работе программы с помощью компонента DateTimePicker1. Факту выбора даты соответствует событие OnChange этого компонента. Перейдите к процедуре, обрабатывающей это событие и наберите команду

Procedure TForm1.DateTimePicker1Change(Sender: TObject); begin

‘Выбрана дата: ‘+DateToStr(DateTimePicker1.Date); end;

Проверьте работу программы.

Выберите в инспекторе объектов другие значения свойств DateFormat и DateMode. Как они влияют на вид даты в окне компонента и его работу при запуске программы?

Упражнение 2. Ввод произвольной даты с помощью DateTimePicker и отображение с помощью календаря.

Дополните проект компонентом Calendar (палитра Samples). Выровняйте границы компонента на форме. Календарь показывает дни определенного месяца, если не дополнительных указаний, то это – текущий месяц.

Свойства календаря Day, Month, Year позволяют настроить его содержимое на нужную дату. Для проверки работы этого компонента добавьте в обработчик компонента DateTimePicker1 команды, которые изменяют параметры календаря в соответствии с выбранной датой. При этом отдельно устанавливаются численные значения года, месяца и дня. Для получения этих значений используется процедура DecodeDate. Удобно получаемую от DateTimePicker1 дату сохранить в отдельной переменной типа tDateTime, а значения года, месяца и дня сохранить в переменных целого типа. Тогда процедура – обработчик примет вид

Procedure TForm1.DateTimePicker1Change(Sender: TObject); var

Dt:tDateTime; Y,M,D: Word; begin

Label4.Caption:=’Выбрана дата: ‘+DateToStr(Dt);

Calendar1.Month:=M; Calendar1.Day:=D; end;

2. Ввод текстовой и числовой информации. Компонент ComboBox

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

Замена для EncodeTime или DecodeTime в Delphi Prism

В Delphi Win32 у вас есть функции EncodeTime и DecodeTime для управления данными или переменными DateTime. Существуют ли какие-либо функции, подобные этим в DELPHI Prism? Если нет, как бы вы это сделали?

Например, вы хотели бы добавить две переменные datetime (A и B) вместе, после увеличения B на один день.

Вы должны использовать тип DateTime , этот класс имеет много конструкторов, которые вы можете использовать для кодирования aa datetime.

Пример кодирования DateTime

Чтобы декодировать DateTime, вы должны использовать свойства Year, Month, Day, Minute и Second.

Теперь, чтобы изменить дату добавления дат, лет или другой диапазон, вы можете использовать методы AddYears , AddMonths , AddDays и т.д.

Процедуры Delphi

В процессе программирования на языке Delphi, как и на любом другом языке программирования, основная задача программиста состоит в том, чтобы разработать процедуры (подпрограммы) для обработки определенных событий. Как только это событие возникло, проводится автозапуск процедуры обработки события (если возникло соответствующее событие, Delphi осуществляет вызов процедуры обработки возникшего события). Именно эту процедуру разработчик программы и должен описать.

Главное отличие процедуры от функции состоит в том, что есть связь между именем функции и значением. Таким образом, возможно использование имени функции в разнообразных выражениях. Организация процедуры Delphi по сути ничем не отличается от организации функции.

Как и для функции, в начале каждой процедуры указывают ее заголовок. Затем называют эту процедуру каким-нибудь именем. После имени в скобках следует перечень параметров, заканчивающийся символом «;» и потом уже описывают разделы констант, типов, переменных и инструкций.

Общий вид процедуры Delphi:

Общий вид процедуры Delphi выглядит следующим образом:

В приведенном выше примере, как мы видим, в состав заголовка процедуры сначала входит служебное словоprocedure. Далее за этим ключевым словом следом располагается имя процедуры, использующееся при вызове процедуры, обеспечивая активизацию ее выполнения.

Если процедура обладает какими-либо параметрами, то программист их указывает в скобках, сразу после имени процедуры. В конце заголовка процедуры ставится символ «;». В случае, когда в процедуре имеются именованные константы, программист объявляет их в разделеconst.

Далее за этим разделом идет раздел type, использующийся для объявления типов. После располагается раздел var, содержащий все переменные, которые впоследствии программист использует в своей программе. Затем следует раздел инструкций , которые включает в себя исполняемые инструкции данной процедуры.

Примеры процедуры Delphi:

Приведем пример процедуры Delphi, вычисляющей стоимость некоторой покупки:

Replacement for EncodeTime or DecodeTime in Delphi Prism

In Delphi Win32, you have EncodeTime and DecodeTime functions to manipulate DateTime data or variables. Are there any functions similar to these in DELPHI Prism? If not, How would you do it?

For instance, you wanted to Add two datetime variables (A and B) together, after increasing B by one day.

1 Answer 1

You must use the DateTime type, this class has many constructors which you can use to encode a a datetime.

Example to encode a DateTime

To Decode a DateTime you must use the properties Year, Month, Day, Minute and Second.

Now to modify a Datetime adding days , years or another range you can use the methods AddYears , AddMonths , AddDays and so on.