Wish DateUtils .Period type total values

plMinutes = poPeriod.Minutes + (poPeriod.Hours * 60) + (poPeriod.Months * 43800) + (poPeriod.Years * 525600)

' VB.NET CODE : Define two dates.
Dim date1 As Date = #1/1/2010 8:00:15AM#
Dim date2 As Date = #8/18/2010 1:30:30PM# ' Calculate the interval between the two dates.
Dim interval As TimeSpan = date2 - date1
Console.WriteLine("{0} - {1} = {2}", date2, date1, interval.ToString())
' Display individual properties of the resulting TimeSpan object.
Console.WriteLine(" {0,-35} {1,20}", "Value of Days Component:", interval.Days)
Console.WriteLine(" {0,-35} {1,20}", "Total Number of Days:", interval.TotalDays)
Console.WriteLine(" {0,-35} {1,20}", "Value of Hours Component:", interval.Hours)
Console.WriteLine(" {0,-35} {1,20}", "Total Number of Hours:", interval.TotalHours)
Console.WriteLine(" {0,-35} {1,20}", "Value of Minutes Component:", interval.Minutes)
Console.WriteLine(" {0,-35} {1,20}", "Total Number of Minutes:", interval.TotalMinutes)
Console.WriteLine(" {0,-35} {1,20:N0}", "Value of Seconds Component:", interval.Seconds)
Console.WriteLine(" {0,-35} {1,20:N0}", "Total Number of Seconds:", interval.TotalSeconds)
Console.WriteLine(" {0,-35} {1,20:N0}", "Value of Milliseconds Component:", interval.Milliseconds)
Console.WriteLine(" {0,-35} {1,20:N0}", "Total Number of Milliseconds:", interval.TotalMilliseconds)
Console.WriteLine(" {0,-35} {1,20:N0}", "Ticks:", interval.Ticks)
' The example displays the following output: ' 8/18/2010 1:30:30 PM - 1/1/2010 8:00:15 AM = 229.05:30:15
' Value of Days Component: 229
' Total Number of Days: 229.229340277778
' Value of Hours Component: 5
' Total Number of Hours: 5501.50416666667
' Value of Minutes Component: 30
' Total Number of Minutes: 330090.25
' Value of Seconds Component: 15
' Total Number of Seconds: 19,805,415
' Value of Milliseconds Component: 0
' Total Number of Milliseconds: 19,805,415,000
' Ticks: 198,054,150,000,000

Dim dt1 As Long = DateTime.DateTimeParse("03/24/2017", "00:00:00")
Dim dt2 As Long = DateTime.DateTimeParse("03/25/2017", "00:00:00")
Dim hoursBetween As Double = (dt2 - dt1) / DateTime.TicksPerHour
Log(hoursBetween) 'correctly prints 23

DateTime dt = DateTime.Parse("3/24/2017 0:00:00 AM");
  DateTime dt2 = DateTime.Parse("3/25/2017 0:00:00 AM");
  TimeSpan ts = dt2 - dt;
  Console.WriteLine(ts.TotalHours);

Dim ptPreDST As Date = DateTime.Parse("3/12/2017 00:00:00 AM")  'DST day north america
Dim ptPostDST As Date = DateTime.Parse("3/13/2017 00:00:00 AM")
Dim poTS As TimeSpan = ptPostDST.ToUniversalTime.Subtract(ptPreDST.ToUniversalTime)
Debug.Print("total hours = " & poTS.TotalHours)