|
Вопрос # 5 770/ вопрос открыт / |
|
Приветствую, уважаемые эксперты! У меня такая ситуация. Собираюсь для себя сделать не большую программу, которая считает сумму после этого должен показать время. Чтобы было понятно, я опишу все как есть. Имеется форма с тремя RadioButton-ами.Caption у первого RadioButton-будни, у второго Выходные. Тертьего пока неизвестно. И еще имееться один edit, один button. RadioButton будни получает переменную с числом 80 (это цена за один час игры). А я ввожу в edit например число 120 (это зависеть от клиентов). И потом когда я нажимаю button (рассчитать) в какой-нибудь label показывается число. Теперь как можно сделать так чтобы это число показалось так: 1 час 10 минут (примерно). Заранее большое всем спасибо!!!
 |
Вопрос задал: Beknur (статус: Посетитель)
Вопрос отправлен: 21 ноября 2011, 18:32
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 21 ноября 2011, 20:15; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 21 ноября 2011, 19:10 [#1]:
Ну, если оперировать типом TDateTime, то можно исспользовать DecodeTime() + IntToStr(), или FormatDateTime().
Извини, может я чего не понял. Вижу, что русский язык для тебя не родной. Напиши по-английски, если тебе это легче. Я пойму.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Beknur (статус: Посетитель), 21 ноября 2011, 19:33 [#2]:
min@y™: Англиский тоже не родной. Лучше я напишу сюда код можно?
procedure TForm1.Button1Click(Sender: TObject);
begin
b:=1.33;
v:=1.66;
d:=1;
s:=strtoint(edit1.Text);
if radiobutton1.Checked then
s:=s/b;
label3.caption:=FloatToStr(s);
if radiobutton2.Checked then
s:=s/v;
label3.caption:=FloatToStr(s);
if radiobutton3.Checked then
s:=s/d;
label3.caption:=FloatToStr(s);// вот эту строку нужно сделать например 1 час 10 минут
end;
Помогите плиз с кодом...
|
|
|
min@y™ (статус: Доктор наук), 21 ноября 2011, 19:44 [#3]:
Цитата (Beknur):
Англиский тоже не родной.
Так и для меня тоже. Но это ж, всё-таки, не китайский.
Цитата (Beknur):
Лучше я напишу сюда код можно?
Можно. Только я его не понимаю.
procedure TForm1.Button1Click(Sender: TObject);
begin
b:= 1.33; // это что
v:= 1.66; // за глобальные
d:= 1; // переменные?
s:= strtoint(edit1.Text); // и
// вообще,
if radiobutton1.Checked // что,
then s:= s/b; // блин,
// делает
label3.caption:= FloatToStr(s); // этот
// код?
if radiobutton2.Checked
then s:= s/v; // где
// комменты
label3.caption:=FloatToStr(s); // 1000
if radiobutton3.Checked // чертей!!!!
then s:=s/d;
label3.caption:=FloatToStr(s);
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Beknur (статус: Посетитель), 21 ноября 2011, 20:01 [#4]:
min@y™:
b:= 1.33; // это цена за минуту игры в будные дни
v:= 1.66; // это цена за минуту в выходные дни
d:= 1; // это пока что не нужно
s:= strtoint(edit1.Text); // здесь пишется цена вводимая мной
if radiobutton1.Checked // если включен первый радиобаттон
then s:= s/b; // здесь делятся на переменную b
label3.caption:= FloatToStr(s); // результат пишется на лэйбл
if radiobutton2.Checked
then s:= s/v; // здесь делятся на переменную v
label3.caption:=FloatToStr(s); // результат пишется на лэйбл
if radiobutton3.Checked // здесь делятся на
then s:=s/d; //переменную d
label3.caption:=FloatToStr(s); // результат пишется на лэйбл
Теперь мне хотелось бы чтобы резултать выводилась так: например 1 час 10 минут
|
|
|
min@y™ (статус: Доктор наук), 21 ноября 2011, 20:15 [#5]:
var
H, M, S, ms: Word;
begin
DecodeTime(Время_Типа_TDateTime, H, M, S, ms);
label3.caption:= Format('%d часов %d минут', [M, S]);
end;
Не знаю, правильно ли. У меня хреновое настроение, думать влом.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
21 ноября 2011, 21:48: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
