#0
by Nag
была такая ветка, замутил ее я... Суть была в том, чтобы при поступлении пациента в поликлинику или больницу (ЛПУ короче) махом высвечивалась инфа о возрасте больного, с учетом младенцев, новорожденных и взрослых дядек. Заглянул ща в нее, из любопытства. Мой код корявее, но работает при любых раскладах. Может народ поищет баги и покажет на них? я пока не нашел. ЗЫ. Високосные года учитываюся...
#4
by Mort
Эта задача не имеет решения, т.к. количество дней в месяце различное, и любая такая прога может дать людям с одинаковым возрастом разное количество лет/месяцев/дней и наоборот.
#8
by Mort
Угу. Учитель, посчитай скока будет твоим алгоритмом месяцев и дней с 31.01.99 по 01.03.99
#10
by Токс
Пиля, жил не думал... оказывается 10000 недавно прохлопал... Теперь вот вспоминай, отпраздновал или нет...
#11
by Nag
Ага, критиканы... Мой код работает корректно. Длина кода может для Вас и имеет значение (изящество так сказать) только я что то в кол-во лет не наблюдаю... А по четко получаю, 0 лет, 1 месяц, 1 день. Так и должно быть. 28.02.99 человеку исполняется 1 полный месяц, и + 1 день.
#12
by Nag
Там же медики. Для них любая букмажка важна. И если по календарю человеку 1 год и 1 месяц (КАЛЕНДАРНО!!!) то так в истории и пишут. А для младенцев вообще труба. Там еще кол-во дней, и от этого зависит, новорожденный или нет.
#13
by Mort
Но всё равно если челу 29 дней - то если ему повезло родится 1 февраля ему 1 месяц и 1 день. А если 1-го марта (или апреля)) ) - тока 29 дней..
#20
by вот от ЗиКа
Процедура глРазобратьРазностьДат(Знач Дата1,Знач Дата2,Лет=0,Месяцев=0,Дней=0) Экспорт
#22
by Nag
01.03.06-01.03.06 выдает что человеку 1 день. Торопыга ты... Код перепроверять надо, а потом валить на головы сообщества. Ему 1 день будет 02.03.06.
#27
by Nag
Как хошь, так и смотри. Если человек родился 01.01.01., тогда ему один день исполнится 02.01.01. Точка.
#35
by Nag
Календарный месяц ему исполнится 01.04. Что за безграмотные люди! К А Л Е Н Д А Р Н Ы Й !!!!!!
#36
by Долорес Ибаррури
да расслабься ты, все равно у меня код лучше :) а если хочешь, чтоб считалось по-твоему, убери "+1" во второй строчке функции, там где "дней =..." кстати, можешь использоваать мою функцию для проверки своей.
#37
by Nag
Уже проверил. Может твой и лучше, тока я сюда захожу не пи... меряться, а за идеями, как что либо сделать лучше, и поискать баги в своих обработках. Твой код проверю по все режимам (там високосный, еще что нить... ) может и заменю свою, а может нет. Моя проверена во всех режимах и уже крутится в 3 отделениях больницы. Там махонькая самописная база (пока лежал, накидал им...). Пока врачам нравиться. Кстати, реальный код имеет другие переменные (они покороче) и ужат до невозможности. Эту "простыню" я выволок из флешки, там она отрабатывалась...
#38
by Долорес Ибаррури
:) ладно, извини, я сама не проверивши начала вопить пля! кстати, тоже хорошо, что выложила: нашли баг.
#41
by Nag
(ок) В общем ты права. В больнице я лежал и лабал код на их машине по ночам, поэтому он тоже не везде удачный... Всем пока. Бабло за Internet мне пока никто мешками не шлет...
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям
Похожие вопросы 1С
- Вычислить количество месяцев между двумя датами.
- Количество полных лет, месяцев, дней в запросе?
- Как в 1С можно точно вычислить, скока человеку лет, месяцев, дней?
- Как вычислить разность дат в запросе ?
- СКД: Как в СКД вычислить параметр - месяц назад от текущей даты?
- Расчет % внутри колонки (функция Вычислить / Вычислить выражение)
В этой группе 1С
- ут 8.0 Где и как установить минимальный остаток номенклатуры на складе
- Вставка таблицы в Word
- Долг по ндфл на конец года
- Зик. Штатное расписание. Вилку нужно сделать периодической
- Как найти документ основание подчиненного документа?
- OFF: Как Nokia6100 шнурком к компу подцепить?
- Как найти печатную форму для документа ?
- Ошибка при перегрузке Buffer overflow
- Документ реализация товаров и услуг не делает бухгалтерские проводки УПП
- Какой программой открыть файлы с расширением "arj"
- Открыть в 1С *.mxl программно..
- 1C77 вылетает в терминале win2003 :(
- Помогите найти многоуровневый каталог номенклатуры продуктов
- Доступ в 1с 7.7 через web интерфейс. Как лучше организовать?
- Смена порядка субконто в плане счетов
- ЗиК, начисление дивидендов.
- v8 нумерация строк в запросе
- Как убрать дату в книге продаж
- Как ускорить работу 1С в терминальном режиме
- Изменить вид указателя мыши?