Imports System
Public Class Program
Public Shared Sub Main()
Dim date_string As String = "05-16-2023"
Dim user_date As Object = DateTime.ParseExact(date_string, "MM-dd-yyyy", System.Globalization.CultureInfo.InvariantCulture)
Dim last_date_of_year As Object = New DateTime(user_date.Year, 12, 31)
Dim days = (last_date_of_year - user_date).TotalDays
Console.Write(days)
End Sub
End Class
' run:
'
' 229
'