내 머릿속 데이터베이스

생년월일을 입력하면 오늘까지 몇일이 되었는지 체크하는 함수이다. Function DayofAge(ByVal birthy As Integer, ByVal birthm As Integer, ByVal birthd As Integer) As Integer Dim str_temp As String Dim dte_day As Date str_temp = Str(birthy) & "-" & Str(birthm) & "-" & Str(birthd) dte_day = str_temp DayofAge = Date - dte_day End Function