Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.045 c
9-79531
Norlin
2003-08-06 23:25
2004.02.25
DelphiX и спрайты


1-79794
SergeyV
2004-02-13 14:30
2004.02.25
Отрисова формы по ходу обработки данных


1-80005
Max_Ivanych
2004-02-13 10:13
2004.02.25
Как отловить дескриптор окна DOS-программы?


1-79800
RUS
2004-02-11 15:55
2004.02.25
Как преобразовать текстовый фал DOS?


7-80313
Shiza
2003-12-03 13:54
2004.02.25
Скорость CD





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский