Imports System

imports Microsoft.VisualBasic

Public Module Module1   

    Public Sub Main()

        Dim hoy as DateTime = "#06/14/2022 12:00:00#"

        Dim dob as DateTime = "#06/16/1982 12:00:00#"

        Console.Writeline(datediff(DateInterval.Day,dob,hoy) / 365)

        Console.WriteLine(datediff(DateInterval.Day,dob,hoy) / 365.25)

​

    End Sub

End Module

​

​