Робота з системним часом. Тип даних TDateTime.

Тип TDateTime Стандартный тип дата-время - TDateTime, определенный в модуле System, представляет собой вещественное число типа Double, целая часть которого задает число дней (в том числе и отрицательное), прошедших с 30 декабря 1899 г., а дробная часть - прошедшую долю текущего дня. Так, дает 1 января 1996 г., Следует иметь в виду, что символьное представление даты-времени определяется региональной установкой Windows.

Процедуры и функции работы с датой и временем Time - текущее время. Функция возвращает текущее значение времени в формате TTime. Date - текущая дата. Функция возвращает текущее значение даты в формате TDate. Now - текущая дата и время. Функция возвращает текущее значение даты и времени в формате TDateTime. DateTimeToStr(DateTime) - символьное представление даты и времени. Функция формирует для параметра DateTime типа TDateTime символьное представление даты и времени с учетом региональной установки Windows и возвращает полученную строку в качестве результата своей работы. DateTimeToString(Result, Format, DateTime) - сформатированное символьное представление даты и времени. Процедура формирует символьное представление параметра DateTime типа TDateTime с учетом формата, заданного строкой Format, и помещает результат в строку Result.

Процедуры и функции работы с датой и временем procedure TForm1.Button1Click(Sender: TObject); const DateTimeFormat: array[1..30] of string =( 'd', 'dd', 'ddd', 'dddd', 'ddddd', 'dddddd', 'e', 'ee', 'm', 'mm', 'mmm', 'mmmm', 'yy', 'yyyy', 'h', 'hh', 'n', 'nn', 's', 'ss', 'z', 'zzz', 't', 'tt', 'am/pm', 'a/p', 'dd.mm.yy hh:mm:ss', 'am/pmhh:mm:ss dd.mm.yyyy', 'dd.mmm.yyyy', 'dd mmmm yyyy' ); var i: integer; s, str: string; dt: TDateTime; begin dt := Now; for i := 1 to 30 do begin DateTimeToString( s, DateTimeFormat[i], dt ); str := str + s + #13; end; ShowMessage( str ); end;

Процедуры и функции работы с датой и временем DateToStr(Date) - символьное представление даты. Функция формирует для параметра Date типа TDateTime или TDate символьное представление даты с учетом региональной установки Windows и возвращает полученную строку в качестве результата своей работы. procedure TForm1.Timer1Timer(Sender: TObject); var MyDate: TDate; begin MyDate := Date; Form1.Caption := DateToStr( MyDate ); end; TimeToStr(Time) - символьное представление времени. Функция формирует для параметра Time типа TDateTime или TTime символьное представление времени с учетом региональной установки Windows и возвращает полученную строку в качестве результата своей работы. procedure TForm1.Timer1Timer(Sender: TObject); var MyTime: TTime; begin MyTime := Time; Form1.Caption := TimeToStr( MyTime ); end;

Процедуры и функции работы с датой и временем DayOfWeek(Date) - день недели. Функция возвращает день недели заданной даты Date типа TDateTime или TDate в виде числа от 1 до 7, причем нумерация начинается с воскресенья. 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.

Пример работы с датой и временм Прежде чем использовать функции преобразования дат и времени рекомендуется подключить модуль DateUtils. uses … DateUtils; //вывод текущей даты procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=DateTostr(Date); end;

Пример работы с датой и временм //вывод текущего времени procedure TForm1.Button2Click(Sender: TObject); begin Label3.Caption:=TimeToStr(Time); end; //день недели procedure TForm1.Button3Click(Sender: TObject); Var x:Word; begin x:= DayOfWeek(Date); Case x of 1: Label4.Caption:='воскресенье'; 2: Label4.Caption:='понедельник'; 3: Label4.Caption:='вторник'; 4: Label4.Caption:='среда'; 5: Label4.Caption:='четверг'; 6: Label4.Caption:='пятница'; 7: Label4.Caption:='суббота'; end; end;

Пример работы с датой и временм //день месяца procedure TForm1.Button4Click(Sender: TObject); begin Label5.Caption:=IntToStr(DayOfTheMonth(Date)); end; //номер дня в году procedure TForm1.Button5Click(Sender: TObject); begin Label6.Caption:=IntToStr(DayOfTheYear(Date)); end; //высокосный год procedure TForm1.Button6Click(Sender: TObject); Var Year,Month,Day,DOW: Word; begin if (DecodeDateFully(Date(),Year,Month,Day,DOW))=true then Label7.Caption:='год высокосный' else Label7.Caption:='год не высокосный'; end;

Пример работы с датой и временм //вывод месяца procedure TForm1.Button7Click(Sender: TObject); Var y:Word; begin y:= MonthOfTheYear(Date); Case y of 1: Label8.Caption:='январь'; 2: Label8.Caption:='февраль'; 3: Label8.Caption:='март'; 4: Label8.Caption:='апрель'; 5: Label8.Caption:='май'; 6: Label8.Caption:='июнь'; 7: Label8.Caption:='июль'; 8: Label8.Caption:='август'; 9: Label8.Caption:='сентябрь'; 10: Label8.Caption:='октябрь'; 11: Label8.Caption:='ноябрь'; 12: Label8.Caption:='декабрь'; end; end; //часы procedure TForm1.Timer1Timer(Sender: TObject); begin Label9.Caption:=TimeToStr(Time); end;

Компонент: DateTimePicker DateTimePicker Компонент DateTimePicker очень эффектен за счет появления выпадающего календаря и обеспечивает безошибочный с точки зрения синтаксиса ввод дат и времени. Его свойство Kind определяет режим работы компонента: dtkDate ввод даты, dtkTime ввод времени. При вводе дат можно задать свойство DateMode равным dmComboBox наличие выпадающего календаря, или равным dmUpDown наличие кнопок увеличения и уменьшения. Формат представления дат определяется свойством DateFormat, которое может принимать значения dfShort краткий формат ( ), или dfLong полный формат (1 декабря 1999 г.). Значение даты можно задать и считать в свойстве Date. При чтении Date надо учитывать тип этого свойства TDateTime Memol.Lines.Add('Дата: ' + DateToStr (DateTimePicker1.Date)); В режиме ввода времени dtkTime введенное пользователем значение можно найти в свойстве Time, тип которого TDateTime. Преобразовать время в строку можно функцией TimeToStr.

Компонент: MonthCalendar MonthCalendar В компоненте MonthCalendar предусмотрены некоторые дополнительные возможности: можно допустить множественный выбор дат в некотором диапазоне (свойство MultiSelect), можно указывать в календаре номера недель с начала года (свойство WeekNumbers), перестраивать календарь, задавая первый день каждой недели (свойство FirstDayOfWeek). Компонент: Calendar В компоненте Calendar вместо свойства Date в нем предусмотрены отдельные свойства Year -год, Month месяц, Day день (целые числа). Перед отображением на экране или в процессе проектирования надо задать значения Month и Year, чтобы компонент отобразил календарь на указанный месяц указанного года. В этом случае по умолчанию будет показан календарь на текущий месяц с выделенным в нем текущим днем. Свойство StartOfWeek задает день, с которого начинается неделя. По умолчанию задано 0 воскресенье, как это принято в западных календарях.