Imports System
Public Class SecondsBetweenTwoDates
Public Shared Sub Main()
Dim startDate As DateTime = New DateTime(2025, 1, 12)
Dim endDate As DateTime = New DateTime(2025, 1, 13)
Dim timeDifference As TimeSpan = endDate - startDate
Dim totalSeconds As Double = timeDifference.TotalSeconds
Console.WriteLine($"The number of seconds between the two dates is: {totalSeconds}")
End Sub
End Class
' run:
'
' The number of seconds between the two dates is: 86400
'