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”...