delphi количество дней между двумя датами
Вычисление количества дней между датами
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Определение количества дней между двумя датами!
Здравствуйте! помогите написать программу определяющую количество дней между двумя датами! Но с.
Рассчитывание количества дней, часов, минут между двумя введенными датами
Здравствуйте уважаемые программисты. Не очень понимаю программирование. Очень нужна ваша.
Как вычислить кол-во дней между двумя датами и перевести в кол-во лет, мес. дней?
Собственно, как вычислить кол-во дней я знаю: procedure TForm1.Button3Click(Sender: TObject); var.
а вы описание к функции совсем не читаете?
function DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer;
Функция DaysBetween вычитает FromDate из ToDate, возвращая разность в целых днях.
А еще там написано что время не может быть 00:00:00
а я почему то уверен что у вас в эдитах только дата и делая StrToDateTime() вы получаете как раз нули
не верю
все всегда пользовались, а у вас не получается
тут либо руки, либо руки
показывайте код
Решение
Работает, как АК-47 во всех версиях Delphi и со всеми руками. Видимо у ТС и экспертов разные версии IDE.
Количество дней между 2-мя датами
Помогите найти количество дней меджу двумя датами, если например даты вводяться в 2 поля Edit1 и.
Количество дней между датами
Здравствуйте! Подскажите пожалуйста как лучше написать программу рассчет колличества дней между.
Вычислить количество дней между двумя датами
Вычислить количество дней между двумя датами. Начальные и конечные значения дат задавать с помощью.
Как найти сколько дней между датами
К примеру я знаю 2 даты: 31.02.04 и 24.05.12 Как мне найти сколько дней между этими датами.
Как вычислить кол-во дней между двумя датами и перевести в кол-во лет, мес. дней?
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Как лучше посчитать кол-во дней между двумя датами?
«10/12/1989″ 23/02/2016» Как посчитать лучше кол-во дней между ними?
Возврат кол-ва лет, месяцев, дней, часов, минут, секунд между датами
Нужно написать функцию которая возвращает в виде символьной строки количество лет, месяцев, дней.
Написать программу, считающую кол-во дней между двумя заданными датами!
Помогите новичку. Нужно написать программу, позволяющую сосчитать количество дней между двумя.
вычислить кол-во дней между датами
Даны a1,b1,c1, и a2,b2,c2 которые обозначают две даты. Нужно вычислить кол-во дней между этими.
а нет тут красивого решения.
вот, от 30 января до 30 марта сколько прошло месяцев?
от от 31 января до 1 марта сколько?
а от 29 февраля 2016 до 28 февраля 2018 сколько прошло лет месяцев дней?
и много ещё примеров можно привести, когда результат спорный.
Добавлено через 22 минуты
подумал, а может всё проще.
попробуй готовые функции
Нет, не текущий день вывести надо, а количество дней в текущем месяце: 01.02.2020 (эта дата находится в Edit3.Text).
Добавлено через 29 минут
Все, нашел:
Вложения
 | Расчет времени между двумя датами.rar (836.8 Кб, 34 просмотров) |
Скажите, у вас здесь на форуме, наверное, есть друзья? Если бы вот такую программу, вот в таком виде выложил не я, а один из них, написали бы вы ему по-хранцусски? Или похвалили бы другана?
Я хотел, чтобы кто-то попытался отыскать ошибку самого алгоритма, а не придирался к ошибкам, которых по сути-то и нет.
Добавлено через 29 минут
А касательно этого:
Вы выдали код, который даже не удосужились проверить.
Так что не надо в чужих глазах соринки искать.
А все-таки их тут достаточно много.
3. Более того, зачастую гораздо быстрее ввести дату именно вручную, чем листать календарь, выбирая какой-нибудь тышша восемьсот лохматый год. Вот тут бы событие OnKeyPress было бы оправданно и пригодилось бы для проверки ввода только цифр и символа-разделителя.
4. Дата у Вас выбирается в календаре. Скажите, какой сакральный смысл получить дату, перевести ее в строку, вывести строку в Эдит (до этого момента весь процесс поддается логическому объяснению, несмотря на спорность выбора компонента Эдит в качестве. Ну, говорил уже об этом). Но вот потом. Зачем обратно преобразовывать из строки в дату? Почему нельзя использовать уже полученные значения дат? Мало того, что этот шаг ненужен и нелогичен, так кроме этого на любое преобразование типов тратится время (пусть и микроскопически малое).
Можно продолжить, но что-то надоело. Надеюсь, Вы воспримите критику адекватно, без обвинений в кумовстве, предвзятом отношении и оскорблениях достоинства. Ну а нет, так нет, дело сугубо личное
Добавлено через 10 минут
А, если учесть, что последний раз я пользовался Delphi в 2008 году, то тот факт, что за пару дней я решил эту задачку вызывает во мне чувство гордости. 
Даже за один день, первый я потратил на другой способ подсчета, запутался окончательно из-за разного кол-ва дней в месяцах и високосном году, плюнул и сделал по-другому.
Странный метод запрещения ввода. Почему бы не сделать Edit3.Enabled := false;? Ну разве что, в этом случае скопировать из поля не получается.
Почему бы не использовать готовый компонент DateTimePicker? Он и дату в готовом нормальном виде всегда выдаёт, и с клавиатуры можно вводить, и календарь открывается, когда нужно.
Типы, функции и процедуры Delphi для работы с датой и временем.
Содержание:
Функции и процедуры Delphi для работы с датой и временем.
Тип TDateTime.
Тип TTimeStamp.
Тип TSQLTimeStamp.
Функции и процедуры Delphi для работы с датой и временем.
Значения символических констант для обозначения дней недели в соответствии с ISO 8601. Используйте эти константы для работы с функциями, работающими в соответствии со стандартом ISO 8601 (функции из модуля DateUtils).
Внимание: Не используйте эти константы с функцией DayOfWeek, которая трактует Воскресение (Sunday) как первый день недели.
DateUtils
DateUtils
DateUtils
Внимание: Значения DayOfTheWeek соответствуют ISO 8601 (где Понедельник (Monday) является первым днем недели). Если хотите чтобы первым днем недели считалось Воскресение (Sunday) используйте функцию DayOfWeek вместо функции DayOfTheWeek.
Совет: Чтобы сделать возвращаемые значения более читабельными, используйте константы Day of week.
DateUtils
SysUtils
Внимание: Значения DayOfWeek не соответствуют ISO 8601 (где Понедельник (Monday) является первым днем недели). Если хотите чтобы первым днем недели считался Понедельник (Monday) используйте функцию DayOfTheWeek вместо функции DayOfWeek.
Содержание
Тип TDateTime.
Ниже приведены несколько примеров значения TDateTime и соответсвующие им дата и время:
| 0 | 12/30/1899 12:00 am |
| 2.75 | 1/1/1900 6:00 pm |
| -1.25 | 12/29/1899 6:00 am |
| 35065 | 1/1/1996 12:00 am |
Чтобы найти количество дней, включая дробную часть, между двумя датами, просто вычтите два значения, если только одно из них не является отрицательным. Аналогично, если значение TDateTime не отрицательное, то, чтобы увеличить значение даты и времени на определенное кличество дней, включая дробную часть, достаточно прибавить количество дней, включая дробную часть, к значению TDateTime.
Когда обрабатываются отрицательные значения TDateTimes, то вычисление дробной части производится отдельно. Дробная часть отражает часть 24-часового дня не зависимо от знака значения TDateTime. Например, 6:00 am on 12/29/1899 это –1.25, а неt –1 + 0.25, что составило бы –0.75. Значений TDateTime между –1 и 0 не существует. Cовет: В модулях SysUtils и DateUtils для работы с датой и временем имеется большое количество процедур и функций на все случаи жизни. Не заморачивайтесь с обственными вычислениями, не изобретайте велосипед, а пользуйтесь уже готовыми наработками разработчиков Delphi. (См. Функции и процедуры Delphi для работы с датой и временем.) Оно надежнее.
Примечание: В Delphi 1 за начало отсчета принят год 1, т.е. для перевода даты Delphi 1 в дату последующих версий Delphi надо вычесть из даты число 693594.
Содержание
Тип TTimeStamp.
TTimeStamp представляет значения дата и время.
Используйте TTimeStamp если требуется повышеная точность представления значения времени в знчениях дата/время. Если нет необходимости сохранять значение времени с точностью до милисекунд, используйте более компактное TDateTime. Если необходима еще большая точность, то используйте TSQLTimeStamp (но НЕ назначайте его типом Variant).
Поле Time field показывает количество милисекунд, прошедших с полуночи.
Поле Data показывает число календарных дней от начала календаря (число дней с 1/1/0001 плюс один).
Содержание
Тип TSQLTimeStamp.
TSQLTimeStamp представляет значения даты и времени с очень высокой точностью.
Используя функцию VarSQLTimeStampCreate, Вы можете создать тип Variant который представляет значение TSQLTimeStamp. Фактически, простейший путь манипулирования значениями SQLTimeStamp это создать подобный Variant и использовать встроеные операторы, обеспечивающие работу с Variant.
Delphi количество дней между двумя датами
Есть две даты в формате String. Как получить кол-во дней между ними?
← →
Семен Сорокин ( 2003-07-14 14:44 ) [1]
← →
off ( 2003-07-14 14:47 ) [2]
Не помогает все равно 0 выдает
← →
NickBat ( 2003-07-14 14:57 ) [3]
← →
Palladin ( 2003-07-14 14:57 ) [4]
значит даты одинаковые
> Palladin © (14.07.03 14:57)
Не цифры я пока между собой различаю
← →
off ( 2003-07-15 06:26 ) [6]
Хотя попробовал написать в отдельном проекте, так все работает. А вот при работе с InterBase по непонятной мне причине глючит 🙁
Всем спасибо, попробую побороть этот баг.
← →
Anatoly Podgoretsky ( 2003-07-15 09:16 ) [7]
← →
Song ( 2003-07-15 21:45 ) [8]
← →
off ( 2003-07-21 13:29 ) [9]
А количество месяцев?
А сколько дней в месяце?
← →
off ( 2003-07-21 13:51 ) [11]
> Anatoly Podgoretsky © (21.07.03 13:44)
> А сколько дней в месяце?
Зависит от месяца!
← →
off ( 2003-07-22 08:47 ) [12]
А есть ли функция определения количеста дней в месяце или так считать придется?
← →
Anatoly Podgoretsky ( 2003-07-22 08:52 ) [13]
А причем тут месяц, когда после d1-d2 ты получишь скажем 30 дней и что ты будешь делать после этого
← →
Zew ( 2003-07-22 08:54 ) [14]
> А сколько дней в месяце?
Около 30 помойму
У меня на календарный месяц полагается норма (50 Mb), причем вне зависимости от продолжительности месяца. А если юзер юзал нетворк не весь месяц, а n-дней? Тогда надо посчитать сколько Мб юзверю полагается по нормативу в жтом месяце. Я бы использовал период в 30 дней, но начальство против
← →
Still Swamp ( 2003-07-22 09:12 ) [16]
Может я что пропустил, но
Result:integer;
DateBegin,DateEnd:TDateTime;
← →
Anatoly Podgoretsky ( 2003-07-22 09:14 ) [17]
← →
off ( 2003-07-22 09:21 ) [18]
Спасибо Anatoly я думал, может уже есть функция которая достает колво дней в месяце, ну так чтобы совсем ничего не считать.
← →
dataMaster ( 2003-07-22 09:33 ) [19]
function DifferenceDate(Date1, Date2:TDateTime):integer;
var
ds1, ds2:TTimeStamp;
begin
ds1:=DateTimeToTimeStamp(Date1);
ds2:=DateTimeToTimeStamp(Date2);
Result:=ds1.Date-ds2.Date;
end;
← →
ValeraVV ( 2003-07-22 09:33 ) [20]
DaysInAMonth function
Returns the number of days in a specified month of a specified year.
Unit:DateUtils
Delphi syntax: function DaysInAMonth(const AYear, AMonth: Word): Word;
← →
off ( 2003-07-22 09:49 ) [21]
Валерий Валерьевич, вы просто умница!
← →
KPP ( 2003-07-22 09:51 ) [22]
Если решать эту задачу(Есть две даты в формате String. Как получить кол-во дней между ними?) «в лоб», есть такой вариант:
//возвращает кол-во дней в месяце с учетом года
Function KolDayMoon(MM,YYYY:integer):byte;
begin
case MM of
1,3,5,7,8,10,12:result:=31;
2:begin
if IsLeapYear(YYYY)then result:=29
else result:=28;
end;
4,6,9,11:result:=30;
end;
end;
//разница в днях между двумя датами
Function RaznDayIn2Date(YYYYMMDD1,YYYYMMDD2:string):integer;
var
YYYY1,
YYYY2,
YYYY :integer;
i,MM1,DD1,MM2,DD2,MM,DD:byte;
Prom:string;
begin
result:=0;
if(StrToInt(YYYYMMDD2)=StrToInt(YYYYMMDD1))then exit;
if(StrToInt(YYYYMMDD2)>StrToInt(YYYYMMDD1))then begin
result:=-3;
exit;
Prom:=YYYYMMDD2;
YYYYMMDD2:=YYYYMMDD1;
YYYYMMDD1:=Prom;
end;
try
YYYY1:=StrToInt(copy(YYYYMMDD1,1,4));
MM1 :=StrToInt(copy(YYYYMMDD1,5,2));
DD1 :=StrToInt(copy(YYYYMMDD1,7,2));
except
result:=-1;
exit;
end;
try
YYYY2:=StrToInt(copy(YYYYMMDD2,1,4));
MM2 :=StrToInt(copy(YYYYMMDD2,5,2));
DD2 :=StrToInt(copy(YYYYMMDD2,7,2));
except
result:=-2;
exit;
end;
if DD1>DD2 then DD:=DD1-DD2
else begin
if MM1=1 then begin
MM1:=12;
dec(YYYY1);
end
else dec(MM1);
DD:=(DD1+KolDayMoon(MM1,YYYY1))-DD2;
end;
if MM1>=MM2 then MM:=MM1-MM2
else begin
MM:=(MM1+12)-MM2;
dec(YYYY1);
end;
YYYY:=YYYY1-YYYY2;
if YYYY 0 do begin
if IsLeapYear(YYYY)then result:=result+366
else result:=result+365;
dec(YYYY);
end;
i:=0;
while MM<>i do begin
if (MM2+i)>12 then begin
MM2:=1;
inc(YYYY2);
end;
result:=result+KolDayMoon(MM2+i,YYYY2);
inc(i);
end;
result:=result+DD;
end;
может и топорно, но работает уже 4 года
← →
KPP ( 2003-07-22 09:54 ) [23]
Если решать эту задачу(Есть две даты в формате String. Как получить кол-во дней между ними?) «в лоб», есть такой вариант:
//возвращает кол-во дней в месяце с учетом года
Function KolDayMoon(MM,YYYY:integer):byte;
begin
case MM of
1,3,5,7,8,10,12:result:=31;
2:begin
if IsLeapYear(YYYY)then result:=29
else result:=28;
end;
4,6,9,11:result:=30;
end;
end;
← →
KPP ( 2003-07-22 09:55 ) [24]
← →
Gooz ( 2003-07-22 09:56 ) [25]
Удалено модератором
Примечание: Задай этот вопрос в потрепаться
Delphi количество дней между двумя датами
Здравствуйте.
Что-то у меня уже башка не варит, сижу парюсь и шарики за ролики заходят.
Никак не удается получить разничу между датами в формате dd.mm.yy.
Например.
05.11.2007 и 08.11.2007 должно получиться 03.00.00, но при работе с типом дата месяц (как и год) не может быть равен 0.
Может кто подскажет как это можно реализовать?
Никак. Разница между датами есть интервал, измеряемый в фиксированных единицах. Напр. в секундах или сутках.
А что хочется получить?
какая должна быть разница между 05.11.2007 и 05.11.2006?
← →
clickmaker © ( 2007-11-08 13:12 ) [3]
> должно получиться 03.00.00
в смысле, нужно отдельно представлять сколько разница в днях, месяцах и годах?
тогда можно свою структуру завести
TDateDiff = record
Days: integer;
Months: integer;
Years: integer;
end;
ну и форматировать в строку
> какая должна быть разница между 05.11.2007 и 05.11.2006?
> Ega23 © (08.11.07 13:12) [4]
> > какая должна быть разница между 05.11.2007 и 05.11.2006?
> 525600 минут
В смысле минус?
← →
Andy BitOff (ppc) ( 2007-11-08 13:17 ) [6]
Забыл сказать. КОНЕЧНО результат в стринг,ну я думал это и понятно. 😉
> какая должна быть разница между 05.11.2007 и 05.11.2006?
00.00.01
А что это не очевидно?
Визуально и поработав мозгами это очевидно, а вот программная реализация, чего-то мне не дается.
> [0] Andy BitOff (ppc) (08.11.07 13:07)
function DatesBetween (FirstDate, SecondDate : TDateTime) : String;
begin
Result := IntToStr(DaysBetween(FirstDate, SecondDate)) + «.» +
IntToStr(MonthsBetween(FirstDate, SecondDate)) + «.» +
IntToStr(YearsBetween(FirstDate, SecondDate));
end;
Что-то типа того, не запускал, но должно работать.
← →
Desdechado © ( 2007-11-08 13:28 ) [8]
Интервал неможет быть представлен в формате даты, т.к. месяцы, годы имеют разную длину.
> [6] Andy BitOff (ppc) (08.11.07 13:17)
> 00.00.01
> А что это не очевидно?
А тебя не смущает, что столь «очевидный» результат пересчитанный в другие единицы (дни, минуты и т.д.) для разных лет будет отличаться друг от друга?
engine © (08.11.07 13:19) [7]
интересный должен результат получиться))))))
← →
Andy BitOff (ppc) ( 2007-11-08 13:50 ) [11]
> А тебя не смущает.
Нет. Не смущает. Потому что пересчет в другие единицы не подразумевается. Я же указал в первом посте в каком формате нужен выход и это конечный выход. Далее с этими данными никаких действий производиться не будет.
> engine © (08.11.07 13:19) [7]
«Работать» это что? Отсутствие ошибок в программе? Или правильный результат?
> Далее с этими данными никаких действий производиться не
> будет.
М.б. тебе они и не нужны вовсе?
← →
Andy BitOff (ppc) ( 2007-11-08 14:05 ) [14]
Johnmen © (08.11.07 13:54) [13]
Ну ты же умный человек. Неужели я бы стал тратить свое время, трафик и ваше время, если бы мне это было не надо.
Обычно (если, что бывает редко) я что-то здесь спрашиваю, то это значит, что я действительно зашел в тупик и не вижу выхода.
Я переписал уже три или четыре раза функцию для решения этой задачи, но так и не приуспел в этом. Поэтому и обратился сюда.
Сейчас обдумываю еще вариант, но мозги уже закипают.
> [12] Johnmen © (08.11.07 13:53)
Мдя, не подумал. Результат интересный получился. )))
← →
Andy BitOff (ppc) ( 2007-11-08 14:21 ) [17]
Johnmen © (08.11.07 14:08) [16]
Неверю.
Любую задачу, тем более эту, можно решить/запрограммировать. Другое дело сколько понадобится для этого ресурсов (чел/часов, нервов и т.п).
> [17] Andy BitOff (ppc) (08.11.07 14:21)
function DatesBetween (FirstDate, SecondDate : TDateTime) : String;
var
CountDays, CountMonth, CountYear : Integer;
i, Year1, Year2 : Integer;
begin
CountYear := YearOf(SecondDate) Yearof(FirstDate);
if MonthOf(SecondDate)
Вот вариант. Только требует обработки напильником
> [19] Johnmen © (08.11.07 14:54)
Ну, я ж и говорю, немного напильником доработать.
В остальных случаях вроде правильно считает.
> Andy BitOff (ppc) (08.11.07 14:21) [17]
> Неверю.
> Любую задачу, тем более эту, можно решить/запрограммировать.
А и задачи-то никакой нет.
Скажем, что это некорректная постановка.
← →
Anatoly Podgoretsky © ( 2007-11-08 15:42 ) [22]
← →
Desdechado © ( 2007-11-08 16:09 ) [23]
← →
Anatoly Podgoretsky © ( 2007-11-08 16:35 ) [25]
> Desdechado (08.11.2007 16:09:23) [23]
Очень весело получается в одинаковой ситуации, например с температурой, утром 24, вечером 26 градусов, по логике автора получается, что температура в больнице 2 градуса, или 1 января 0001 года.
← →
Anatoly Podgoretsky © ( 2007-11-08 16:36 ) [26]
> OP (08.11.2007 16:27:24) [24]
А автор озабочен нобелевкой.
← →
vpbar © ( 2007-11-08 17:00 ) [27]
Это
> 05.11.2007 и 08.11.2007 должно получиться 03.00.00, но при
> работе с типом дата месяц (как и год) не может быть равен
> 0.
И ЭТО
> Забыл сказать. КОНЕЧНО результат в стринг,ну я думал это
> и понятно. 😉
> Потому что пересчет в другие единицы не подразумевается.
>
Немного противоречит друг другу.
Если второе, то просто раскладывай дату в дни месяцы и годы и вычитай. Получить чтото.
Когда-то давно решал подобную задачу.
Делал как-то вот так:
function DateDiff(dat1, dat2: TDate): String;
var
d1, d2, m1, m2, y1, y2: Word;
i, ii, id, im, iy: Integer;
dd, dw: TDate;
begin
dat1 := Floor(dat1); dat2 := Floor(dat2);
if dat2
Надо проверять.
Может можно оптимизировать.
← →
Shirson_ ( 2007-11-08 18:26 ) [29]
>Andy BitOff (ppc) (08.11.07 13:17) [6]
> Забыл сказать. КОНЕЧНО результат в стринг,ну я думал это и понятно. 😉
> какая должна быть разница между 05.11.2007 и 05.11.2006?
> 00.00.01
Res:=15.12.2008-05.11.2006 = 39797-39026=771 (days)
For Your type of result, must be used abstract «year» (365 days) and abstract mounth (30 days), because, it»s not year or mount exactly, but just a measure.
procedure TForm1.Button1Click(Sender: TObject);
var d1,d2:tdatetime;
res:real;
Months,Years,Days:Integer;
c:string;
begin
d1:=strtodatetime(edit1.Text);
d2:=strtodatetime(edit2.Text);
Res:=d1-d2;
If res
If you need not abstract measure, use engine [18] variant.
P.S. Sorry for English. No computers with russian available now.
← →
Anatoly Podgoretsky © ( 2007-11-08 19:10 ) [31]
Ну так не дату же получать, а интервал
> Никак не удается получить разничу между датами в формате
> dd.mm.yy.
Я когда-то и решал именно эту задачу.
← →
Anatoly Podgoretsky © ( 2007-11-08 19:29 ) [33]
> SergeyIT (08.11.2007 19:14:32) [32]
То есть решал как получить дату 01.00.0001
← →
Malik ( 2007-11-08 19:38 ) [35]
Кто-нибудь скажет мне скока дней в месяце, и в годе?
← →
Anatoly Podgoretsky © ( 2007-11-08 19:43 ) [36]
> Кто-нибудь скажет мне скока дней в месяце, и в годе?
На этот вопрос ответа нет, но есть решение в полных годах, месяцах
Некоторая сложность есть с февралем
← →
b z ( 2007-11-08 19:44 ) [37]
> скока дней в месяце, и в годе
В дельфи, если посмотрите сорсы, есть функции, которые дают однозначный ответ.
И ещё хотелось бы услышать, чем красный отличается от сладкого?
← →
Malik ( 2007-11-08 20:37 ) [40]
> Anatoly Podgoretsky © (08.11.07 19:43) [36]
Я это знаю
Ладно ма держи:
S:=IntToStr(Round(DaysBetween(DateTimePicker2.Date,DateTimePicker1.Date)-MonthsBetween(DateTimePicker2.Date,DateTimePicker1.Date)*365.25/12))+».»+IntToStr(MonthsBetween(DateTimePicker2.Date,DateTimePicker1.Date)mod 12)+».»+IntToStr(YearsBetween(DateTimePicker2.Date,DateTimePicker1.Date));
Учти небольшой шлиф. и должно получиться, А так даёт максимум ошибку на день из-за округлений и не определённости величин месяцов, годов
> Malik (08.11.07 20:37) [40]
> > Anatoly Podgoretsky © (08.11.07 19:43) [36]
← →
Германн © ( 2007-11-09 01:21 ) [51]
ЗЫ
Впрочем, на второй можете не отвечать.
Имхо тема исчерпана, т.к. все так или иначе высказались, что разница в днях может быть по разному интерпретирована в разницу в днях.месяцах.годах. Все от первой и второй даты зависит. А именно от дня, месяца и, как не странно, года. 😉
← →
Германн © ( 2007-11-09 01:41 ) [55]
> Германн © (09.11.07 01:21) [51]
Я говорил лишь о СРАВНЕНИИ дат. уважаемый Германннн
> Dmitro (09.11.07 01:47) [56]
> Я говорил лишь о СРАВНЕНИИ дат.
Для лишь сравнения дат никаких преобразований вовсе не надо.
← →
Германн © ( 2007-11-09 02:06 ) [58]
← →
Германн © ( 2007-11-09 02:54 ) [60]
> Функция не абсолютна и не точна, но раскрывает алгоритм
> вычитания дат.
> Готов выслушать критику и советы.
>
А чего тут критиковать? Сам же сказал, что «не абсолютна и не точна». Прочитай ещё раз всю ветку. Поймёшь что ты не первый и далеко не первый, кто именно такую формулировку применил.
← →
Германн © ( 2007-11-09 03:05 ) [61]
Пардон. Отнёсся к [59] слишком «бездумно». Однако стоило ужесточить мнение.
Сия функция не только
> не абсолютна и не точна
, но и не
> раскрывает алгоритм вычитания дат
.
Извените, меня конечно, а разве нельзя просто сделать так:
function DatesBetween (FirstDate, SecondDate : TDateTime) : String;
var y1,m1,d1,y2,m2,d2:word;y,m,d:string;
begin
decodedate(firstdate,y1,m1,d1);
decodedate(seconddate,y2,m2,d2);
y:=inttostr(y1-y2);
m:=inttostr(m1-m2);
d:=inttostr(d1-d2);
result:=d+».»+m+».»+y;
end;
а привести допустим день 1 в вид 01, месяц 8 в вид 08, а год 1 в вид 0001, не составит труда.
тока не кидайтесь камнями. если я не прав.
← →
homm © ( 2007-11-09 08:19 ) [64]
> Здравствуйте.
> Что-то у меня уже башка не варит, сижу парюсь и шарики за
> ролики заходят.
> Никак не удается получить
Имеено эту фразу видят люди в качестве описания вопроса. Очень емко и информативно, главное сразу понятно что нужно автору, можно даже в ветку не заходить.
← →
Думкин © ( 2007-11-09 08:19 ) [65]
> Думкин © (09.11.07 08:19) [65]
Я подобный вопрос задал ещё в [2]. Автор не хочет уточнить 🙁
> Skyle © (09.11.07 09:08) [66]
> Я подобный вопрос задал ещё в [2]. Автор не хочет уточнить
> 🙁
Дык, он же не в состоянии (см. анамнез),
у него ж паралич мыслительной мышцы.
Кста, видимо, это заразно.
← →
Думкин © ( 2007-11-09 09:29 ) [68]
← →
Думкин © ( 2007-11-09 09:57 ) [70]
> SergeyIT (09.11.07 09:47) [69]
Вы бы все-таки ответили на его 19 пост. А то некрасиво как-то.
> SergeyIT (09.11.07 09:47) [69]
Я, конечно понимаю, что чукча не читатель, чукча писатель, но попробую ещё раз, последний:
1.
SergeyIT © (08.11.07 18:07) [28]
Надо проверять.
Johnmen © (09.11.07 01:21) [52]
Вы пока только повествуете о какой-то мифической функции. Которая якобы работает без runtime ошибок и якобы выводит достоверные данные.
Где работающая ф-ия, выдающая достоверные результаты?
← →
Думкин © ( 2007-11-09 10:15 ) [74]
> Думкин © (09.11.07 10:15) [74]
> 1 год. 🙂
А-а-а. У него года в конце.
← →
ЮЮ © ( 2007-11-09 10:31 ) [76]
> [72] SergeyIT (09.11.07 10:06)
> По-моему так
Кажеттся, что затруднения возникают, когда дней месяце начала перриода больще, чем дней конца перриода.
Что считать «ровно через месяц», начиная с 31.01, а с 30.01.
← →
Anatoly Podgoretsky © ( 2007-11-09 10:52 ) [79]
> Думкин (09.11.2007 10:15:14) [74]
← →
Anatoly Podgoretsky © ( 2007-11-09 10:54 ) [80]
> korneley (09.11.2007 10:33:17) [77]
← →
Думкин © ( 2007-11-09 10:56 ) [81]
> Anatoly Podgoretsky © (09.11.07 10:52) [79]
А зачем мне это адресовывать? Я вопроса не задавал и не отвечал. Я лишь заметил, что год и день стоят не на тех местах.
← →
ЮЮ © ( 2007-11-09 10:59 ) [82]
[80] Anatoly Podgoretsky © (09.11.07 10:54)
> С чего бы
Т.е. месяц февраль, это не только с 1 по последнее число февраля, но и последний день января и первый день марта?
>korneley © (09.11.07 11:26) [87]
← →
ЮЮ © ( 2007-11-09 11:36 ) [89]
Это пожалуй лишнее. Полный месяцы внутри крайних дат периода и так месяцы, кадлый 12 из них дадут 1 год (то же касается и годов при многолетнем интервале).
Интерес представляют сумма оставшиеся дней месяца начальной даты интервала и дней, прошедших с начала месяцы конечной даты, которая может изменяться от 2 и выше, где-то до 60. Остается найти точку разрыва, дающую нам 1 месяц и некоторое количество дней. Сформуриловав это правидо, наиболее приемлимое для предметной области, мы и получим алгоритм.
← →
Думкин © ( 2007-11-09 11:41 ) [91]
> ЮЮ © (09.11.07 11:36) [89]
Если номер дня начала, больше или равен чем номер дня конца, то месяц и дни, если меньше, то только дни считать. И все.
← →
ЮЮ © ( 2007-11-09 11:54 ) [92]
> Если номер дня начала, больше или равен чем номер дня конца,
> то месяц и дни, если меньше, то только дни считать. И все.
алгоритм.
т.е. между 30 января и 2 февраля МЕСЯЦ и ДНИ?
← →
Думкин © ( 2007-11-09 11:59 ) [93]
← →
ЮЮ © ( 2007-11-09 12:12 ) [94]
> Ни один человек в здравом уме серьезно к таким данным относиться
> не будет
Примерно так считают стаж, там где он нужен. И когда кому-то не хватит 1го дня для какой-либо льготы, то это уже не рюшечки.
← →
Думкин © ( 2007-11-09 12:21 ) [95]
← →
Думкин © ( 2007-11-09 12:25 ) [96]
> ЮЮ © (09.11.07 12:12) [94]
А чтобы никто не ушел обиженным, считать надо так:
30 декабря 2001 и 3 февраля 2003
Разница 2 года 2 месяца и 3 дня.
← →
Anatoly Podgoretsky © ( 2007-11-09 12:35 ) [97]
> А зачем мне это адресовывать? Я вопроса не задавал и не
> отвечал.
А я и не адресу, а указываю на какое именно сообщение реагирую. А получатели нужные, они сами найдутся, кто захочет.
← →
Anatoly Podgoretsky © ( 2007-11-09 12:36 ) [98]
> ЮЮ (09.11.2007 10:59:22) [82]
С первого по последнее число месяц не кончается, а кончается когда наступит первый день следующего месяца.
← →
Думкин © ( 2007-11-09 12:37 ) [99]
← →
Anatoly Podgoretsky © ( 2007-11-09 12:38 ) [100]
> korneley (09.11.2007 11:26:27) [87]
Ну тогда ответь на вопрос, получили интервал 365 дней, это сколько лет 1 или менее?
← →
Anatoly Podgoretsky © ( 2007-11-09 13:01 ) [102]
> Думкин (09.11.2007 12:37:39) [99]
Я вообще то на твою голову расчитывал 🙂
А если серьезно я взял твои данные и предложил альтернативу.
← →
Думкин © ( 2007-11-09 13:06 ) [103]
← →
Anatoly Podgoretsky © ( 2007-11-09 13:07 ) [104]
> Думкин © (09.11.07 12:25) [96]
Как тебя понимать, Саид? (с)
> Ну тогда ответь на вопрос, получили интервал 365 дней, это
> сколько лет 1 или менее?
Дык, елы-палы, братушка, я ж объяснял, что не надо интервал в днях получать, ну не интересно ему, что прошло N дней, а интересно, что год. Или месяц. Или неделя (во! в неделе точно = 7 дней). Если человеку надо в его единицах результат выдать (уж не важно почему), то и пользовать надо эти единицы
> korneley © (09.11.07 13:48) [108]
Бесплатно же можно получить лишь то, что до недель вкл.
← →
Anatoly Podgoretsky © ( 2007-11-09 14:34 ) [113]
> korneley (09.11.2007 13:48:48) [108]
Так получает то он интервал в днях, нет интервала в таких изощренных форматах как dd.mm.yyyy
← →
Anatoly Podgoretsky © ( 2007-11-09 14:35 ) [114]
> SergeyIT (09.11.2007 14:20:51) [111]
← →
Anatoly Podgoretsky © ( 2007-11-09 14:36 ) [115]
> korneley (09.11.2007 14:32:52) [112]
Все бы вам лепить, а у заказчика совсем другое представление, что такое месяц и год, необязательно совпадающее с твоим и возможно (вероятнее) он не сможет объяснить какое.
> возможно (вероятнее) он не сможет объяснить какое.
Не, ну это уже другая тема и решается не программированием, а, как минимум, переговорами с постановкой задачи и написанием ТЗ, в котором год будет хоть 100 суток, а сутки по 100 часов
> korneley ©
А Вас я очень прошу, пожалуйста, хватит флудить. Мало того, что не понимаете темы, ещё и другим мешаете понять.
> А Вас я очень прошу, пожалуйста, хватит флудить
Пошел стену искать, засим замолкаю.
← →
Anatoly Podgoretsky © ( 2007-11-09 15:18 ) [122]
> korneley (09.11.2007 14:53:57) [117]
Но это нормальный путь, когда документально оформляются бизнес правила.
Например я встречал места, где утверждено, что в месяце 30, 30.5, 31 день, в основном 30 дней в месяце и 365 или 365.25 в году
А без этого вы будете друг другу бить морды и обвинять друг друга. В большинстве места не мудрят а измеряют в днях
← →
Германн © ( 2007-11-09 15:53 ) [125]
> Засим тоже умолкаю.
> И это правильно.
>
Нет. Правильно будет за сим.
🙂
← →
Джо © ( 2007-11-09 16:08 ) [126]
> [125] Германн © (09.11.07 15:53)
>
> > Засим тоже умолкаю.
> > И это правильно.
> >
>
> Нет. Правильно будет за сим.
> 🙂
Нет, как-раз первоначальный вариант — правильный.
Но все это оффтоп, конечно.
← →
clickmaker © ( 2007-11-09 16:11 ) [127]
> Правильно будет за сим
Правильно будет: «Ну! За присутствующих здесь Сим!»
← →
Германн © ( 2007-11-09 16:19 ) [128]
← →
Anatoly Podgoretsky © ( 2007-11-09 17:04 ) [129]
> clickmaker (09.11.2007 16:11:07) [127]
«Ну! За присутствующих здесь Засим!»
А в сутках 23, 24 или 25 часов? )))
← →
Anatoly Podgoretsky © ( 2007-11-09 19:08 ) [132]
> korneley (09.11.2007 17:48:10) [130]
А ты чего хочешь то? Ветка давно уже флудерская, ее может стоит в Потрепаться кинуть. Если ветка не удаляется, то только лишь потому, что автор еще матом не ругается.
← →
Andy BitOff © ( 2007-11-10 02:29 ) [133]
← →
Германн © ( 2007-11-10 02:37 ) [134]
> Andy BitOff © (10.11.07 02:29) [133]
>
>
«И вечный бой. Покой нам только снится!»
← →
Andy BitOff © ( 2007-11-10 02:45 ) [135]
> Германн © (10.11.07 02:37) [134]
Флудеров я уже поблагодарил. Им можно больше не беспокоиться. Тем более, что ветка не в потрепаться.
← →
Германн © ( 2007-11-10 03:05 ) [136]
> Andy BitOff © (10.11.07 02:45) [135]
>
>
А чем ты лучше (выше) тех, кого
> уже поблагодарил.
?
Задачу не поставил. Это раз.
Обстановку не описАл. Это два.
И требовал решения!
АП прав. Ветка была изначально флудерская.
← →
Джо © ( 2007-11-10 03:08 ) [137]
Кстати, кто-то соберется, наконец, дать формальное описание задачи?
А то пока наблюдаются многократные попытки написать незнамо что.
Как-то оно, ИМХО, утомительно.
← →
Andy BitOff © ( 2007-11-10 04:04 ) [138]
← →
Andy BitOff © ( 2007-11-10 04:14 ) [139]
← →
Virgo_Style © ( 2007-11-10 09:27 ) [140]
> Andy BitOff © (10.11.07 04:04) [138]
> (количество полных дней, месяцев, лет)
Если вдруг ты не заметил, то все обсуждение вертится вокруг вопроса «сколько дней в месяце и в году».
← →
Andy BitOff © ( 2007-11-10 11:36 ) [141]
А я чего-то не понял.
Что нет функции, которая возвращает количество дней в месяце по году и месяцу?
← →
Andy BitOff © ( 2007-11-10 11:55 ) [142]
Да я, собственно, как и писал выше, уже решил эту задачу. Правда в выходные я редко пишу, но алгоритм готов, если кому интересно, то могу вечером его набрасать (будет над чем пофлудить 😉 ). А если кому код надо, то в понедельник.
← →
Anatoly Podgoretsky © ( 2007-11-10 12:04 ) [143]
> Andy BitOff (10.11.2007 11:36:21) [141]
Ну вот опять, интервал это не точка на шкале времени. После получения интервала никакой год и месяц не существует.
Похоже что это длинное обсуждение пошло насмарку.
> Andy BitOff © (10.11.07 02:29) [133]
> Всё правильно. В 6 месяце 30 дней, а в седьмом 31, в этом как раз и суть.
> И ответ правильный. Посчитайте пальчиком (не вычитанием) на календаре
> и вы увидите, что между этими датами ровно МЕСЯЦ или 30 и 31 день,
> соответственно. Вот где зерно истины. В предыдущем месяце.
Следуя этой логике между 31.01.2007 и 02.03.2007 ровно месяц, т.е. 31 сутки, ведь это «зерно истины, предыдущий месяц». Да?
Я думаю, что ты все равно не понял сути. Почитай последние посты дяди Толи (не флудерские), подумай.
← →
Anatoly Podgoretsky © ( 2007-11-10 22:28 ) [145]
> Johnmen (10.11.2007 21:51:24) [144]
← →
Виталий Панасенко(дом) ( 2007-11-10 23:47 ) [146]
> Anatoly Podgoretsky © (10.11.07 22:28) [145]
Время и пространство когда-то были единой сущностью..А по сути вопроса.. фигня какая-то, а не вопрос.. Между датами можно получить РАЗНИЦУ В ДНЯХ..Но то, что просит автор. Я думаю DateDiff поможет. Из JEDI.. возвращает разницу между датами в днях, месяцах, годах
← →
Anatoly Podgoretsky © ( 2007-11-11 00:05 ) [148]
> Время и пространство когда-то были единой сущностью.
Но потом появились программисты.
← →
Германн © ( 2007-11-11 00:15 ) [149]
«Time is the Simplest Thing»
Copyright © 1961 Clifford D. Simak
>>>Виталий Панасенко(дом) (10.11.07 23:47) [146]
Между датами можно получить РАЗНИЦУ В ДНЯХ.
Странная конечно ситуация.
Хорошо, а почему бы автору не разбить заранее кол-во дней по месяцам (что то типа констант некоторых, вдобавок проработав календарь 🙂 проги же есть), а получив результат в виде разницы в количестве дней, преобразовать в тот вид который ему нужен и не ломать голову. Конечно грубовато, в одну строку код не получится.
Потому что, как посмотрю, спор уже идет по терминологии, сколько дней там, сколько здесь и т.д. и т.п.
Ну и флуда. Там за полчаса пишется
см. http://delphimaster.net/view/15-1194730016/ пост [101]
← →
ari_9 ( 2007-11-11 13:31 ) [152]
я понимаю, как глупо влезать в такую тему на третий день флуда, но тем не менее. если автору нужен ответ в ОБЩЕГУМАНИТАРНОМ смысле, что-ли, то он, очевидно, может быть дан
ведь когда говорят, мне «двадцать восемь лет, один месяц и 16 дней» этот ответ тоже никак не может быть однозначно преобразован в дни (високосные годы и разные длины месяцев). но так иногда говорят
есть первая дата year1.month1.day1 и вторая, year2.month2.day2. тогда ответом будет yearХ.monthХ.dayХ, где :
← →
ari_9 ( 2007-11-11 13:49 ) [153]
← →
Andy BitOff © ( 2007-11-12 10:21 ) [154]
> Johnmen © (10.11.07 21:51) [144]
> Следуя этой логике между
> 31.01.2007 и 02.03.2007 ровно месяц, т.е. 31 сутки, ведь это
> «зерно истины, предыдущий месяц». Да?Я думаю, что ты все
> равно не понял сути. Почитай последние посты дяди Толи (не
> флудерские), подумай.
> «зерно истины, предыдущий месяц». Да?
Да!
Я думаю, что ты все равно не понял сути. (c)Johnmen
31.01.2007 и 02.03.2007
Мне сейчас лень считать, но про 31 сутки ты не прав, предыдущий месяц 28 суток, вот и посчитай сколько будет.
P.S.
Это грубое описание алгоритма. Но в ОБЩЕМ всё понятно и правильно.
P.P.S.
К тому же я уже говорил, что ЭТО КОНЕЧНЫЙ СТАТИСТИЧЕСКИЙ РЕЗУЛЬТАТ и никакой дальнейшей обработки этой строки производиться не будет. За сим, мне по барабану, можно ли получить обратный результат и т.п.
P.P.P.S.
Этот текст я набирал сегодня в пять утра, так что возможна некоторая сумбурность. За это прошу прощения. Сейчас пришел с работы после бессонной ночи и собираюсь поспать.
← →
Anatoly Podgoretsky © ( 2007-11-12 11:53 ) [155]
> Andy BitOff (12.11.2007 10:21:34) [154]
> так что возможна некоторая сумбурность.
Хм, я думал, что у слова некоторая немного другое значение, это не некоторая, а большая ее половина.
← →
Andy BitOff © ( 2007-11-12 15:23 ) [157]
> Johnmen © (12.11.07 14:39) [156]
Попробуй прочитать еще раз.
Последние две строчки не правильно, потому что «зерно истины, предыдущий месяц», а там он уже январь, где 31 день.
> Andy BitOff © (12.11.07 15:23) [157]
Т.е. при заданной начальной дате в непрерывной казалось бы разнице дат возникают разрывы.
Не существует разницы 01.01.00! А также 00.01.00!
Как же так?
← →
Andy BitOff © ( 2007-11-12 19:08 ) [159]
Основы алгоритма, это изначальное вычитание дат, дабы узнать количество дней их разделяющих. И далее, начиная от заданной меньшей даты вычитать из общего количества дней, количество дней в «текущем» месяце, который изначально совпадает с наименьшей датой, а в последствии передвигается вперед по календарю до конечной даты.
← →
Andy BitOff © ( 2007-11-12 20:53 ) [161]
ЗЫ
Вопрос не имеет решения, т.к. уравнение с одним неизвестным.
Читай [154]:
P.P.S.
К тому же я уже говорил, что ЭТО КОНЕЧНЫЙ СТАТИСТИЧЕСКИЙ РЕЗУЛЬТАТ и никакой дальнейшей обработки этой строки производиться не будет. За сим, мне по барабану, можно ли получить обратный результат и т.п.
Может быть ты мне назовешь эту дату? 😉
> Andy BitOff © (12.11.07 20:53) [161]
> За сим, мне по барабану, можно ли получить обратный результат и т.п.
Не надо получать обратный результат. Просто скажи, какая дата там должна быть.
> Может быть ты мне назовешь эту дату? 😉
Нет, конечно! Это ты придумываешь алгоритмы, а не я.
← →
Andy BitOff © ( 2007-11-13 01:03 ) [164]