ДАТА и ВРЕМЯ... (Page 1 of 2)

procedure Form1_DateTimePicker2_OnChange (Sender: string);
begin
    if Form1.DateTimePicker1.Checked and Form1.DateTimePicker2.Checked then
    begin
        Form1.Edit1.Text := FormatDateTime('ddmmyyyyhhnnss', Frac(Form1.DateTimePicker1.DateTime) + Trunc(Form1.DateTimePicker2.DateTime) );
    end else Form1.Edit1.Clear;
end;

procedure Form1_DateTimePicker1_OnChange (Sender: string);
begin
    if Form1.DateTimePicker1.Checked and Form1.DateTimePicker2.Checked then
    begin
        Form1.Edit1.Text := FormatDateTime('ddmmyyyyhhnnss', Frac(Form1.DateTimePicker1.DateTime) + Trunc(Form1.DateTimePicker2.DateTime) );
    end else Form1.Edit1.Clear;
end;

procedure Form2_Edit1_OnChange (Sender: string);
var
    s: string;
    YY, MM, DD: string;
    HH, MIN, SEC: string;
    dt: TDateTime;
    WDay: integer;
begin
    s := Form2.Edit1.Text;
    if Length(s)=14 then
    begin
        DD := Copy(s, 1, 2);
        MM := Copy(s, 3, 2);
        YY := Copy(s, 5, 4);

        HH := Copy(s, 9, 2);
        MIN := Copy(s, 11, 2);
        SEC := Copy(s, 13, 2);

        try
            dt := Trunc(EncodeDate( StrToInt(YY),StrToInt(MM),StrToInt(DD) )) + Frac(EncodeTime( StrToInt(HH),StrToInt(MIN),StrToInt(SEC), 0 ));
            Form2.DateTimePicker1.DateTime := Frac(dt);
            Form2.DateTimePicker2.DateTime := Trunc(dt);
            Form2.Edit1.Color := clWhite;

            WDay := DayOfWeek(Form2.DateTimePicker2.Date)-1;
            if WDay = 0 then Form2.ComboBox1.ItemIndex := 7 else Form2.ComboBox1.ItemIndex := WDay;
        except
            Form2.DateTimePicker1.Checked := False;
            Form2.DateTimePicker2.Checked := False;
            Form2.Edit1.Color := clRed;
            Form2.ComboBox1.ItemIndex := 0;
        end;
    end else
    begin
        Form2.DateTimePicker1.Checked := False;
        Form2.DateTimePicker2.Checked := False;
        Form2.Edit1.Color := clWhite;
    end;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
sDate: String;
{..........................}
begin
{..........................}
sDate:=('2016.10.03 11:11:11');
sDate:= '"'+ FormatDateTime('yyyy-MM-DD hh:nn:ss.000',StrToDateTime(m))+ '"';
SQLExecute ('INSERT INTO AAA (mydata) VALUES (''' + sDate + ''');');
end;

var
   Timer: TTimer;
   iTimer: integer;

procedure Form1_OnShow (Sender: string; Action: string);
begin
     Timer := TTimer.Create(nil); // create timer
     Timer.OnTimer := @OnTimer;  // event procedure
     Timer.Interval := 1000; // 5 sec
     Timer.Enabled := True;  // Start timer
     frmSplash.ShowModal; // Show welcome screen
end;

procedure OnTimer (Sender: TObject);
begin
     iTimer := iTimer + 1;
     frmSplash.Label2.Caption := 'Start after '+IntToStr(5-iTimer)+' seconds or press ''Start'' button.';

   //    frmSplash.Label2.Caption := '00:'+IntToStr(15-iTimer)+;
   //    frmSplash.Label2.Caption := FormatDateTime('nn:ss',(+IntToStr(5-iTimer)+));


     if iTimer > 5 then
     begin
          Timer.Enabled := False;
          frmSplash.Close;
          Timer.Free;
     end;
end;

procedure frmSplash_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
     frmSplash.Close;
end;