Hola a todos, vamos a ver un ejemplo de DateDiff, para ello lo que vamos a realizar es una comparación de un calendario a la fecha actual. Para sacar la diferencia entre 2 fechas.
Para hacerlo mas divertido, en el calendario vamos a seleccionar nuestra fecha de nacimiento y nos dirá los años,los meses,los días,las horas,los minutos, y los segundos.
Bien para ello lo primero es pintar el formulario , haz alguno que sea parecido a esto
Bien ahora vamos a la parte del código.
Si te has fijado bien la diferencia entre lo seleccionado y la fecha actual la vamos a escribir en el Label2.
Ahora si vamos a el código. En el botón vamos ha hacer lo siguiente
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Dim Ahora As DateTime = Now Dim años = DateDiff(DateInterval.Year, MonthCalendar1.SelectionStart, Now) Dim Meses = DateDiff(DateInterval.Month, MonthCalendar1.SelectionStart, Now) Dim Dias = DateDiff(DateInterval.Day, MonthCalendar1.SelectionStart, Now) Dim Horas = DateDiff(DateInterval.Hour, MonthCalendar1.SelectionStart, Now) Dim Minutos = DateDiff(DateInterval.Minute, MonthCalendar1.SelectionStart, Now) Dim Segundos = DateDiff(DateInterval.Second, MonthCalendar1.SelectionStart, Now) Dim str As New System.Text.StringBuilder str.AppendLine("Desde que nacistes han pasado:") str.AppendLine("AÑOS: " & años & " ó") str.AppendLine("MESES: " & Meses & " ó") str.AppendLine("DIAS: " & Dias & " ó") str.AppendLine("HORAS: " & Horas & " ó") str.AppendLine("MINUTOS: " & Minutos & " ó") str.AppendLine("SEGUNDOS: " & Segundos & ".") Me.Label2.Text = str.ToString |
Como resultado quedara algo así
Hasta Aquí el ejemplo un saludo a todos
Quizas te interese http://soulsmakers.com/index.php/2017/03/saber-dia-la-semana-mes-texto-sql-server/
Un Saludo a tod@s