Sæll.
hérna eru tvö function. Annað nær í fæðingar dag úr kennitölu og hitt reiknar út aldur. Athugaðu að þau “validate'a” ekki kennitöluna sjálfa, athuga bara hvort hún sé númer og se 10 tölustafir, þannig að ef kt er eitthvað vafasöm kemur villa.

Function bDay(kt)
If IsNumeric(kt) = true And Len(kt) = 10 Then
Dim arrMnames(12), dob, dagur, manudur,strmonth
dob = Left(kt,6)
dagur = Left(kt,2)
manudur = Mid(kt,3,2)

arrMnames(1) = “janúar”
arrMnames(2) = “febrúar”
arrMnames(3) = “mars”
arrMnames(4) = “apríl”
arrMnames(5) = “maí”
arrMnames(6) = “júní”
arrMnames(7) = “júli”
arrMnames(8) = “ágúst”
arrMnames(9) = “september”
arrMnames(10) = “október”
arrMnames(11) = “nóvember”
arrMnames(12) = “desember”
strMonth = arrMnames(manudur)
bDay = dagur & “. ” & strmonth
Else
bDay = “Villa”
End If
End Function

Function aldur(kt)
If IsNumeric(kt) = true And Len(kt) = 10 Then
Dim intAge, yob, today
intAge = Right(kt,1)
If intage = 9 Then
yob = 19
Else
If intAge = 0 Then
yob = 20
Else
yob = 18
End If
End If
yob = yob & Mid(kt,5,2)
today = Year(date)
aldur = today - yob
Else
aldur = “villa”
End If
End Function

kv, thob