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

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

как узнать сколько дней прошло, например, с 12.11.1956 года? [D7, WinXP]


ilnarab ©   (2004-09-05 20:58:00) 

Здравствуйте!
Подскажите пожалуйста: как узнать сколько дней прошло, например, с 12.11.1956 года?


Rule   (2004-09-06 08:49:00) [1]

Да блин чего за велосипеды вы тут придумываете, смотрите пост
Семен Сорокин ©   (05.09.04 21:12) [3]
там все четко и ясно написано


fd979   (2004-09-05 22:40:00) [2]

Var
 Date_ : Double;
begin
//1 вариант
 Date_ := Date - StrToDate('твоя дата в строковом формате');
 ShowMessage(DateTOStr(Date_)); - просто покажет кол-во дней между датами...
// Date_ можно использовать как угодно
//2 варинт
> Семен Сорокин ©   (05.09.04 21:12) [3]


end;


Семен Сорокин   (2004-09-05 22:27:00) [3]

{$IFDEF offtop}
2Sheng
тезка по ДР :)
{$ENDIF}


Семен Сорокин   (2004-09-05 22:25:00) [4]

>DateToStr('12.11.1956')
EncodeDate(1956, 11, 12)
:)


Sheng   (2004-09-05 22:24:00) [5]

сорри, StrToDate


Sheng   (2004-09-05 22:23:00) [6]

А можно и так:

var oldDate: TDateTime;
nDays := Trunc(Now-oldDate);

или

nDays := Trunc(Now-DateToStr('12.11.1956'));


Семен Сорокин   (2004-09-05 21:12:00) [7]

uses
 DateUtils;

DaysBetween()


Jus   (2004-09-05 21:06:00) [8]

А хр..н его знает. Хотел сам сделать, чтоб показывало сколько дней осталось до того момента когда мне наконец вернут права, думал, думал... надоело!)


SammIk   (2004-09-05 21:00:00) [9]

Календарь в руки и вперед


Наверх

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