Buatlah 1 form dengan objek 1 datetime, 3 radiobutton dengan name dd,mm,yy, 1 button, 1 textbox, dan 3 buah label masing2 text disesuaikan dengan gambar
Terus tambahkan source code seperti berikut ini di button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
If dd.Checked = True Then
TextBox1.Text = Format(CDate(DateTimePicker1.Value), "dd/MM/yyyy")
ElseIf mm.Checked = True Then
TextBox1.Text = Format(CDate(DateTimePicker1.Value), "MM/dd/yyyy")
ElseIf yy.Checked = True Then
TextBox1.Text = Format(CDate(DateTimePicker1.Value), "yyyy/MM/dd")
End If
End Sub
0 comments:
Post a Comment