Može i da se zaokruži vreme na minute (pre utvrđivanja razlike):
Code (delphi):
DateTimePicker1.DateTime := StrToDateTime
(FormatDateTime('dd.MM.yyyy HH:mm', DateTimePicker1.DateTime));
ili doda konteksni meni sa opcijom (može i CheckBox) za promenu izbora kalendar / vreme:
Code (delphi):
procedure TForm1.KalendarVremeMClick(Sender: TObject);
begin
if DateTimePicker1.Kind = dtkTime then begin
DateTimePicker1.Kind := dtkDate;
KalendarVremeM.Caption := 'Vreme';
end
else begin
DateTimePicker1.Kind := dtkTime;
KalendarVremeM.Caption := 'Kalendar';
end;
end;