Topic: DateTimePicker
Ув. Дмитрий!
На форме имеется 2 компонента DateTimePicker (dtpData_vipiski и dtpData_gospitalizatsii) и 1 компонент Edit1 (edDni_prebivaniya).
Это скрипт, который я написал:
procedure NovayaForma_dtpData_vipiski_OnChange (Sender: string);
begin
NovayaForma.edDni_prebivaniya.Value:= DaysBetween(NovayaForma.dtpData_vipiski.DateTime,NovayaForma.dtpData_gospitalizatsii.DateTime);
end;
procedure NovayaForma_dtpData_gospitalizatsii_OnChange (Sender: string);
begin
NovayaForma.edDni_prebivaniya.Value:= DaysBetween(NovayaForma.dtpData_vipiski.DateTime,NovayaForma.dtpData_gospitalizatsii.DateTime);
end;
В норме дата выписки должна быть больше даты госпитализации, т.е. если дата госпитализации - 22.07.2015 то дата выписки должна быть равно или больше, т.е. 22.07.2015, 23.07.2015 и так далее. Короче скрипт работает и всегда показывает положительное число, а надо чтобы она показала отрицательное число если дата выписки меньше дата госпитализации.