VPF::Проблема с DateTime - Форум программистов

Neox_GeForce

Дата 16.4.2011, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 14.11.2007
Где: Украина

Репутация: нет
Всего: нет

Есть две структуры DateTime.
Одна инициализуется а вторая нет.
Проблема с birthDate.

Код


program lab1;
uses crt,dos;

var
currentDate,birthDate:DateTime;
year,month,day:WORD;
currentYear,currentMonth,currentDay,dow:WORD;
h, m, s, hund : WORD;
currentTime,birthTime:LongInt;

BEGIN
ClrScr;
writeln('Please input your year XXXX:');
readln(year);
writeln('Please input your month XX:');
readln(month);
writeln('Please input your day XX:');
readln(day);
with birthDate do
begin
     Year    := year;
     Month   := month;
     Day     := day;
     Hour    := 0;
     Min     := 0;
     Sec     := 0;
end;
getDate(currentYear,currentMonth,currentDay,dow);
getTime( h, m, s, hund);
with currentDate do
begin
     Year    := currentYear;
     Month   := currentMonth;
     Day     := currentDay;
     Hour    := h;
     Min     := m;
     Sec     := s;

end;
with currentDate do
begin
    writeln('Year: ',Year);
    writeln('Month: ',Month);
    writeln('Day: ',Day);
    writeln('Hour: ',Hour);
    writeln('Min: ',Min);
    writeln('Sec: ',Sec);
end;
writeln;
with birthDate do
begin
    writeln('b Year: ',Year);
    writeln('b Month: ',Month);
    writeln('b Day: ',Day);
    writeln('b Hour: ',Hour);
    writeln('b Min: ',Min);
    writeln('b Sec: ',Sec);
end;
PackTime(currentDate, currentTime);
PackTime(birthDate, birthTime);

writeln('Difference: ');
writeln('difference in Time:',currentTime - birthTime);



readkey;
END.

Язык case-insensetive. Решение найдено.

Это сообщение отредактировал(а) Neox_GeForce - 16.4.2011, 15:46

--------------------

Челябинские программисты настолько суровы, что обходятся без компиляторов.
Челябинские программисты настолько суровы, что считают ассемблер недопустительной роскошью - они вручную магнетизируют участки жесткого диска.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »