registro de hora y fecha

[kyutvillan]

Protected Sub btn_pub_noti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_pub_noti.Click

'Parametros del formulario noticias
Dim nomnoticia As String = txt_nomnoticia.Text
Dim fechapub As DateTime = DateTime.Now
Dim descrip As String = txt_desc.Text

'Try para validar si la noticia no esta repetida
Dim even As New publican()

Try
Dim validanoti As Boolean = even.validanoti(nomnoticia)
If validanoti = False Then
'No es valido el nombre y el lbl_confirma muestra el mensaje
lbl_confirma.Text = "Ya existe una noticia con ese nombre"

Else
even.RegisNoticia(nomnoticia, fechapub, descrip)
lbl_confirma.Text = "La noticia se registró con exito."

End If
Catch ex As Exception
lbl_confirma.Text = "Error..." + ex.ToString()

End Try

Dim fecha_actual As DateTime = DateTime.Now

txt_nomnoticia.Text = ""
txt_desc.Text = ""
End Sub
End Class

End Namespace