Search results

Private Sub Form_Current() Dim strPathPhoto As String 'file drawing to place in root directory 'strPathPhoto - full way to drawing 'Photo - image control strPathPhoto = CurrentProject.Path & "\Photo_1.jpg" If Dir(strPathPhoto) <> "" Then Photo.Picture = strPathPhoto...

Amount of full years between dates Function CalcAge(dteStart As Date, dteEnd As Date) As Long Dim lngAge As Long lngAge = DateDiff("yyyy", dteStart, dteEnd) If DateSerial(Year(dteEnd), Month(dteStart), Day(dteStart)) > dteEnd Then lngAge = lngAge - 1 End If CalcAge = lngAge...