Помогите как вычесть из даты дату ?

← →
zerro_nuz (2003-09-24 11:54) [0]

Помогите как вычесть из даты дату и значение присвоить DataTimePicker, но чтобы отображалось в нормальном виде а не 31.08.1900г
Я делал: через DataTime вычитал получал значение потом разбивал (декодировал) и просто для (даты писал x-1);(для месяца x+1),а для года x-1900)получается но несовсем корректно, просто может есть другие способы ответьте?

← →
pasha_golub © (2003-09-24 11:55) [1]

Переформулируйте вопрос, я лично ни черта не понял

← →
Vovchik_A © (2003-09-24 11:57) [2]

И когда же люди начнут хелп читать, прежде, чем спрашивать ?

← →
Verg © (2003-09-24 12:07) [3]

> И когда же люди начнут хелп читать, прежде, чем спрашивать
> ?

Это непреодалимо. Многим людям, например, проще спросить у прохожих "как пройти к...", чем посмотреть в карту. Ну любят общаться....

P.S.
- Как найти площадь Ленина?
- Длину Ленина умножить на ширину Ленина....

← →
Anatoly Podgoretsky © (2003-09-24 12:16) [4]

Из шкафа высотой в 3 метра, вычесть высоту шкафа в 2,4 метра, получим шкаф высотой в 0,6 метра.

← →
Smithson © (2003-09-24 12:20) [5]

В фак надо вывесить, по-моему. Или там есть?

← →
Anatoly Podgoretsky © (2003-09-24 12:22) [6]

В школу, там объяснят что такое разность некоторых физических величин

> zerro_nuz (24.09.03 11:54)

Чт в вашем понимании есть вычитание из одной даты другой даты? Что должно получиться в итоге по-вашему?
Видите же, общесвенность требует ;)

может DataTimePicker.Date := DateOf(Date2 - Date1);

var a,b,c: String; YearN, MonthN, DayN, Year1, Month1, Day1, Year, Month, Day: Integer; begin a:=DateToStr(DateTimePicker2.Date); b:=DateToStr(Date) Year1:=StrToInt(Copy(a,7,4)); Month1:=StrToInt(Copy(a,4,2)); Day1:=StrToInt(Copy(a,1,2)); YearN:=StrToInt(Copy(b,7,4)); MonthN:=StrToInt(Copy(b,4,2)); DayN:=StrToInt(Copy(b,1,2)); Year:=Round(((YearN-Year1)*12+MonthN-Month1)/12); Month:=((YearN-Year1)*12+MonthN-Month1)-Year*12; if Month<0 then begin Month:=Month+12; Year:=Year-1; end; Day:=DayN-Day1; if Day<0 then begin if (Month1=1)or(Month1=3)or(Month1=5)or(Month1=7)or(Month1=8)or(Month1=10)or(Month1=12) then Day:=Day+31; if (Month1=4)or(Month1=6)or(Month1=9)or(Month1=11) then Day:=Day+30; if (Month1=2)and((Year1 mod 4)=0) then Day:=day+29; if (Month1=2)and((Year1 mod 4)<>0) then Day:=Day+28; Month:=Month-1; if Month<0 then begin Month:=Month+12; Year:=Year-1; end; end; c:=IntToStr(Day)+"."+IntToStr(Month)+"."+IntToStr(Year); DateTimePicker.Date:=StrToDate(c); end;

Удачи

Помогите как вычесть из даты дату ? Найти похожие ветки