Прежде чем использовать в Дельфи функции преобразования дат и времени советую подключить DateUtils
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, DateUtils, ComCtrls;
Вот пример того, что у меня получилось с некоторыми функциями:
Код программы:
//вывод текущей даты
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 дата и время как в делфи вывести время как перевести месяц в год на делфи з датою в Delphi в Uses показать дата в делфи