ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вывести прошедшее от события время красиво
25 сообщений из 31, страница 1 из 2
  1  все
Вывести прошедшее от события время красиво
    #40103824
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
В Delphi есть что-то готовое, что покажет, сколько лет/месяцев/дней/часов/минут прошло?

Я имею в виду формат вывода. Например, если 0 лет прошло, то чтобы "0 лет" не выводилось на экран, а просто месяцев/дней/часов/минут.
Нужно красиво выводить uptime сервера.
И не очень хорошо смотрится что-то типа: "прошло 0 лет 0 месяцев 1 дней 0 часов 1 минута".
Куда красивей что-то типа: 1 д 5:32 или 2 мес 15 д 23:18 . Ну или как там общепринято выводить uptime сервера?
...
Рейтинг: 0 / 0
12.10.2021, 15:29
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103826
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
пока вот сам написал, просто в днях показываю, ьбудет например, 733 дн, 23:12
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
function TUniServerModule.GetServerUptime: String;
Var
 AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond, db: Word;

 r: string;
 fs: TFormatSettings;
begin
  DecodeDateTime(Now - StartTime, AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);

  db := DaysBetween(Now, StartTime);

  r := db.ToString + ' дн.';

  result := r + ', ' + AHour.ToString + fs.TimeSeparator + AMinute.ToString + ', start: ' + DateTimeToStr(StartTime);
end;
...
Рейтинг: 0 / 0
12.10.2021, 15:34
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103829
Фотография Maxim Rusov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim Rusov
Участник
Result := TTimeSpan.Subtract(Now, StartTime).ToString
...
Рейтинг: 0 / 0
12.10.2021, 15:43
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103833
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
и снова Find unit ничего не знает про свои библиотеки

в справке нашел System.TimeSpan
...
Рейтинг: 0 / 0
12.10.2021, 15:51
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103834
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
а как убрать миллисекунды?
просто обрезать?
...
Рейтинг: 0 / 0
12.10.2021, 15:54
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103836
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
X11,

Открой для себя FormatDateTime.
...
Рейтинг: 0 / 0
12.10.2021, 15:58
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103837
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
я боюсь, она будет выводить "0 лет"
...
Рейтинг: 0 / 0
12.10.2021, 16:01
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103838
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
аааа, вместо ToString ?
...
Рейтинг: 0 / 0
12.10.2021, 16:02
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103840
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
В этом духе.

Код: pascal
1.
2.
3.
4.
5.
    if trunc(T)>0 then begin
      Result:=trunc(T*24).ToString+FormatDateTime(' ч nn м',T));
    end else begin
      Result:=FormatDateTime('hh ч nn м',T));
    end;
...
Рейтинг: 0 / 0
12.10.2021, 16:05
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103844
Aniskin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aniskin
Гость
Есть еще StrFromTimeInterval из WinApi.
...
Рейтинг: 0 / 0
12.10.2021, 16:09
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103845
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Aniskin,

спасибо, но WinApi не подходит мне
...
Рейтинг: 0 / 0
12.10.2021, 16:13
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103851
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
  
var
 ts: TTimeSpan;
begin
 ts := TTimeSpan.Subtract(Now, EncodeDateTime(2017, 5, 30, 12, 55, 20, 555));
result := 'uptime: ' + ts.Days.ToString + ' дн ' + ts.Hours.ToString + ' ч ' + ts.Minutes.ToString + ' мин';



вроде норм
пусть будет пока так
...
Рейтинг: 0 / 0
12.10.2021, 16:33
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103897
Fr0sT-Brutal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fr0sT-Brutal
Гость
X11
Код: pascal
1.
2.
3.
4.
5.
6.
  
var
 ts: TTimeSpan;
begin
 ts := TTimeSpan.Subtract(Now, EncodeDateTime(2017, 5, 30, 12, 55, 20, 555));
result := 'uptime: ' + ts.Days.ToString + ' дн ' + ts.Hours.ToString + ' ч ' + ts.Minutes.ToString + ' мин';



вроде норм
пусть будет пока так


То есть таки будет "0 дн" ?
...
Рейтинг: 0 / 0
12.10.2021, 18:56
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40103899
Fr0sT-Brutal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fr0sT-Brutal
Гость
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
const
  // Шаблоны для представления интервалов в удобоваримом виде
  RightNowLbl = 'меньше минуты';
  MinsPatt = '%d мин';
  HoursMinsPatt = '%d ч %.2d мин';
  DaysHoursMinsPatt = '%d д ' + HoursMinsPatt;

// Форматирует количество минут, прошедших с момента AFrom до момента ATo.
// Если AFrom нулевое - возвращает "Нет" (процесс не был начат)
function FormatMinutesSince(AFrom, ATo: TDateTime): string;
var Mins: Integer;
begin
  if AFrom = 0 then Exit(NoneLbl);
  Mins := Abs(MinutesSince(AFrom, ATo));
  case Mins of
    0:
      Result := RightNowLbl;
    1..MinsPerHour-1:
      Result := Format(MinsPatt, [Mins]);
    MinsPerHour..MinsPerDay-1:
      Result := Format(HoursMinsPatt, [Mins div MinsPerHour, Mins mod MinsPerHour])
    else
      Result := Format(DaysHoursMinsPatt, [Mins div MinsPerDay, (Mins mod MinsPerDay) div MinsPerHour, Mins mod MinsPerHour]);
  end;
end;
...
Рейтинг: 0 / 0
12.10.2021, 18:58
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40104085
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
function GetServerUptime: String;
Var
 ts: TTimeSpan;
begin
  ts := TTimeSpan.Subtract(Now, StartTime);

  result := 'uptime: ' + ifthen(ts.Days > 0, ts.Days.ToString + ' дн ', '') +
                           ifthen(ts.Hours > 0, ts.Hours.ToString + ' ч ', '') +
                           ifthen(ts.Minutes > 0, ts.Minutes.ToString + ' мин', 'меньше минуты');
end;
...
Рейтинг: 0 / 0
13.10.2021, 12:51
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40104211
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
X11,

26:00 -> "1 дн 2 ч меньше минуты"?..
...
Рейтинг: 0 / 0
13.10.2021, 19:42
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40104377
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
X11
Код: pascal
1.
ifthen

Ты же знаешь, что все аргументы вычисляются до вызова функции?
...
Рейтинг: 0 / 0
14.10.2021, 13:39
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40104391
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
не понял, в чем проблема с аргументами?
...
Рейтинг: 0 / 0
14.10.2021, 14:06
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40104394
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
alekcvp,
...
Рейтинг: 0 / 0
14.10.2021, 14:14
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40104405
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x1ca4064
Участник
_Vasilisk_
X11
Код: pascal
1.
ifthen

Ты же знаешь, что все аргументы вычисляются до вызова функции?


С ifthen есть тонкий момент: начиная с какой-то версии Дельфи, функция объявлена как inline, что должно приводить к корректности такого кода:
Код: sql
1.
  ifthen(x=0,0,100 div x)



Сейчас не помню, но на каком-то трансляторе (D10 или FPC) это работало.
...
Рейтинг: 0 / 0
14.10.2021, 14:27
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40104432
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
x1ca4064
С ifthen есть тонкий момент: начиная с какой-то версии Дельфи, функция объявлена как inline, что должно приводить к корректности такого кода

Это сработает только если первый аргумент константный. Но в этом случае никакой ifthen не нужен.
...
Рейтинг: 0 / 0
14.10.2021, 15:09
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40104465
Фотография Maxim Rusov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim Rusov
Участник
x1ca4064,

Забавно, но на практике - слабо применимо. Так уже не работает

Код: pascal
1.
N = ifthen(MyList=nil, 0, MyList.Count);



Выглядит скорее как ошибка кодогенерации, чем реально полезная фича.
...
Рейтинг: 0 / 0
14.10.2021, 15:44
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40104492
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
по-хорошему то из IfThen полноценный тернар бы запилили. было бы всем удобнее
...
Рейтинг: 0 / 0
14.10.2021, 16:24
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40104549
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
makhaon
по-хорошему то из IfThen полноценный тернар бы запилили. было бы всем удобнее

+100500
поддерживаю !
...
Рейтинг: 0 / 0
14.10.2021, 19:38
| Ответить | Цитировать | Написать  
Вывести прошедшее от события время красиво
    #40114796
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Почему-то дни не показывает, т.е. получается, что ts.Days всегда возвращает меньше 0.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
function TUniServerModule.GetServerUptime: String;
Var
 ts: TTimeSpan;
begin
// время работы сервера без перезагрузки
  ts := TTimeSpan.Subtract(Now, StartTime);

  result := '<i class="fas fa-clock"></i> ' + constUptimeServer + ' ' + ifthen(ts.Days > 0, ts.Days.ToString + ' ' + constUptimeDays + ' ', '') +
                           ifthen(ts.Hours > 0, ts.Hours.ToString + ' ' + constUptimeHours + ' ', '') +
                           ifthen(ts.Minutes > 0, ts.Minutes.ToString + ' ' + constUptimeMinutes, constUptimeMin);
end;



Сервер работает уже несколько дней. А функция сейчас показывает 23 часа 3 мин.
...
Рейтинг: 0 / 0
25.11.2021, 11:45
| Ответить | Цитировать | Написать  
25 сообщений из 31, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вывести прошедшее от события время красиво
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=40104394&tid=2036841]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 65ms
get tp. blocked users:
 2ms
others: 290ms
total:  441ms
созд. / загр.: 441ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]