Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

2 in 1: Память, дата(время) [D7, WinXP]


weRUs ©   (2003-01-30 03:14:00) 

Доброго времения суток Господа Мастаки!
У меня два вопроса:
1. Как из одной даты вычесть другую и получить количество дней, часов, минут и т.д. (пример: 30.01.2003 - 29.01.2002 = 356 дней!и т.д.)

2. Программа состоит из 3 форм и 4 модулей, при этом 2 формы создаются и удаляются динамически (при этом оне не могут быть открыты одновременно). При запуске программы, она занимает 2,9-3,1Mb оперативной памяти после создания любой из динамических форм размер съеденнойоперативки возрастает до 6-6,5Mb и после закрытия (уничтожения динам. форм)
( Action:= caFree;
MyForm := nil;
)
не уменьшается...
В чем тут дело?


Spawn   (2003-01-30 09:14:00) [1]

1.DaysBeetwen() - возвpащает число полных суток моежду двумя датами
DaySpan() - возвращает действительное число, отражающее неполные сутки с учетом времени.

а так же есть:
MilliSecondsBeetwen()
MilliSecondSpan()
SecondsBeetwen()
SecondSpan()
MinutesBeetwen()
MinuteSpan()
HoursBeetwen()
HourSpan()
MonthBeetwen()
MonthSpan
YearBeetwen()
YearSpan()


Chubais   (2003-01-30 09:00:00) [2]


> 2 Используй MyForm.Close. MyForm - это указатель на объект,
> ты указателю присваеваешь nil.


> Action:= caFree;


ZeroDivide   (2003-01-30 08:40:00) [3]

1 Когда вычитаешь TDateTime, получаешь количество дней. /24 часов, /60 минут

2 Используй MyForm.Close. MyForm - это указатель на объект, ты указателю присваеваешь nil.


Наверх

Титульная страница Поиск, карта сайта Написать письмо