We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Sub convertNumMonthsToYearsandMonths(passedNumberOfMonths As Long, _ returnYearStr As String, _ returnMonthsStr As String) 'round Dim wkYears As Double Dim wkYearsInt As Long Dim wkMonths As Long ' If passedNumberOfMonths < 12 Then wkYears = 0 Else wkYears = Round(passedNumberOfMonths / 12, 2) End If wkYearsInt = CInt(wkYears) ' wkMonths = passedNumberOfMonths - (wkYearsInt * 12) ' returnYearStr = Trim(Str(wkYearsInt)) returnMonthsStr = Trim(Str(wkMonths)) ' End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.