Ивт-20 / САОД и др / ОЗО_2010-САОД_1 / Демо_Проекты / Дата_Время_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.