La estructura del sistema DateTime

El entorno de .NET Framework proporciona, al igual que ocurre con las clases, una serie de estructuras del sistema, con funcionalidades diseñadas para ayudar al programador en las más variadas situaciones. 

Como ejemplo de este tipo de estructura encontramos a DateTime, en la que a través de sus miembros compartidos y de instancia, nos provee de diversas operaciones para el manejo de fechas. 

El Código fuente 300 muestra algunos ejemplos de uso de esta estructura. Consulte el lector la documentación de la plataforma para una descripción detallada sobre cada uno de sus miembros.

Module Module1

Sub Main()

' ejemplos con la estructura DateTime

' ===================================

' miembros compartidos

Dim ldtFechaActual As Date

Dim ldtFechaA, ldtFechaB As Date

' la propiedad Today devuelve la fecha actual

ldtFechaActual = DateTime.Today

Console.WriteLine("La fecha de hoy es {0}", ldtFechaActual)

' el método DaysInMonth() devuelve el número

' de días que tiene un mes

Console.WriteLine("El mes de Febrero de 2002 tiene {0} días", _

DateTime.DaysInMonth(2002, 2))

' el método Compare() compara dos fechas

Console.WriteLine("Introducir primera fecha")

ldtFechaA = Console.ReadLine()

Console.WriteLine("Introducir segunda fecha")

ldtFechaB = Console.ReadLine()

Select Case DateTime.Compare(ldtFechaA, ldtFechaB)

Case -1

Console.WriteLine("La primera fecha es menor")

Case 0

Console.WriteLine("Las fechas son iguales")

Case 1

Console.WriteLine("La primera fecha es mayor")

End Select

' miembros de instancia

Dim loMiFecha As DateTime

Dim ldtFDias As Date

Dim ldtFMeses As Date

Dim lsFHFormateada As String

' usar el constructor de la estructura

' para crear una fecha

loMiFecha = New DateTime(2002, 5, 12)

' agregar días a la fecha

ldtFDias = loMiFecha.AddDays(36)

' restar meses a la fecha

ldtFMeses = loMiFecha.AddMonths(-7)

' formatear la fecha

lsFHFormateada = loMiFecha.ToLongDateString()

Console.WriteLine("Uso de métodos de instancia de DateTime")

Console.WriteLine("Fecha creada: {0} - Agregar días: {1}" & _

" - Restar meses: {2} - Fecha formateada: {3}", _

loMiFecha, ldtFDias, ldtFMeses, lsFHFormateada)

Console.ReadLine()

End Sub

End Module

Código fuente 300