Форум: "Основная";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];
ВнизПомогите как вычесть из даты дату ? Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.012 c