Datum en tijdfuncties

[0600107]

Hoi ik zit hier met een probleempje
kan iemand mij de code bezorgen van hoe je een tijd constant laat aanpassen dus dat die per seconde verspringt.
En als je een datum in een tekstvak invoert hoe je dan kan bereken hoeveel jaar je bent.
Alvast bedankt!

 

[jverkerk]

Dit is volgens mij een bestandje van @Danny147.

Ik hoop dat je er wat mee kunt!!!

 

[old Hippy]

HI als je het in vb wild

Public Class Form1
    Private Sub Leeftijd()
        TextBox3.Text = TextBox1.Text - TextBox2.Text & " Jaar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Leeftijd()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = Today.Year
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = TimeOfDay
    End Sub
End Class