ДРУЗЬЯ!!!
вот скрипт...
procedure frmEmployee_OnShow (Sender: string; Action: string);
begin
if frmEmployee.dtDateOfBirth.Checked then
frmEmployee.edDate.Text := FormatDateTime('ddmmyyyyhhnn', Frac(frmEmployee.DateTimePicker1.DateTime) + Trunc(frmEmployee.dtDateOfBirth.DateTime))
else frmEmployee.edDate.Clear;
end;
procedure frmEmployee_edDate_OnChange (Sender: string);
var
s: string;
YY, MM, DD: string;
HH, MIN,SEC: string;
dt: TDateTime;
begin
s := frmEmployee.edDate.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 ));
frmEmployee.DateTimePicker1.DateTime := Frac(dt);
frmEmployee.dtDateOfBirth.DateTime := Trunc(dt);
frmEmployee.edDate.Color := clWhite;
except
frmEmployee.DateTimePicker1.Checked := False;
frmEmployee.dtDateOfBirth.Checked := False;
frmEmployee.edDate.Color := clRed;
end;
end else
begin
frmEmployee.DateTimePicker1.Checked := False;
frmEmployee.dtDateOfBirth.Checked := False;
frmEmployee.edDate.Color := clWhite;
end;
end;
т.е. в едит(edDate) по маске вводим 06.06.2016 21:11:33 тогда у DateTimePicker1 и dtDateOfBirth
появляются значения и они активны.....
помогите исключить(убрать) из скрипта секунды, методом простого стирания связанного с секундами результато не дало!
P./S. в едит(edDate) по маске вводим 06.06.2016 21:11(без секунд) тогда у DateTimePicker1 и dtDateOfBirth
появляются значения и они активны.....
ТЕСТ.zip 336.07 kb, 530 downloads since 2016-04-15 
Скриншот 26-05-2016 093656.png