Скачать: CL | DM;

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

← →
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]

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

---

← →
KSergey ©   (2003-09-24 12:29) [7]

> zerro_nuz (24.09.03 11:54)

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

---

← →
BillyJeans ©   (2003-09-24 13:04) [8]

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

---

← →
Developerr ©   (2003-09-24 13:45) [9]

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;

Удачи

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c