Возможные варианты:
'using standard timespan format strings
Dim formattedTime = time.ToString("g")
Вывод: [Дни] 1: 15: 45: 08 - [Часы] 2: 56: 23
Этот параметр не включает теги для d
, h
, m
, s
.
Однако он обрабатывает все форматирование для вас.
'using custom timespan format strings
Dim format as String = String.Empty
If time >= TimeSpan.FromDays(1) Then
format = time.ToString("d\d\:hh\h\:mm\m\:ss\s")
Else
format = time.ToString("hh\h\:mm\m\:ss\s")
End If
Вывод: [Дни] 1д: 15ч: 45м: 08с - [Часы] 2ч: 56м: 23с
Подробнее об этом формате вы можете узнать здесь