Function ChnDHM(ByVal T As Date) As String
Dim D As Long, H As Long, M As Long
D = Int(T): T = T - D: H = Int(T * 24): T = T - H / 24: M = Round(T * 1440)
ChnDHM = D & "d" & Format(H, "00") & "h" & Format(M, "00") & "m"
End Function
Function HeuDHM(ByVal Z As String) As Date
Dim TSpl() As String, D As Long, H As Long, M As Long
TSpl = Split(Z, "d"): D = TSpl(0): TSpl = Split(TSpl(1), "h"): H = TSpl(0): M = Replace(TSpl(1), "m", "")
HeuDHM = D + TimeSerial(H, M, 0)
End Function