Ивт-20 / САОД и др / ОЗО_2010-САОД_2 / Демо_Проекты / Дата_Время_Demo / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Label2: TLabel;
GroupBox1: TGroupBox;
Edit1: TEdit;
B1: TButton;
B3: TButton;
Edit2: TEdit;
B4: TButton;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit6: TEdit;
Label5: TLabel;
Edit7: TEdit;
Edit8: TEdit;
Label6: TLabel;
Label7: TLabel;
B2: TButton;
B6: TButton;
Timer1: TTimer;
GroupBox2: TGroupBox;
Button6: TButton;
Button7: TButton;
Edit9: TEdit;
Label8: TLabel;
Edit10: TEdit;
Label9: TLabel;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Button8: TButton;
Button9: TButton;
Edit14: TEdit;
Label13: TLabel;
Label14: TLabel;
Button10: TButton;
Edit15: TEdit;
Button11: TButton;
B5: TButton;
Button13: TButton;
procedure B1Click(Sender: TObject);
procedure B4Click(Sender: TObject);
procedure B2Click(Sender: TObject);
procedure B3Click(Sender: TObject);
procedure B6Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure B5Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

procedure FillDate;
procedure FillTime;

var
Form1: TForm1;
Year,Month,Day:Word;
Hour,Min,Sec,SS:Word;
D,D1:TDateTime;
T:TTime;
N:Word;
T1:Integer;
Ind:Integer;//индикатор секундомер 1 часы 2
implementation

uses Unit2;

{$R *.DFM}
// ***************************************************************
// **************процедуры пользователя **************************
//****************************************************************

procedure FillDate;// заполнение значений для даты
begin
Form1.Edit1.Text:=DateToStr(D);//текущая дата в формате даты
Form1.Edit2.Text:=IntToStr(N);
DecodeDate(D,Year,Month,Day); // преобразование даты в числа - Year,Month,Day
Form1.Edit3.Text:=IntToStr(Year);
Form1.Edit4.Text:=IntToStr(Month);
Form1.Edit5.Text:=IntToStr(Day);
Form1.Edit6.Text:=IntToStr(DayOfWeek(D-1)); // день недели
Form1.Edit7.Text:=FormatDateTime('mmmm',D); // вывод месяца по шаблону 'mmmm'
Form1.Edit8.Text:=FormatDateTime('dddd',D); // вывод дня недели по шаблону 'dddd'
end;

procedure FillTime; // заполнение значений для времени
begin
Form1.Edit9.Text:=TimeToStr(T);//текущее время в формате время
Form1.Edit10.Text:=FloatToStr(T);
// преобразование время в числа - Hour,Min,Sec,SS
DecodeTime(T,Hour,Min,Sec,SS);
Form1.Edit11.Text:=IntToStr(Hour);
Form1.Edit12.Text:=IntToStr(Min);
Form1.Edit13.Text:=IntToStr(Sec);
end;

//****************************************************************

procedure TForm1.B1Click(Sender: TObject);
// текущая
begin
D:=02/08/2006;
// D:= Date;// вещественное число в формате даты-время
N:=Trunc(Date);//Выделение целой части числа
Edit1.Text:=DateToStr(D);//текущая дата в формате даты
Edit2.Text:=IntToStr(N);
FillDate; // вызов процедуры
end;

procedure TForm1.B4Click(Sender: TObject);
// Очистка даты
begin
Edit2.Text:=''; Edit1.Text:=''; Edit3.Text:=''; Edit4.Text:='';
Edit5.Text:=''; Edit6.Text:=''; Edit7.Text:=''; Edit8.Text:=''
end;

procedure TForm1.B2Click(Sender: TObject);
// увеличение даты на на 1 ( день)
begin
D:=D+1;N:=N+1;
FillDate;
end;

procedure TForm1.B5Click(Sender: TObject);
// Ввод Даты
begin
D:=StrToDate(Edit1.Text);
FillDate;
end;

procedure TForm1.B3Click(Sender: TObject);
//ввод числа
begin
if Edit2.Text <> '' then
begin
N:=StrToInt(Edit2.Text);
D:=N;
Edit1.Text:=DateToStr(D);
FillDate;
end;
end;

procedure TForm1.B6Click(Sender: TObject);
// Вызов календаря
begin
Form2.Show;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button7Click(Sender: TObject);
// текущеее время
begin
Ind:=0;
T:=Time;
Edit9.Text:=TimeToStr(D);// перевод время - строка
Edit10.Text:=FloatToStr(T);
Edit14.Text:=''; Edit15.Text:='';
FillTime;
end;

procedure TForm1.Button8Click(Sender: TObject);
//Очиска времени
begin
Edit9.Text:=''; Edit10.Text:=''; Edit11.Text:=''; Edit12.Text:='';
Edit13.Text:='';Edit14.Text:=''; Edit15.Text:='';
end;

procedure TForm1.Button9Click(Sender: TObject);
// увеличение на 1 сек
begin
T:=T+0.00001;
FillTime;
end;

procedure TForm1.Button10Click(Sender: TObject);
// Секундомер
begin
Ind:=1;
T1:=0;
Edit14.Text:='';
Timer1.Interval:=1000;// Установка длительности такта ( тика ) в милисекундах
Timer1.Enabled:=True; // Запуск таймера
end;

procedure TForm1.Timer1Timer(Sender: TObject);
// обработка события "по тику - времени "
begin
T1:=T1+1;// для изменения числа тиков ( секунд )
D1:=Now;// текущее время
case Ind of // выбор 1 секунды 2 время
1:begin Edit14.Text:=IntToStr(T1);Edit15.Text:='';end;
2:begin Edit15.Text:=TimeToStr(D1);Edit14.Text:='';end;
end;
end;

procedure TForm1.Button11Click(Sender: TObject);
// Часы
begin
Ind:=2;
Edit15.Text:='';
Timer1.Enabled:=True;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
Timer1.Interval:=3000;
Timer1.Enabled:=True;
end;

end.