C sharp - Problemas con fecha y hora

   
Vista:

Problemas con fecha y hora

Publicado por Juan Carlos (1 intervención) el 13/09/2010 00:09:03
Saludos, soy nuevo en programación de C sharp y tengo problemas con un programa que no me despliega la fecha y la hora. A continuación le muestro mi código, para que me puedan indicar en donde tengo el error.
Gracias!!

Public Class maria

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

End Sub

Private Sub lblfecha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblfecha.Click
lblfecha.Text = Format(Now, "dd - MM - yyyy")
Me.Text = Space(60) + "Ventas"
End Sub

Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
If MsgBox("Desea Salir de la Aplicacion", MsgBoxStyle.Question.YesNo, "Ventas") = MsgBoxResult.Yes Then

End If
Me.Close()
End
End Sub

Private Sub btnnuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnuevo.Click
txtnomprod.Text = ""
txtprecuni.Text = ""
txtcant.Text = ""
lblsubtotal.Text = ""
lbligv.Text = ""
lbltotal.Text = ""
txtnomprod.Focus()
End Sub

Private Sub btnresultados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnresultados.Click
Dim ST, IGV, TP As Single
ST = Val(txtprecuni.Text) * Val(txtcant.Text)
IGV = ST * 19 / 100
TP = ST + IGV
lblsubtotal.Text = Format(ST, "###,##0.00")
lbligv.Text = Format(IGV, "###,##0.00")
lbltotal.Text = Format(TP, "###,##0.00")

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click

lblhora.Text = Format(Now, "hh:mm:ss tt")
End Sub

Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lblfecha.Text = Format(Now, "dd - MM - yyyy")
Me.Text = Space(60) + "Ventas"
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f6 As New form6
f6.Show()
Me.Close()
End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

End Sub

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblhora.Click
lblhora.Text = Format(Now, "hh:mm:ss tt")

End Sub

Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

End Sub
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas con fecha y hora

Publicado por m (97 intervenciones) el 13/09/2010 07:51:29
Pues vaya que si tienes problemas en c# porque no tienes idea de que
estas programando en VB y no en C#.

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar