EDate   = 201904041901
EDueDate= %A_Now%
EnvSub EDate, EDueDate, S
MsgBox % GetFormatedTime(EDate) 

GetFormatedTime(_seconds)
{
   local x, t, ft
   static units

   If (_seconds = 0)
      Return "0 seconds"
   units = day.hour.minute.second
   Loop Parse, units, .
   {
      x := A_Index = 1 ? 24 * 3600 : 60**(4 - A_Index)
      t := _seconds // x
      _seconds -= t * x
      If (t != 0)
         ft .= t . " " . A_LoopField . (t = 1 ? "" : "s") . (A_Index = 4 ? "" : " ")
   }
   Return ft
}

Объясняю.. Есть некое время, допустим 31 день и в окне gui где нибудь сверху каждый час считывается.. допустим ;
Осталось: 30д 23ч.