[table="width: 500"]
[tr]
[td]Function DHM2M(S As String) As Long
DHM2M = Evaluate(Replace(Replace(Replace(Replace(S, "s", "", , , vbTextCompare), "Day", "*1440+", , , vbTextCompare), "Hour", "*60+"), "Minute", "+") & "0")
End Function[/td]
[/tr]
[/table]