textbox vullen met leeftijd op userform

Status
Niet open voor verdere reacties.
D

Doohan

Gebruiker
Lid geworden
20 mrt 2012
Berichten
374
Beste helper,

Ik ben ter lering en vermaak een simpele database aan het fabriceren in vba. Nu zou ik graag dmv. het selecteren van de geboorte datum in een calender op het formulier direct de leeftijd willen zien. (ter informatie) Ik in het voorbeeldbestand heb op blad1 een knop om het formulier te starten. En een =vandaag() op cel A1.
ik denk dat het stuk code wat ik zoek onder cmdOK zou moeten komen. Ik hoop dat het duidelijk is.

Alvast vriendelijk dank,
 

Bijlagen

  • helpmij.xlsm
    31,5 KB · Weergaven: 29
Beste helpers,

Ik ben ondertussen nog bezig geweest nadat ik me realiseerde dat ik me er wel heel makkelijk mee had afgedaan. Mijn excuus hiervoor.Ik even de code aangepast zodat de cel waarom het gaat ook werkelijk gevuld word. Je zult zien dat de uitkomst niet is wat je van een leeftijd verwacht.
Code: 
Private Sub btGeboorteDatum_Click()
    

Dim TBdatum As Date
Dim Calendar2 As New Calendar
Dim Datum As Date
Dim Nu As Date
Dim aantal As Date

aantal = CDate(Nu)


Calendar2.Show

    If blnCanceled = True Then
        TB6.Value = ""
    
    Else
        If Not IsDate(Calendar2.TBdatum.Value) Then
            MsgBox "Kies een datum", vbExclamation, "ATTENTION"
            Exit Sub
        End If
    
        Datum = DateValue(Calendar2.TBdatum.Value)
    
            Select Case MsgBox("De gekozen datum is " & Datum, vbOKCancel, "ATTENTION")
                Case vbOK
    
                Case vbCancel
    
                ' Cells(1, 2).Select
    
                Exit Sub
            End Select
    
        TB6.Value = Datum
        TB10.Value = aantal - Datum
    End If
End Sub
 
De meeste mensen hebben tegenwoordig die MS-kalender niet meer.

Code: 
Sub M_snb()
   MsgBox DateDiff("yyyy", CDate("25-06-1980"), Date) + (DatePart("y", CDate("25-06-1980")) > DatePart("y", Date))
End Sub
 
Laatst bewerkt:
het werkt
Mijn dank is zeer groot.:thumb:
Groetjes Martin
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan