Udregn en persons alder ud fra fødselsda~ Er bedømt af 3 brugere Fra : idefix Vist : 682 gange Dato : 20-12-00 19:28

Private Sub Command1_Click() Dim Birth As Date Dim Age As Integer Birth = DateValue("07/04/1971") Age = Int(DateDiff("D", Birth, Now) / 365.25) MsgBox "Du er " & Age & " år gammel" End Sub

Bedømmelse Fra : modola Dato : 21-05-01 22:06

Bedømmelse Fra : Caine Dato : 03-04-03 18:12

Bedømmelse Fra : nielsen68 Dato : 20-10-06 16:51

Det er et meget godt tips

Du har følgende muligheder

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip. Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.