Autor
El programa hace lo que quiero, pero muestra algunas excepciones abajo.
Código del botón:
Código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As String
c = Date.Today
T1.Text = c
T2.Text = Mid(c, 1, Len(c) - 8)
T3.Text = Mid(c, 4, Len(c) - 8)
T4.Text = Mid(c, 7, Len(c) - 6)
End Sub
Se ejecuta perfecto pero muestra esto abajo:
A first chance exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll
A first chance exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll
A first chance exception of type 'System.ArgumentOutOfRangeException' occurred in mscorlib.dll
A first chance exception of type 'System.ArgumentOutOfRangeException' occurred in mscorlib.dll
A first chance exception of type 'System.ArgumentOutOfRangeException' occurred in mscorlib.dll
A first chance exception of type 'System.ArgumentException' occurred in Microsoft.VisualBasic.dll
A first chance exception of type 'System.ArgumentOutOfRangeException' occurred in mscorlib.dll
En línea
