ขอสูตรในการคำนวนอายุการทำงานตั้งแต่วันที่เข้าจนถึงวันปัจจุบันค่ะ

Dim beginwork As String = txt_beginwork.Text
        Dim DateNow As String = CStr(Format(Date.Today(), "dd/MM/yyyy"))
        Dim Day As String = CStr(DateDiff(DateInterval.Day, CDate(beginwork), CDate(DateNow)))
        Dim Month As String = CStr(DateDiff(DateInterval.Month, CDate(beginwork), CDate(DateNow)))
        Dim Year As String = CStr(DateDiff(DateInterval.Year, CDate(beginwork), CDate(DateNow)))