Zjistí den
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label9.Text = Format(Now(), "hh:mm:ss")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dat As Date If IsDate(TextBox1.Text) = True Then Dat = TextBox1.Text Label6.Text = Format(dat, "d. dddd")
Label7.Text = Format(dat, "MMMM")
Label8.Text = Format(dat, "yyyy")
Else MsgBox("toto neni spravne datum", 16, "Varovani")
End If End sub Je zde 8 labelů jak si je rozhodíte je čistě vaše věc... Jeden textbox a jeden button...