|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как из одной даты вычесть другую, чтобы получить период
У меня на форме 2 DateTimePicker'а (начало и конец)...Как получить Период??????
|
#2
|
|||
|
|||
Цитата:
допустим, надо вывести результат на метку label1 , то label1.Caption:=inttostr(((DateTimeToUnix(DateTime Picker2.Date))-(DateTimeToUnix(DateTimePicker1.Date)))div 86400); результат-период в днях Последний раз редактировалось 008agent, 20.05.2009 в 20:33. |
#3
|
|||
|
|||
Надо чтобы показывал....Сколько лет, сколько месяцев, сколько дней
|
#4
|
|||
|
|||
Можно вообще так????
|
#5
|
|||
|
|||
Цитата:
|
#6
|
||||
|
||||
А как ты это себе представляешь?
один год это сколько 365 или 366 дней? один месяц - 28 или 29 или 30 или 31 день? и как ты хочешь поиметь период в годах, месяцах и днях??? Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#7
|
|||
|
|||
Цитата:
повторяю . с днями и неделями просто. значения не меняются. неделя - 7 дней. вот и все а с годами и месяцами сложность |
#8
|
||||
|
||||
008agent, когда я писал ответ твоего сообщения еще не было видно
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#9
|
|||
|
|||
А если взять всё по среднему
Год - 365 Месяц - 30 ну и неделя - 7 |
#10
|
|||
|
|||
Цитата:
тогда намного проще |
#11
|
|||
|
|||
Ну ты знаешь как это осуществить????
|
#12
|
|||
|
|||
Цитата:
для простоты ставь 2 метки, 1 скрываешь. можешь и переменную типа string использовать. осуществляется это так label1.Caption:=inttostr(((DateTimeToUnix(DateTime Picker2.Date))-(DateTimeToUnix(DateTimePicker1.Date)))div 86400); Label2.Caption:='прошло'+inttostr(strtoint(Label1. Caption) div 365)+' лет, '+inttostr(((strtoint(Label1.Caption) mod 365) div 30)) +' месяцев, '+inttostr(((((strtoint(Label1.Caption) mod 365) mod 30))div 7))+' недель и '+inttostr((((((strtoint(Label1.Caption) mod 365) mod 30))mod 7))div 1)+' дней'; лучше переменную юзай |
#13
|
|||
|
|||
Спасиб...всё работает...проверил
|
#14
|
|||
|
|||
Цитата:
рад стараться |