смена формата отображения разницы дат

k85 · 29.09.2023

у меня есть две
Date1 - дата создания
Time1 - время создания

Date2 - дата записи в журнал
Time2 - время записи в журнал

и время разницы между записью в журнал и созданием, измеряется в часах

Код:

@Round(((Date2 - Date1) + (Time2 - Time1)) / 3600 ; 0,01)

отображается 24,14 например . а хотелось бы получить результат в виде "24часа 10мин"
можно ли как-то разницу отобразить в читаемом виде?

savl · 30.09.2023

На знаю как на формулах, но на скрипте вот так можно.
Можно попробовать на формулы просто переписать.

*******
Будет запись вида: "02:14:36" (чч:мм:сс)

allTime - это Разниц между двумя датами, NotesDateTime.TimeDefference(NotesDateTime)

Visual Basic:

Function getTimeTextString(allTime As Long) As String
    On Error Goto handler
    
    Dim allh As Long
    Dim allm As Long
    Dim alls As Long
    
    allh = 0
    allm = 0
    alls = 0
    
    allh = (allTime)\3600
    allm = (allTime - (allh*3600))\60
    alls = (allTime - (allh*3600) - (allm*60))
    
    getTimeTextString = allh & {:} & allm & {:} & alls
    
endh:
    Exit Function
handler:
    Error Err, {getTimeTextString, line: } & Erl & {, Error: (} & Err() & {)} & chr(10) & Error$
End Function

lmike · 30.09.2023

если глобально смотреть на вопрос

есть ICU для отображения с буковками...
вот только в домине оно протухшее, а степень зависит от версии домины/нотусни

и Calendar класс для манипуляций с датами (через LS2J например)

garrick · 02.10.2023

@Text не подойдёт?

Ссылка скрыта от гостей

k85 · 02.10.2023

garrick сказал(а):
@Text не подойдёт?

Ссылка скрыта от гостей

может и подходит, не могу пока сообразить. есть например 2,45 , но это не 2 часа и 45 мин, а как это перевести в минуты я пока не могу понять

VladSh · 02.10.2023

k85 сказал(а):
есть например 2,45 , но это не 2 часа и 45 мин, а как это перевести в минуты я пока не могу понять

45 - это минуты и секунды в десятичном представлении (назовём их md).

Пропорция будет выглядеть как-то так:

100 - 60
md - mm

mm = md * 60 / 100

Целая часть из mm - это количество минут.

Дробная часть из mm - это секунды в десятичном представлении (назовём их sd), которые точно также можно перевести во время:

100 - 60
sd - ss

ss = sd * 60 / 100.

ss - количество секунд, которое можно просто округлить алгоритмом round5 до целого числа.

Вроде так. Но я не уверен))

garrick · 03.10.2023

Код:

@If(field1=null | field2=null; @Return(""); "");
seconds := field1-field2;
hours := @Integer(seconds/3600);
minutes := @Modulo(@Integer(seconds/60); 60);
output := @Right("00" + @Text(hours); 2) + ":" + @Right("00" + @Text(minutes); 2);
@setfield("field3"; output);
@Command([ViewRefreshFields]);
""

Подсмотрено тут

Ссылка скрыта от гостей

garrick · 03.10.2023

Ещё вариант - возвращает количество дней между датами

Код:

@Abs(@Integer((Date2- Date1) / (86400)))

k85 · 03.10.2023

garrick сказал(а):
Код:

@If(field1=null | field2=null; @Return(""); ""); seconds := field1-field2; hours := @Integer(seconds/3600); minutes := @Modulo(@Integer(seconds/60); 60); output := @Right("00" + @Text(hours); 2) + ":" + @Right("00" + @Text(minutes); 2); @setfield("field3"; output); @Command([ViewRefreshFields]); ""

Подсмотрено тут
Ссылка скрыта от гостей

оо, так классно вышло, но вот все равно не пойму

Код:

field0:= @Round((Date2 - Date1)  / 3600; 0,1) ;
field1:=@If (   Time2 !=""  ;   Time2  ; null );
field2:=@If (   Time1 !=""  ;   Time1  ; null );

@If(field1=null | field2=null; @Return(""); "");

seconds := field1-field2;
hours0 := @Integer(seconds/3600);
hours := hours0+field0;
minutes := @Modulo(@Integer(seconds/60); 60);
output := @Right("00" + @Text(hours); 2) + ":" + @Right("00" + @Text(minutes); 2);
output

Date2- 03.10.2023 / Time2- 15:08:47
Date1- 02.10.2023 / Time1- 23:20:00

почему разница 16:11 ? должно ж быть 15:49

если
Date2- 03.10.2023 / Time2- 15:08:47
Date1- 03.10.2023 / Time1- 03:20:00

то выйдет 11:48

и если разница больше суток
Date2- 03.10.2023 / Time2- 15:08:47
Date1- 02.10.2023 / Time1- 14:20:00

то выйдет 24:48

garrick · 04.10.2023

16:11 может из-за округления так получается

Тут

Ссылка скрыта от гостей

получается 16 часов 8 минут 47 секунд

Другой вариант

Ссылка скрыта от гостей

говорит

0 года/лет, 0 мес., 0 сут., 16 час., 8 мин., 47 сек.
Или 0 мес., 0 нед., 0 сут., 16 час., 8 мин., 47 сек.
Или 0 нед., 0 сут., 16 час., 8 мин., 47 сек.
Или 0 сут., 16 час., 8 мин., 47 сек.
Или 16 час., 8 мин., 47 сек.
Или 968 мин., 47 сек.
Или 58127 сек.

и если разница больше суток
Date2- 03.10.2023 / Time2- 15:08:47
Date1- 02.10.2023 / Time1- 14:20:00
то выйдет 24:48

если килограммы складывать с килограммами автоматически тонны не получатся, нужно самому преобразовывать. Если output больше 24 добавить преобразование к дням... дальше можно добавлять недели, месяцы, года и т.д. и надо ещё помнить про февраль, високосные года и перевод времени (в некоторых странах). Короче, это всё непростой вопрос.

garrick · 04.10.2023

k85 сказал(а):
если
Date2- 03.10.2023 / Time2- 15:08:47
Date1- 03.10.2023 / Time1- 03:20:00

то выйдет 11:48

Ссылка скрыта от гостей

11 часов 48 минут 47 секунд

k85 · 04.10.2023

garrick сказал(а):
16:11 может из-за округления так получается

Тут
Ссылка скрыта от гостей
получается 16 часов 8 минут 47 секунд

Другой вариант
Ссылка скрыта от гостей
говорит

0 года/лет, 0 мес., 0 сут., 16 час., 8 мин., 47 сек.

Или 0 мес., 0 нед., 0 сут., 16 час., 8 мин., 47 сек.

Или 0 нед., 0 сут., 16 час., 8 мин., 47 сек.

Или 0 сут., 16 час., 8 мин., 47 сек.

Или 16 час., 8 мин., 47 сек.

Или 968 мин., 47 сек.

Или 58127 сек.

если килограммы складывать с килограммами автоматически тонны не получатся, нужно самому преобразовывать. Если output больше 24 добавить преобразование к дням... дальше можно добавлять недели, месяцы, года и т.д. и надо ещё помнить про февраль, високосные года и перевод времени (в некоторых странах). Короче, это всё непростой вопрос.

странно, но реально так на всех калькуляторах времени считает

VladSh · 05.10.2023

k85 сказал(а):
Код:

@Round(((Date2 - Date1) + (Time2 - Time1)) / 3600 ; 0,01)

А что, отнимать сначала даты друг от друга, а потом время, и потом складывать результат, разве корректно? Мне кажется надо получить даты с временем и тогда уже брать разницу.

k85 · 05.10.2023

VladSh сказал(а):
А что, отнимать сначала даты друг от друга, а потом время, и потом складывать результат, разве корректно? Мне кажется надо получить даты с временем и тогда уже брать разницу.

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

lmike · 05.10.2023

k85 сказал(а):
не могу найти как дату и время соединить , чтобы потом отнимать

в NotesDateTime

garrick · 06.10.2023

k85 сказал(а):
не могу найти как дату и время соединить , чтобы потом отнимать

На собаках

Ссылка скрыта от гостей

Код:

@TextToTime("06.10.2023 09:41")

Формат даты/времени должен быть как настроено в операционке.

lmike · 06.10.2023

garrick сказал(а):
На собаках
Ссылка скрыта от гостей

Код:

@TextToTime("06.10.2023 09:41")

Формат даты/времени должен быть как настроено в операционке.

еще есть

Ссылка скрыта от гостей

k85 · 09.10.2023

VladSh сказал(а):
А что, отнимать сначала даты друг от друга, а потом время, и потом складывать результат, разве корректно? Мне кажется надо получить даты с временем и тогда уже брать разницу.

точно, так вышло, пока тестирую разные комбинации, но вроде все правильно

Все сервисы Codeby

Поиск

Поиск

смена формата отображения разницы дат

k85

savl

lmike

нет, пердело совершенство

garrick

k85

VladSh

начинающий

garrick

garrick

k85

garrick

garrick

k85

VladSh

начинающий

k85

lmike

нет, пердело совершенство

garrick

lmike

нет, пердело совершенство

k85