Delphi 2006. Справочное пособие: Язык Delphi, классы, функции Win32 и .NET. — Архангельский А.Я.
Сформированная строка имеет вид: «6 мая 2005 г. 15:47:11».
Если вам требуется изменить заданные по умолчанию разделители, это можно сделать, воспользовавшись второй формой функции DateTimeToString. Например:
GetLocaleFormatSettings(0, FormatSettings); FormatSettings.DateSeparator := ‘-‘;
DateTimeToString(S, 1dd/mm/yyyy1, Now, FormatSettings);
Этот код сформирует строку вида «06-05-2005» вместо строки «06.05.2005». В коде объявляется переменная записи FormatSettings типа TFormatSettings, в нее заносится функцией GetLocaleFormatSettings информация об установленных форматах, а затем значение поля DateSeparator записи заменяется символом дефиса «-». Измененный формат передается в функцию DateTimeToString. Учтите, что изменения будут действовать, только если вы вторым параметром функции DateTimeToString задаете строку форматирования. Если вы используете в вызове функции DateTimeToString стандартные форматы ShortDateFormat, LongDateFormat и т.п., то ваши изменения символов разделителей не подействуют. В подобных случаях надо изменять сами переменные ShortDateFormat, LongDateFormat и др., а не поля записи TFormatSettings. Впрочем, еще проще — изменить значение локальной переменной DateSeparator:
DateTimeToString(S, ‘dd/mm/yyyy’, Now);
даст то же результат: строку «06-05-2005».
См. также примеры в гл. 9 в разд. «LongTimeFormat, ShortTimeFormat — переменные» и «ShortDateFormat, LongDateFormat — переменные».
Преобразует дату в строку
Библиотеки VCL Win32, VCL .NET
Модуль в VCL Win32 SysUtils
Пространство имен в .NET Borland.Vcl.SysUtils
function DateToStr(Date: TDateTime): string; 988
Глава 12 ¦ Описания функций
Функция DateToStr возвращает строку, отображающую дату, заданную параметром Date типа TDateTime (см. в гл. 9). Формат преобразования определяется глобальной переменной ShortDateFormat. Для русифицированных Windows это обычно формат вида «день.месяц.год».
См. примеры в описании функций Date и Now.
DayOf и другие функции дат и времени вида . Of
Извлекают отдельные составляющие даты и времени
Библиотеки VCL Win32, VCL ..NET
Модуль в VCL Win32 SysUtils
Пространство имен в .NET Borland.VcLSysUtils
function DayOf(const AValue: TDateTime): Word; function DayOfTheMonth(const AValue: TDateTime): Word; function DayOfTheYear(const AValue: TDateTime): Word; function HourOf(const AValue: TDateTime): Word; function HourOfTheDay(const AValue: TDateTime): Word; function MilliSecondOf(const AValue: TDateTime): Word; function MilliSecondOfTheSecond(const AValue: TDateTime): Word; function MinuteOf(const AValue: TDateTime): Word; function MinuteOfTheHour(const AValue: TDateTime): Word; function MonthOf(const AValue: TDateTime): Word; function MonthOfTheYear(const AValue: .TDateTime): Word; function SecondOf(const AValue: TDateTime): Word; function SecondOfTheMinute(const AValue: TDateTime): Word; function YearOf(const AValue: TDateTime): Word;
Функции извлекают из значения AValue типа TDateTime отдельные составляющие даты и времени: год (YearOf), месяц (MonthOf, MonthOfTheYear), день месяца (DayOf, DayOfTheMonth, от 1 до 31), день года (DayOfTheYear, от 1 до 365), час (HourOf, HourOfTheDay), минуту (MinuteOf, MinuteOfTheHour), секунду (SecondOf, SecondOfTheMinute), миллисекунды (MilliSecondOf, MilliSecondOfTheSecond). Наличие пар одинаковых функций с разными именами объясняется стремлением к однозначности и точности имен. Например, день может обозначать день месяца, день недели, день года. В данном случае речь идет о дне месяца. Поэтому соответствующая функция названа DayOfTheMonth, чтобы отличить ее, например, от функции DayOfTheWeek, возвращающей день недели. Аналогичные соображения относятся и к остальным функциям.
См. также функции DecodeDate и DecodeTime, которые позволяют получить те же значения, но не по отдельности, а группами, относящимися к дате и времени.
51 := ‘Сейчас ‘ + IntToStr(YearOf(Now)) + ‘ год’;
52 := ‘Сегодня ‘ + IntToStг (DayOf(Now) ) + ‘-й день ‘ + DayOfTheMonth
IntToStr(MonthOf(Now)) + ‘-го месяца ‘ + IntToStr(YearOf(Now)) + ‘ года’;
заносят в строки Sl и S2 сообщения вида: «Сейчас 2005 год» и «Сегодня 2-й день 8-го месяца 2005 года».
Извлекает день месяца из указанной даты и времени
См. разд. «DayOf и другие функции дат и времени вида . Of».
Определяют день недели Библиотеки VCL Win32, VCL ..NET Модули в VCL Win32 SysUtils1 DateUtils
Пространства имен в .NET Borland.VcLSysUtils, Borland.VcLDateUtils Объявления
В DateUtils и BorlandycLDateUtils:
function DayOfTheWeek(const AValue: TDateTime): Word; B SysUtils и Borland.VcLSysUtils: function DayOfWeek(Date: TDateTime): Integer; Описание
Функции DayOfTheWeek и DayOfWeek возвращают день недели, соответствующий дате, заданной параметром Date типа TDateTime (см. в гл. 9). День возвращается в виде целого числа от 1 до 7. В функции DayOfTheWeek значение 1 соответствует понедельнику, 7 — воскресенью. Это соответствует стандарту ISO 8601. В функции DayOfWeek значение 1 соответствует воскресенью, 7 — субботе. Различаются функции также модулями, в которых они описаны.
Предыдущая 420 421 422 423 424 425 .. 478 >> Следующая
Типы, функции и процедуры Delphi для работы с датой и временем.
Содержание:
Функции и процедуры Delphi для работы с датой и временем.
Тип TDateTime.
Тип TTimeStamp.
Тип TSQLTimeStamp.
Функции и процедуры Delphi для работы с датой и временем.
Наименование | Вид модуль | Описание |
---|---|---|
CheckSqlTimeStamp | процедура SqlTimSt | Проверяет соответствует ли значение TSQLTimeStamp правильной дате и времени. |
CompareDate | функция DateUtils | Сравнивает два значения TDateTime между собой по значению даты. |
CompareDateTime | функция DateUtils | Сравнивает два значения TDateTime между собой. |
CompareTime | функция DateUtils | Сравнивает два значения TDateTime между собой по значению времени. |
CurrentYear | функция SysUtils | Возвращает текущий год. |
Date | функция SysUtils | Возвращает текущую дату. |
DateDelta | константа SysUtils | Определяет различие между значениями TDateTime и TTimeStamp. |
DateOf | функция DateUtils | «Вырезает» значение времени из TDateTime (устанавливает значение времени в 0, что означает полночь). |
DateTimeToFileDate | функция SysUtils | Конвертирует объект TDateTime в формат времени операционной системы. |
DateTimeToSQLTimeStamp | функция SqlTimSt | Конвертирует значение TDateTime в TSQLTimeStamp. |
DateTimeToStr | функция SysUtils | Конвертирует значение TDateTime в строку. |
DateTimeToString | процедура SysUtils | Конвертирует значение TDateTime в строку, используя указаный формат строки. |
DateTimeToSystemTime | процедура SysUtils | Конвертирует значение TDateTime в системное время Win32 API. |
DateTimeToTimeStamp | функция SysUtils | Конвертирует значение TDateTime в соответствующее значение TTimeStamp. |
DateToStr | функция SysUtils | Конвертирует значение даты из TDateTime в строку. |
Day of week | константы DateUtils |
|
DayOf | функция DateUtils | Возвращает день месяца из значения TDateTime. Возвращаемое функцией значение находится в промежутке между 1 и 31. |
DayOfTheMonth | функция DateUtils | Возвращает день месяца из значения TDateTime. Возвращаемое функцией значение находится в промежутке между 1 и 31. |
DayOfTheWeek | функция DateUtils |
|
DayOfTheYear | функция DateUtils | Возвращает количество дней между значением, указаным в TDateTime и 31 Декабря предыдущего года. |
DayOfWeek | функция SysUtils |
|
DaysBetween | функция DateUtils | Возвращает количество полных дней из промежутка времени, заданного двумя значениями TDateTime. |
DaysInAMonth | функция DateUtils | Возвращает количество дней в указаном месяце указаного года. |
DaysInAYear | функция DateUtils | Возвращает количество дней в указаном году. |
DaysInMonth | функция DateUtils | Возвращает количество дней в месяце, заданом в значении TDateTime. |
DaysInYear | функция DateUtils | Возвращает количество дней в году, заданом в значении TDateTime. |
DaySpan | функция DateUtils | Возвращает количество дней, включая дробную часть, из промежутка времени, заданного двумя значениями TDateTime. |
DecodeDate | процедура SysUtils | Возвращает значения Год, Месяц, День для значения TDateTime. |
DecodeDateDay | процедура DateUtils | Возвращает год и день года для значения, указаного в TDateTime. |
DecodeDateFully | функция SysUtils | Возвращает значения Год, Месяц, День, День_Недели для значения TDateTime. |
DecodeDateMonthWeek | процедура DateUtils | Возвращает значения Год, Месяц, Неделя_Месяца, День_Недели для значения TDateTime. |
DecodeDateTime | процедура DateUtils | Возвращает значения Год, Месяц, День, Час, Минута, Секунда, Милисекунда для значения TDateTime. |
DecodeDateWeek | процедура DateUtils | Возвращает значения Год, Неделя_Года, День_Недели для значения TDateTime. |
DecodeDayOfWeekInMonth | процедура DateUtils | Для заданного значения TDateTime возвращает Год, Месяц, День_Недели и Число_Дней_в_Этой_Неделе_для_Этого_Месяца. |
DecodeTime | процедура SysUtils | Разбивает значение TDateTime на часы, минуты, секунды и милисекунды. |
EncodeDate | функция SysUtils | Возвращает значение TDateTime, заданое как Год, Месяц, День. |
EncodeDateDay | функция DateUtils | Возвращает значение TDateTime, заданое как указаный день указаного года. |
EncodeDateMonthWeek | функция DateUtils | Возвращает значение TDateTime, заданое как указаный день указаной недели в указаном месяце и году. |
EncodeDateTime | функция DateUtils | Возвращает значение TDateTime, заданое как Год, Месяц, День, Час, Секунда, Милисекунда. |
EncodeDateWeek | функция DateUtils | Возвращает значение TDateTime, заданое как указаный день указаной недели в указаном году. |
EncodeDayOfWeekInMonth | функция DateUtils | Возвращает значение TDateTime, заданое как положение дня недели в указаном месяце и году. |
EncodeTime | функция SysUtils | Возвращает значение TDateTime, заданое как часы, минуты, секунды и милисекунды. |
EndOfADay | функция DateUtils | Возвращает значение TDateTime которое представляет последнюю милисекнду указаного дня. |
EndOfAMonth | функция DateUtils | Возвращает значение TDateTime которое представляет последнюю милисекнду последнего дня указаного месяца. |
EndOfAWeek | функция DateUtils | Возвращает значение TDateTime которое представляет последнюю милисекнду последнего дня указаной недели. |
EndOfAYear | функция DateUtils | Возвращает значение TDateTime которое представляет последнюю милисекнду последнего дня указаного года. |
EndOfTheDay | функция DateUtils | Возвращает значение TDateTime которое представляет последнюю милисекнду дня, указаного в TDateTime. |
EndOfTheMonth | функция DateUtils | Возвращает значение TDateTime которое представляет последнюю милисекнду последнего дня месяца, указаного в TDateTime. |
EndOfTheWeek | функция DateUtils | Возвращает значение TDateTime которое представляет последнюю милисекнду последнего дня недели, указаной в TDateTime. |
EndOfTheYear | функция DateUtils | Возвращает значение TDateTime которое представляет последнюю милисекнду последнего дня года, указаного в TDateTime. |
FormatDateTime | функция SysUtils | Возвращает значение TDateTime в виде форматной строки. Если форматная строка не задана, то принимается та, которая основана на текущей локализации системы. |
HourOf | функция DateUtils | Возвращает час дня, из значения TDateTime. |
HourOfTheDay | функция DateUtils | Возвращает час дня, из значения TDateTime. |
HourOfTheMonth | функция DateUtils | Возвращает количество часов между указаным в значении TDateTime и 12:00 AM первого дня месяца. |
HourOfTheWeek | функция DateUtils | Возвращает количество часов между указаным в значении TDateTime и 12:00 AM первого дня недели. |
HourOfTheYear | функция DateUtils | Возвращает количество часов между указаным в значении TDateTime и 12:00 AM первого дня года. |
HoursBetween | функция DateUtils | Возвращает количество полных часов между двумя значениями TDateTime. |
HourSpan | функция DateUtils | Возвращает количество часов, включая дробную часть, между двумя значениями TDateTime. |
IncAMonth | процедура SysUtils | Увеличивает дату на один месяц. |
IncDay | функция DateUtils | Возвращает дату, сдвинутую на указаное число дней. |
IncHour | функция DateUtils | Возвращает дату/время, сдвинутую на указаное число часов. |
IncMilliSecond | функция DateUtils | Возвращает дату/время, сдвинутую на указаное число милисекунд. |
IncMinute | функция DateUtils | Возвращает дату/время, сдвинутую на указаное число минут. |
IncMonth | функция SysUtils | Возвращает дату, сдвинутую на указаное число месяцев. |
IncSecond | функция DateUtils | Возвращает дату/время, сдвинутую на указаное число секунд. |
IncWeek | функция DateUtils | Возвращает дату, сдвинутую на указаное число недель. |
IncYear | функция DateUtils | Возвращает дату, сдвинутую на указаное количество лет. |
IsInLeapYear | функция DateUtils | Показывает, принадлежит ли значение, указаное в TDateTime, високосному году. |
IsLeapYear | функция SysUtils | Показывает, является ли указаный год високосным. |
IsPM | функция DateUtils | Показывает, принадлежит ли значение времени, указаное в TDateTime, второй половине дня . |
IsSameDay | функция DateUtils | Показывает, принадлежит ли значение, указаное в TDateTime, заданой дате. |
IsToday | функция DateUtils | Показывает, принадлежит ли значение, указаное в TDateTime, текущей дате. |
IsValidDate | функция DateUtils | Проверяет, являются ли указаные год, месяц и день допустимой датой. |
IsValidDateDay | функция DateUtils | Проверяет, являются ли указаные год и день года допустимой датой. |
IsValidDateMonthWeek | функция DateUtils | Проверяет, являются ли указаные год, месяц, неделя месяца и день недели допустимой датой. |
IsValidDateTime | функция DateUtils | Проверяет, являются ли указаные год, месяц, день, час, минута, секунда и милисекунда допустимыми значениями даты и времени. |
IsValidDateWeek | функция DateUtils | Проверяет, являются ли указаные год, неделя года и день недели допустимой датой. |
IsValidTime | функция DateUtils | Проверяет, являются ли указаные час, минута, секунда и милисекунда допустимыми значениями даты и времени. |
MilliSecondOf | функция DateUtils | Возвращает милисекунды из значения TDateTime. |
MilliSecondOfTheDay | функция DateUtils | Возвращает количество милисекунд, прошедшее между значением указаным в TDateTime и началом этого самого дня. |
MilliSecondOfTheHour | функция DateUtils | Возвращает количество милисекунд, прошедшее между значением указаным в TDateTime и началом этого самого часа. |
MilliSecondOfTheMinute | функция DateUtils | Возвращает количество милисекунд, прошедшее между значением указаным в TDateTime и началом этой самой минуты. |
MilliSecondOfTheMonth | функция DateUtils | Возвращает количество милисекунд, прошедшее между значением указаным в TDateTime и началом месяца. |
MilliSecondOfTheSecond | функция DateUtils | Возвращает милисекунды из значения TDateTime. |
MilliSecondOfTheWeek | функция DateUtils | Возвращает количество милисекунд, прошедшее между значением указаным в TDateTime и 12:00:00:00 AM первого дня недели. |
MilliSecondOfTheYear | функция DateUtils | Возвращает количество милисекунд, прошедшее между значением указаным в TDateTime и 12:00:00:00 AM первого дня года. |
MilliSecondsBetween | функция DateUtils | Возвращает количество милисекунд между двумя значениями TDateTime. |
MilliSecondSpan | функция DateUtils | Возвращает количество милисекунд между двумя значениями TDateTime. Но в качестве результата вместо целого типа испльзуется число с плавающей точкой. |
MinuteOf | функция DateUtils | Возвращает минуты из значения TDateTime. |
MinuteOfTheDay | функция DateUtils | Возвращает количество минут между значением указаным в TDateTime и 12:00 AM того же дня. |
MinuteOfTheHour | функция DateUtils | Возвращает количество минут, прошедшее между значением указаным в TDateTime и началом этого самого часа. |
MinuteOfTheMonth | функция DateUtils | Возвращает количество минут, прошедшее между значением указаным в TDateTime и 12:00 AM первого дня месяца. |
MinuteOfTheWeek | функция DateUtils | Возвращает количество минут, прошедшее между значением указаным в TDateTime и 12:00 AM первого дня недели. |
MinuteOfTheYear | функция DateUtils | Возвращает количество минут, прошедшее между значением указаным в TDateTime и 12:00 AM первого дня года. |
MinutesBetween | функция DateUtils | Возвращает количество полных минут между двумя значениями TDateTime. |
MinuteSpan | функция DateUtils | Возвращает количество минут, включая дробную часть, между двумя значениями TDateTime. |
MonthOf | функция DateUtils | Возвращает месяц года из значения TDateTime. |
MonthOfTheYear | функция DateUtils | Возвращает месяц года из значения TDateTime. |
MonthsBetween | функция DateUtils | Возвращает количество полных месяцев между двумя значениями TDateTime. |
MonthSpan | функция DateUtils | Возвращает количество месяцев, включая дробную часть, между двумя значениями TDateTime. |
MSecsToTimeStamp | функция SysUtils | Конвертирует указаное количество милисекунд в значение TTimeStamp. |
Now | функция SysUtils | Возвращает текущие дату и время. |
NthDayOfWeek | функция DateUtils | Возвращает сколько дней, с таким же порядковым номером дня недели, было в текущем месяце, представленом значением TDateTime. |
NullSQLTimeStamp | константа SqlTimSt | Значение NULL для TSQLTimeStamp. |
OneHour Constant; OneMillisecond Constant; OneMinute Constant; OneSecond Constant | константы DateUtils | Обратные константы времени в модуле Delphi. |
RecodeDate | функция DateUtils | Меняет в TDateTime значение даты на новые значения Год, Месяц, День. В случае неудачи вызывает исключение EConvertError. |
RecodeDateTime | функция DateUtils | Выборочно изменяет в TDateTime значения Год, Месяц, День, Час, Секунда, Милисекунда на заданые. В случае неудачи вызывает исключение EConvertError. |
RecodeDay | функция DateUtils | Меняет значение День месяца в TDateTime на заданое. В случае неудачи вызывает исключение EConvertError. |
RecodeHour | функция DateUtils | Меняет значение Час дня в TDateTime на заданое. В случае неудачи вызывает исключение EConvertError. |
RecodeMilliSecond | функция DateUtils | Меняет значение Милисекунда в TDateTime на заданое. В случае неудачи вызывает исключение EConvertError. |
RecodeMinute | функция DateUtils | Меняет значение Минута часа в TDateTime на заданое. В случае неудачи вызывает исключение EConvertError. |
RecodeMonth | функция DateUtils | Меняет значение Месяц года в TDateTime на заданое. В случае неудачи вызывает исключение EConvertError. |
RecodeSecond | функция DateUtils | Меняет значение Секунда часа в TDateTime на заданое. В случае неудачи вызывает исключение EConvertError. |
RecodeTime | функция DateUtils | Меняет в TDateTime значение времени на новые значения Час, Минута, Секунда, Милисекунда. В случае неудачи вызывает исключение EConvertError. |
RecodeYear | функция DateUtils | Меняет значение Год в TDateTime на заданое. В случае неудачи вызывает исключение EConvertError. |
ReplaceDate | процедура SysUtils | Заменяет значение даты в TDateTime на заданое. |
ReplaceTime | процедура SysUtils | Заменяет значение времени в TDateTime на заданое. |
SameDate | функция DateUtils | Показывает, представляют ли два значения TDateTime тот же самый год, месяц и день. |
SameDateTime | функция DateUtils | Показывает, представляют ли два значения TDateTime те же самые год, месяц, день, час, секунда, милисекунда. |
SameTime | функция DateUtils | Показывает, совпадают ли значения времени в двух значениях TDateTime. |
SecondOf | функция DateUtils | Возвращает количество секунд минуты из значения TDateTime. |
SecondOfTheDay | функция DateUtils | Возвращает количество секунд между значением указаным в TDateTime и 12:00:00 AM того же самого дня. |
SecondOfTheHour | функция DateUtils | Возвращает количество секунд между значением указаным в TDateTime и началом того же самого часа. |
SecondOfTheMinute | функция DateUtils | Возвращает количество секунд между значением указаным в TDateTime и началом той же самой минуты. |
SecondOfTheMonth | функция DateUtils | Возвращает количество секунд между значением указаным в TDateTime и 12:00:00 AM первого дня месяца. |
SecondOfTheWeek | функция DateUtils | Возвращает количество секунд между значением указаным в TDateTime и 12:00:00 AM первого дня недели. |
SecondOfTheYear | функция DateUtils | Возвращает количество секунд между значением указаным в TDateTime и 12:00:00 AM первого дня года. |
SecondsBetween | функция DateUtils | Возвращает количество секунд между двумя значениями TDateTime. |
SecondSpan | функция DateUtils | Возвращает количество секунд, включая дробную часть, между двумя значениями TDateTime. |
SQLDayOfWeek | функция SqlTimSt | Возвращает день недели из значения TSQLTimeStamp. Возвращаемое функцией значение находится в промежутке между 1 и 7, где Воскресение (Sunday) является первым днем недели, а Суббота (Saturday) — седьмым. |
SQLTimeStampToDateTime | функция SqlTimSt | Конвертирует значение TSQLTimeStamp в TDateTime. |
SQLTimeStampToStr | функция SqlTimSt | Конвертирует значение TSQLTimeStamp в строку. |
StartOfADay | функция DateUtils | Возвращает значение TDateTime которое представляет 12:00:00:00 AM указаного дня. |
StartOfAMonth | функция DateUtils | Возвращает значение TDateTime которое представляет 12:00:00:00 AM первого дня указаного месяца. |
StartOfAWeek | функция DateUtils | Возвращает значение TDateTime которое представляет первый момент указаного дня указаной недели. |
StartOfAYear | функция DateUtils | Возвращает значение TDateTime которое представляет первый момент первого дня указаного года. |
StartOfTheDay | функция DateUtils | Возвращает значение TDateTime которое представляет 12:00:00:00 AM дня, заданого значением TDateTime. |
StartOfTheMonth | функция DateUtils | Возвращает значение TDateTime которое представляет 12:00:00:00 AM первого дня месяца, заданого значением TDateTime. |
StartOfTheWeek | функция DateUtils | Возвращает значение TDateTime которое представляет 12:00:00:00 AM первого дня недели, заданой значением TDateTime. |
StartOfTheYear | функция DateUtils | Возвращает значение TDateTime которое представляет 12:00:00:00 AM первого дня года, заданого значением TDateTime. |
StrToDate | функция SysUtils | Конвертирует строку с датой в TDateTime. В случае неудачи вызывает исключение EConvertError. |
StrToDateDef | функция SysUtils | Конвертирует строку с датой в TDateTime со значением по умолчанию в случае ошибки. |
StrToDateTime | функция SysUtils | Конвертирует строку в значение TDateTime. В случае неудачи вызывает исключение EConvertError. |
StrToDateTimeDef | функция SysUtils | Конвертирует строку в значение TDateTime со значением по умолчанию в случае ошибки. |
StrToSQLTimeStamp | функция SqlTimSt | Конвертирует строку в значение TSQLTimeStamp. В случае неудачи вызывает исключение EConvertError. |
StrToTime | функция SysUtils | Конвертирует строку со временем в значение TDateTime. В случае неудачи вызывает исключение EConvertError. |
StrToTimeDef | функция SysUtils | Конвертирует строку со временем в значение TDateTime со значением по умолчанию в случае ошибки. |
SystemTimeToDateTime | функция SysUtils | Конвертирует значение системного времени в значение TDateTime. |
Time | модульные константы SysUtils | Значения констант для вычисления времени. |
Time, GetTime | функции SysUtils | Возвращают текущее время. |
TimeOf | функция DateUtils | Убирает значение даты из значения TDateTime. |
TimeStampToDateTime | функция SysUtils | Конвертирует значение TTimeStamp в соответствующее значение TDateTime. |
TimeStampToMSecs | функция SysUtils | Конвертирует значение TTimeStamp в TTimeStamp в абсолютное число милисекунд. |
TimeToStr | функция SysUtils | Конвертирует значение времени из TDateTime в строку. |
Today | функция DateUtils | Возвращает значение TDateTime, представляющее текущую дату. |
Tomorrow | функция DateUtils | Возвращает значение TDateTime, представляющее следующий день. |
TryEncodeDate | функция SysUtils | Создает значение TDateTime, предсталяющее указаный Год, Месяц, День. В случае неудачи возвращает False. |
TryEncodeDateDay | функция DateUtils | Вычисляет значение TDateTime которое представляет указаный день для указаного года. В случае неудачи возвращает False. |
TryEncodeDateMonthWeek | функция DateUtils | Вычисляет значение TDateTime которое представляет указаный день указаной недели в указаном месяце и году. В случае неудачи возвращает False. |
TryEncodeDateTime | функция DateUtils | Вычисляет значение TDateTime которое представляет указаные год, месяц, день, час, минуту, секунду и милисекунду. В случае неудачи возвращает False. |
TryEncodeDateWeek | функция DateUtils | Вычисляет значение TDateTime которое представляет указаный день указаной недели в указаном году. В случае неудачи возвращает False. |
TryEncodeDayOfWeekInMonth | функция DateUtils | Вычисляет значение TDateTime которое представляет указаный день недели в указаном месяце и году. В случае неудачи возвращает False. |
TryEncodeTime | функция SysUtils | Создает значение TDateTime для заданых значений Час, Минута, Секунда и Милисекунда. В случае неудачи возвращает False. |
TryRecodeDateTime | функция DateUtils | Выборочно меняет значения Год, Месяц, День, Час, Секунда, Милисекунда в указаном TDateTime. В случае неудачи возвращает False. |
TryStrToDate | функция SysUtils | Конвертирует строку с датой в TDateTime. В случае неудачи возвращает False. |
TryStrToDateTime | функция SysUtils | Конвертирует строку в значение TDateTime. В случае неудачи возвращает False. |
TryStrToSQLTimeStamp | функция SqlTimSt | Конвертирует строку в значение TSQLTimeStamp. В случае неудачи возвращает False. |
TryStrToTime | функция SysUtils | Конвертирует строку со временем в значение TDateTime. В случае неудачи возвращает False. |
UnixDateDelta | константа SysUtils | Определяет разницу между значениями TDateTime и TIME_T. Тип TIME_T используется в системах Unix и Lnux, а так же в стандартных библиотеках C. |
WeekOf | функция DateUtils | Возвращает неделю года из значения TDateTime. |
WeekOfTheMonth | функция DateUtils | Возвращает неделю месяца из значения TDateTime. |
WeekOfTheYear | функция DateUtils | Возвращает неделю года из значения TDateTime. |
WeeksBetween | функция DateUtils | Возвращает количество полных недель между двумя значениями TDateTime. |
WeeksInAYear | функция DateUtils | Возвращает количество недель в указаном году. |
WeeksInYear | функция DateUtils | Возвращает количество недель в году из значения TDateTime. |
WeekSpan | функция DateUtils | Возвращает количество недель, включая дробную часть, между двумя значениями TDateTime. |
WithinPastDays | функция DateUtils | Показывает, находятся ли две даты в заданом промежутке дней относительно друг друга. |
WithinPastHours | функция DateUtils | Показывает, находятся ли два значения даты/времени в заданом промежутке часов относительно друг друга. |
WithinPastMilliSeconds | функция DateUtils | Показывает, находятся ли два значения даты/времени в заданом промежутке милисекунд относительно друг друга. |
WithinPastMinutes | функция DateUtils | Показывает, находятся ли два значения даты/времени в заданом промежутке минут относительно друг друга. |
WithinPastMonths | функция DateUtils | Показывает, находятся ли два значения даты/времени в заданом промежутке месяцев относительно друг друга. |
WithinPastSeconds | функция DateUtils | Показывает, находятся ли два значения даты/времени в заданом промежутке секунд относительно друг друга. |
WithinPastWeeks | функция DateUtils | Показывает, находятся ли два значения даты/времени в заданом промежутке недель относительно друг друга. |
WithinPastYears | функция DateUtils | Показывает, находятся ли два значения даты/времени в заданом промежутке лет относительно друг друга. |
YearOf | функция DateUtils | Возвращает Год из значения TDateTime. |
YearsBetween | функция DateUtils | Возвращает приблизительное количество лет между двумя значениями TDateTime. |
YearSpan | функция DateUtils | Возвращает приблизительное количество лет, включая дробную часть, между двумя значениями TDateTime. |
Yesterday | функция DateUtils | Возвращает значение TDateTime которое соответствует предыдущему дню. |
Содержание
Тип TDateTime.
Тип TDateTime — это основной тип в Delphi для работы с датой и временем. Он является числом с плавающей запятой, целая часть которого содержит число дней, отсчитанное от некоторого начала календаря, а дробная часть равна части 24-часового дня, т.е. характеризует время и не относится к дате. Для 32-разрядных версий Delphi за начало календаря принята дата 12/30/1899, 12 часов.
Ниже приведены несколько примеров значения TDateTime и соответсвующие им дата и время:
12/30/1899 12:00 am | |
2.75 | 1/1/1900 6:00 pm |
-1.25 | 12/29/1899 6:00 am |
35065 | 1/1/1996 12:00 am |
Чтобы найти количество дней, включая дробную часть, между двумя датами, просто вычтите два значения, если только одно из них не является отрицательным. Аналогично, если значение 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.
Программа считающая кол-во прожитых дней
Вычисления количества прожитых дней..
Требуеться написать приложение, вычесляющее количество прожитых дней. Пользователь вводит дату.
Программа для подсчета кол-во дней недели в указанном месяце
Доброго времени суток! Не могу понять, как сделать прогу, которая будет считать кол-во указанных.
Программа, считающая численное дифференцирование
Добрый день! Срочно нужна помощь в написании данной программы. Там возможно только ошибка в.
Программа считающая год зодиака.
Написал программу которая выводить на экран ваш знак зодиака. Нужна помощь в дополнении что бы.
Программа считающая количество символов в строке
Помогите написать программу, которая будет считать количество символов в строке, вводимых с.
Функции Delphi модуля DateUtils
Предлагаем список функций модуля DateUtils , используемого в среде разработки Delphi.
Модуль DateUtils
DayOfTheMonth Дает день месяца для значения TDateTime (ISO 8601)
DayOfTheWeek Возвращает индекс дня недели для значения TDateTime (ISO 8601)
DayOfTheYear Выдает день года для значения TDateTime (ISO 8601)
DaysBetween Выдает целый число дней между 2 датами
DaysInAMonth Выдает число дней в месяце
DaysInAYear Выдает число дней в году
DaySpan Выдает дробное число дней между 2 датами
EncodeDateTime Формирует значение TDateTime из значений времени и дня
EndOfADay Генерирует значение TDateTime, установленное на самый конец дня
EndOfAMonth Генерация значения TDateTime, установленное на самый конец месяца
IncDay Приращивает переменную типа TDateTime на + или — число дней
IncMillisecond Приращивает переменную типа TDateTime на + или — число миллисекунд
IncMinute Приращивает переменную типа TDateTime на + или — число минут.
IncSecond Приращивает переменную типа TDateTime на + или — число секунд
IncYear Увеличивает TDateTime переменную на количество лет
RecodeDate Изменяет только дату переменной TDateTime
RecodeTime Изменяет только время переменной TDateTime
Tomorrow Возвращает дату завтрашнего дня
MonthOfTheYear Выдает месяц года для значения TDateTime
Yesterday Выдает вчерашнюю дату
Функции Delphi модуля DateUtils : 3 комментария
Давно искала подобное, спасибо очень интересно!
DayOfTheMonth — Функция Delphi
Профиль
Группа: Участник
Сообщений: 207
Регистрация: 4.10.2005
Где: Красноярск
Репутация: 1
Всего: 1
Romikgy |
|
|
Bima |
|
|
Код |
int CurNumber; //Текущий день int CurMonth; //Текущий месяц int CurYear; //Текущий год TDateTime dt; dt=Now(); CurNumber=StrToInt(FormatDateTime(«d», dt)); CurMonth=StrToInt(FormatDateTime(«mm», dt)); CurYear=StrToInt(FormatDateTime(«yyyy», dt)); Label1->Caption=CurNumber; Label2->Caption=CurMonth; Label3->Caption=CurYear; |
Чтобы дойти до цели, надо идти.
Клавиатура и мышь — это главные инструменты прогресса.
AntonChik |
|
|
BreakPointMAN |
|
||||||||||||||||||||||||||||||||||||||||
Цитата(«Архангельский А.Я. ‘Cправка по C++Builder’ @ Версия 1.2») |
Функции дешифрации дат и времени Заголовочный файл DateUtils.hpp |
#include
extern PACKAGE Word __fastcall DayOf(
const System::TDateTime AValue);
extern PACKAGE Word __fastcall DayOfTheMonth(
const System::TDateTime AValue);
extern PACKAGE Word __fastcall HourOf(
const System::TDateTime AValue);
extern PACKAGE Word __fastcall HourOfTheDay(
const System::TDateTime AValue);
extern PACKAGE Word __fastcall MilliSecondOf(
const System::TDateTime AValue);
extern PACKAGE Word __fastcall MilliSecondOfTheSecond(
constTDateTime AValue);
extern PACKAGE Word __fastcall MinuteOf(
const System::TDateTime AValue);
extern PACKAGE Word __fastcall MinuteOfTheHour(
const System::TDateTime AValue);
extern PACKAGE Word __fastcall MonthOf(
const System::TDateTime AValue);
extern PACKAGE Word __fastcall MonthOfTheYear(
const System::TDateTime AValue);
extern PACKAGE Word __fastcall SecondOf(
const System::TDateTime AValue);
extern PACKAGE Word __fastcall SecondOfTheMinute(
const System::TDateTime AValue);
extern PACKAGE Word __fastcall YearOf(
const System::TDateTime AValue);
Описание
Функции извлекают из значения AValue типа TDateTime отдельные составляющие даты и времени: год (YearOf), месяц (MonthOf, MonthOfTheYear
), день месяца (DayOf, DayOfTheMonth), час (HourOf, HourOfTheDay), минуту (MinuteOf, MinuteOfTheHour), секунду (SecondOf, SecondOfTheMinute
), миллисекунды (MilliSecondOf, MilliSecondOfTheSecond). Наличие пар одинаковых функций с разными именами объясняется стремлением к однозначности и точности имен. Например, день может обозначать день месяца, день недели, день года. В данном случае речь идет о дне месяца. Поэтому соответствующая функция названа DayOfTheMonth, чтобы отличить ее, например, от функции DayOfTheWeek, возвращающей день недели. Аналогичные соображения относятся и к остальным функциям.
См. также функции DecodeDate и DecodeTime, которые позволяют получить те же значения, но не по отдельности, а группами, относящимися к дате и времени.
ShowMessage(«Сейчас » + IntToStr(YearOf(Now())) +
» год»);
ShowMessage(«Сегодня » + IntToStr(DayOf(Now())) +
«-й день » +
IntToStr(MonthOf(Now())) + «-го месяца » +
IntToStr(YearOf(Now())) + » года»);
DayOfTheMonth Routine
Description
(Please provide a description in your own words. It is illegal to use the wording from the Delphi Help.)
Technical Comments
(Known issues / Documentation clarifications / Things to be aware of)
Examples
(Please provide links to articles/source code that show how to use this item.)
See Also
(Please provide links to items specifically related to this item.)
User Comments/Tips
(Please leave your name with your comment.)
Функции и процедуры Delphi. Справочник.
Функция NewItem (
const ACaption: string;
AShortCut: TShortCut;
AChecked: Boolean;
AEnabled: Boolean;
AOnClick: TNotifyEvent;
hCtx: Word;
const AName: string ): TMenuItem
type TShortCut = Low(Word) .. High(Word);
TNotifyEvent = procedure (Sender: TObject) of object;
Описание
Функция, во время выполнения программы, создает пункт меню и инициализирует его.
Текст пункта меню передается в параметре ACaption.
Параметр AShortCut определяет комбинацию «горячих» клавиш для быстрого вызова пункта меню. Значение для данного параметра можно получить с помощью функций ShortCut и TextToShortCut.
Параметр AChecked указывает, появится ли пункт меню с галочкой или же без нее.
Параметр AEnabled определяет, будет доступен или заблокирован пункт меню.
Параметр AOnClick определяет обработчик события OnClick (событие OnClick происходит при выборе пользователем пункта меню).
Параметр hCtx — идентификатор контекста справки.
Параметр AName — имя пункта меню, которое будет использоваться в коде программы.
Созданный пункт меню может быть добавлен к массиву элементов меню. Результат функции может быть использован в качестве параметров функции NewMenu для создания меню, функции NewPopupMenu для создания всплывающего меню, или функции NewSubMenu для создания подменю.
По завершению использования пункта меню, созданного динамически с помощью функции NewItem, необходимо высвободить память, выделенную при вызове функции NewItem. Методы Delete и Remove объекта в данном случае не будут приводить к высвобождению памяти.
Items: array[0..2] of TMenuItem;
Item: TMenuItem;
Key: TShortCut;
Items[0]:= NewItem(‘Пункт1’, Key, false, true, N1click, 0, ‘MenuItem1’);
Items[2]:= NewItem(‘Пункт2’, 0, false, true, N2click, 0, ‘MenuItem2’);
Дата и время в Delphi
Прежде чем использовать в Дельфи функции преобразования дат и времени советую подключить DateUtils
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, DateUtils, ComCtrls;
Вот пример того, что у меня получилось с некоторыми функциями:
Код программы:
//вывод текущей даты
procedure TForm1.Button1Click(Sender: TObject);
//вывод текущей даты
procedure TForm1.FormCreate(Sender: TObject);
StatusBar1.Panels[0].Text:=’Тестовая програмка на фунции дат и времени’;
//вывод текущей даты и времени
procedure TForm1.Button2Click(Sender: TObject);
//день недели
procedure TForm1.Button3Click(Sender: TObject);
DayOfTheMonth — Функция Delphi
Обычно, когда нам требуется получить текущую дату на Delphi, мы, сильно не задумываясь, используем очень знакомую нам функцию «Now«:
В результате мы получим текущую дату, т.е. сегодняшнюю: 20.09.2013
А что нам делать, если требуется программно вывести только текущий день или месяц или год? А если необходимо рассчитать количество дней в году? Конечно, многие уже немного опытные новички сразу же прибегнут к функции copy и будут извлекать из полученной нами ранее строки Label1 первые два символа, как сегодняшний день, третий и четвертый — месяц и т.д. Согласитесь, это немного кропотливая работа, особенно, если еще и учитывать, что первые десять дней месяца имеют не два символа, а один (например: не 05.07.2007, а 5.07.2007).
Друзья мои, хватит загружать свою голову и давайте избегать подобные проблемы легко и просто!Предлагаю вам познакомиться со стандартным модулем DateUtils, который предоставляет множество функции для работы с датами.
DayOfTheMonth | Дает день месяца для значения TDateTime (ISO 8601) |
DayOfTheWeek | Возвращает индекс дня недели для значения TDateTime (ISO 8601) |
DayOfTheYear | Выдает день года для значения TDateTime (ISO 8601) |
DaysBetween | Выдает целое число дней между 2 датами |
DaysInAMonth | Выдает число дней в месяце |
DaysInAYear | Выдает число дней в году |
DaySpan | Выдает дробное число дней между 2 датами |
EncodeDateTime | Формирует значение TDateTime из значений времени и дня |
EndOfADay | Генерирует значение TDateTime, установленное на самый конец дня |
EndOfAMonth | Генерация значения TDateTime, установленное на самый конец месяца |
IncDay | Приращивает переменную типа TDateTime на + или — число дней |
IncMillisecond | Приращивает переменную типа TDateTime на + или — число миллисекунд |
IncMinute | Приращивает переменную типа TDateTime на + или — число минут. |
IncSecond | Приращивает переменную типа TDateTime на + или — число секунд |
IncYear | Увеличивает TDateTime переменную на количество лет |
MonthOfTheYear | Выдает месяц года для значения TDateTime |
RecodeDate | Изменяет только дату переменной TDateTime |
RecodeTime | Изменяет только время переменной TDateTime |
Tomorrow | Возвращает дату завтрашнего дня |
Yesterday | Выдает вчерашнюю дату |
Ну теперь в нашем случае поступаем следующим образом:
Функции Delphi
Стандартные функции Delphi:
Для проведения всевозможных математических вычислений и многочисленных преобразований язык программирования Delphi содержит библиотеки стандартных процедур и функций. Давайте подробнее рассмотрим стандартные функции Delphi.
Между значением и именем функции существует зависимость. Поэтому всякая функция может быть представлена как операнд некоторого выражения (к примеру, в инструкции присваивания). Для возведения числа в n-ую степень достаточно записать
откуда ln — функция, вычисляющая натуральный логарифм числа exp(x), exp — функция, вычисляющая экспоненту в степени x, x — число, n-ую степень которого надо найти, а n — степень числа x. Каждая функция обладает следующими характеристиками: тип значений, тип параметров.
Должно существовать соответствие между типом переменной (ей присваивается определенное значение функции) и типом функции. И в то же время необходимо соответствие между типом фактического параметра данной функции (фактический параметр — это параметр, который указывается при обращении к функции) и типом формального параметра. В противном случае компилятором выводится сообщение об ошибке.
Математические функции Delphi:
Библиотеки языка Delphi включаются в себя и множество математических функций:
Величину угла при использовании тригонометрических функций необходимо выражать в радианах. Чтобы преобразовать угол из градусов в радианы, используйте следующую формулу:
где a выражает угол в градусах; 3.1415926 означает число pi. На месте константы 3.1415926 с дробной частью для достижения большей точности чаще всего пользуются стандартной именованной константой pi. Тогда выражения для угла в пересчете в радианы будет выглядеть следующим образом:
Функции преобразования Delphi:
Наиболее частое использование функций преобразования связано с инструкциями, которые обеспечивают ввод/вывод какой-либо информации. Например, для вывода значения переменной c типом real в поле вывода диалогового окна (компонент Label), нужно провести преобразование числа в строку символов, которая собственно изображает данное число. Это можно достичь, применяя функцию FloatToStr, которая заменяет значение выражения (оно указано как параметр функции) его строковым представлением.
Пример.
В приведенном примере значение переменной m будете выведено в поле Label. В таблице ниже Вам будут представлены основные функции преобразования Delphi:
Применение функций Delphi:
В любом выражении функция используется как операнд. В качестве ее параметра можно выбрать переменную, константу, выражение определенного типа данных.
Примеры.
Структура функции Delphi
Как организована инструкция функции в языке Delphi? В любом языке программирования на первом этапе описания функции указывается ее заголовок. Далее за заголовком программист описывает раздел объявления констант const (если таковы имеются), затем занимается описанием раздела объявления типов type, далее следует раздел объявления переменных var и, наконец, раздел инструкций.
В приведенном примере в заголовке функции вначале указывается зарезервированное слово function, а следом идет имя функции. Далее в скобках программист перечисляет список параметров, и вслед за ним, используя символ «:», указывает тип значения функции. В конце каждого заголовка стоит символ «;». После заголовка следуют раздел констант, раздел типов, раздел переменных. Внутри раздела инструкций кроме констант и переменных, описанных соответственно в разделах const и var, может находится переменная result.
Когда инструкции функции завершат свое выполнение, значению переменной result присваивается значение функции. Таким образом, среди всех инструкций функций необходимое присутствие инструкции, которая бы присваивала переменной result окончательное значение функции. Обычно подобная инструкция есть последняя исполняемая инструкция функции. Представим пример функции FuntToKg, преобразующей фунты в килограммы.