[Maagistr]

Здравствуйте! Помогите пожалуйста реализовать windows-приложение, которое с использованием введенных пользователем целого числа k, вещественного числа а (с 4 знаками после запятой) и даты d, выводит 2 строки:

Строка 1: «Округленное число а, можно записать с использованием k позиций: … » (если символьное представление содержит меньше k цифр, оно дополняется слева символами 0).

Строка 2: «Между датой d и сегодняшней ровно … дней. Сейчас: ч:мин. Это равно … миллисекунд».

Указание. Для ввода даты должен быть использован компонент DateTimePicker.
Должны быть реализованы проверка правильности ввода и обработка некорректного ввода.
Для вывода результата должен быть использован компонент Memo.
Для получения результата в требуемом виде должны быть использованы функции форматирования.

Заранее благодарен.

[lmikle]

200 р на Yandex.Деньги и бу готово
Ну или пишешь сам и спрашиваешь то, что не получается, т.е. конкретные вопросы.

[Electronic_Arts]

Тебе надо брат дату с DateTimePicker разделить на дни месяцы годы
так же и реальную дату - тоже разделить - потом есть такая функция DaysBetween называеться спомошю его считать сколько дней осталось от даты до даты

Я написал программу которое тебе нужно - но вижу как наш модер говорит ты ничего не хочешь сделать....по этому я помогу тебе только с определением секунд

Код:

y:=TimeToStr(now);
hour:=Copy(y,1,pos(':',y)-1); delete(y,1,pos(':',y));
min:=Copy(y,1,pos(':',y)-1); delete(y,1,pos(':',y));
sec:=y;
x:=strtoint(hour)*3600+strtoint(min)*60+strtoint(sec);

[Electronic_Arts]

Далее уже не трудно будет надеюсь...

[dr. F.I.N.]

Сообщение от Electronic_Arts

Код:

y:=TimeToStr(now);
hour:=Copy(y,1,pos(':',y)-1); delete(y,1,pos(':',y));
min:=Copy(y,1,pos(':',y)-1); delete(y,1,pos(':',y));

Зачем такие сложности? Есть же уже все готовое:

Код:

procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);