lunes, 13 de julio de 2009

Uso del DateTimePicker

Holas a todos bueno aquí explicaré un poco acerca del DateTimePicker vamos a ver cómo convertir en string =).

Aquí primero nuestro diseño























Seleccionamos el evento ValueChanged del DateTimePicker






Luego le ponemos el siguiente código:



Fnac = DateTimePicker1.Value.ToShortDateString --> Fnac es el valor del DTP en
formato corto es decir dd/mm/aaaa convertido a String

Fnac es de tipo Date xsiaka XD


TxtFecha.Text = Fnac --> colocamos este valor en la caja de texto
DateTimePicker1.Visible = False --> una vez q elegimos el valor del DTP desaparece

Por último damos doble click en el botón Calcular


y ponemos lo siguiente:


Dim Edad As Int32
Dim Diferencia As TimeSpan --> TimeSpan nos representa un intervalo de tiempo
Diferencia = Today.Subtract(Fnac) --> Restamos la fecha actual con la ingresada
Edad = Fix(Diferencia.TotalDays / 365.25) --> con Fix obtenes la proción entera
TxtDias.Text() = Diferencia.TotalDays.ToString
TxtHoras.Text() = Diferencia.TotalHours.ToString()
TxtMinutos.Text() = Diferencia.TotalMinutes
TxtEdad.Text() = Edad.ToString


Select Case Fnac.DayOfWeek
Case DayOfWeek.Monday
TxtDiaNac.Text = "Lunes"
Case DayOfWeek.Tuesday
TxtDiaNac.Text = "Martes"
Case DayOfWeek.Wednesday
TxtDiaNac.Text = "Mi‚rcoles"
Case DayOfWeek.Thursday
TxtDiaNac.Text = "Jueves"
Case DayOfWeek.Friday
TxtDiaNac.Text = "Viernes"
Case DayOfWeek.Saturday
TxtDiaNac.Text = "Sabado"
Case DayOfWeek.Sunday
TxtDiaNac.Text = "Domingo"
End Select

Espero les haya servido a inciarse en el mundo de .Net que de por sí es xevere >^-^>














No hay comentarios:

Publicar un comentario