Дата и время в Delphi

Прежде чем использовать в Дельфи функции преобразования дат и времени советую подключить DateUtils

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, DateUtils, ComCtrls;

Вот пример того, что у меня получилось с некоторыми функциями:

Дата и время в Delphi

Код программы:

//вывод текущей даты

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption:=DateTostr(Date);

end;

//вывод текущей даты

procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.Caption:=’Сегодня ‘ + DateToStr(Date);

StatusBar1.Panels[0].Text:=’Тестовая програмка на фунции дат и времени';

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:=Variant(DayOfTheMonth(Date));

end;

//номер дня в году

procedure TForm1.Button5Click(Sender: TObject);

begin

Label6.Caption:=Variant(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;

В итоге:

Дата и время в Delphi

Все процедуры и функции преобразования скоро добавлю в справочники.

. показать дата в делфи
. время на делфи
Комментирование и размещение ссылок запрещено.