Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];

Вниз

FА как вам такая задачка?   Найти похожие ветки 

 
MonStar   (2004-02-02 10:21) [0]

Мы на работе уже все головы сломали!!! Вопрос такой:
Например, подсчёт рабочего времени в проге, неважно откуда вытаскиваются цифры из БД или файла, если к 21:00:00 прибавить 6:00:00 (это время), то результат получится 3:00:00, как можно получить 27 часов или вывести это в день в уме????? Прежде чем давать ответ подумайте, у нас все сначала, да вот так, да этак, а потом задумались....(а программисты со стажем все, не одну серъёзную бухгалтерскую программу писали...)

Подскажите, вдруг у кого получится...

Заранее спасибо!


 
Islander   (2004-02-02 10:25) [1]

Берешь объект типа TDateTime и с ним оперируешь. Он тогда скажет: 1 день + 3 часа. Остюда в часы конвертировать проще пареной репы


 
Brahman   (2004-02-02 10:27) [2]

Зависит от того как Вы прибавляете: в формате Time или ином.
Нет никаких проблем.


 
Digitman   (2004-02-02 10:53) [3]


> Прежде чем давать ответ подумайте, у нас все сначала, да
> вот так, да этак, а потом задумались


галиматья какая-то ...


> а программисты со стажем все, не одну серъёзную бухгалтерскую
> программу писали


это заметно


> если к 21:00:00 прибавить 6:00:00 (это время), то результат
> получится 3:00:00, как можно получить 27 часов или вывести
> это в день в уме?????


как это - "в уме" ? а компьютер-то тогда зачем и причем здесь ?!

procedure TfrmMain.Button4Click(Sender: TObject);
const
t1: String = "21:00:00";
t2: String = "06:00:00";
var
dt: TDateTime;
hours: Integer; //всего часов
hour,
min, // всего минут
sec, // всего секунд
msec: Word;
begin
dt := StrToTime(t1) + StrToTime(t2);
decodetime(dt, hour, min, sec, msec);
hours := Trunc(dt) * 24 + hour;
... //форматируем результат : hours:min:sec
end;


 
Семен Сорокин   (2004-02-02 11:04) [4]

HoursBetween


 
icWasya   (2004-02-02 11:57) [5]

за окном четыре берёзы
на каждой берёзе семь веток
на каждой ветке три гнезда
в каждом гнезде пять ворон

спрашивается:

сможет ли дядя Вася за два рабочих дня сосчитать всех ворон?


 
MegaProf   (2004-02-02 13:08) [6]

Я даже не могу назвать себя программистом, стажа у меня нет вообще. Я даже не любитель, так новичок. Но эту задачку в DELPHI даже я решил без проблем.


 
Alexis   (2004-02-02 13:37) [7]

Цитата:"Например, подсчёт рабочего времени в проге, неважно откуда вытаскиваются цифры из БД или файла, если к 21:00:00 прибавить 6:00:00 (это время), то результат получится 3:00:00..."

Это в какой фирме по ночам работают? :)


 
Anatoly Podgoretsky   (2004-02-02 13:45) [8]

В ночном баре, но задачка из начальной школы.


 
blackman   (2004-02-02 17:16) [9]

"О разнице дат"
проблемы при вычитании дат и пути решения
Anatoly Podgoretsky

http://delphiclub.ru/forums/index.php?act=ST&f=3&t=283&s=121260b1cc425683ea495e429a589116



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.034 c
14-80291
Soft
2004-02-01 12:28
2004.02.25
Ученые раскрыли тайну русского алкоголизма


9-79524
Landgraph
2003-08-08 19:14
2004.02.25
OGG vs MP3


7-80310
hooky-mars
2003-12-04 21:59
2004.02.25
ESC принтера


14-80267
Danilka
2004-02-06 08:33
2004.02.25
Кому-нибудь еще приходят письма от www.ebay.com? :))


9-79538
Кен
2003-08-08 02:32
2004.02.25
Кто нибудь пробовал создавать миссии для Vice City ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский