Topic: DateTimePicker
Здравейте,
procedure frmApplication_OnShow (Sender: string; Action: string);
var
Y, M, D: Word;
begin
if Action='NewRecord' then
begin
DecodeDate(Now, Y, M, D);
frmApplication.DateTimePicker2.Date := EncodeDate(Y, M, D + 15);
end;
end;
Когато до края на месеца остават наи малко 15 дни ..работи...,Когато дните до края на месеца са по малко от 15 съобщава "Invalid argument to date encode", къде греш?