Trabalhando com datas no VB.Net

Frequentemente no desenvolvimento de nossas aplicações necessitamos trabalhar com um tipo de dado especial: “DateTime”. Somar datas, calcular intervalos de tempo, obter a data e hora atual são algumas dessas operações realizadas com o tipo de dado “DateTime”. O namespace System.DateTime permite o acesso a métodos e propriedades que tratam de datas e horas.  Na tabela abaixo, são listados as propriedades presentes na namespace System.DateTime.

Tabela 1 – Lista com as propriedades da System.DateTime.

Além das propriedades listadas acima, a namespace System.DateTime apresenta uma lista de métodos específicos para trabalhar com cálculos de data. Na tabela abaixo é listado alguns dos principais métodos.

Tabela 2 – Lista com os eventos da System.DateTime.

Uma observação em relação ao VB6, é que o VB6 armazena a data e a hora em um formato diferente do VB.NET. Os programadores VB acessam valores numéricos de datas como um Double. As datas no VB.NET são armazenadas como inteiro longo. Para converter uma informação de data no formato antigo para o novo formato use as funções : ToOADate() e FromOADate().

Para testar a System.DateTime, crie um novo projeto (WindowsApplication) no Visual Studio. Net 2005. No evento Load desse projeto, iremos utilizar várias MsgBox que representará o resultado de cada operação com data. Veja na imagem abaixo o código desenvolvido para testar alguns dos métodos e propriedade dessa namespace.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Obtem data e hora atual do sistema

        MsgBox(Date.Now)

        'Obtendo dia da semana

        MsgBox(String.Format("{0:dddd}", Now))

        'Soma 20 dias a data atual

        MsgBox(Date.Now.AddDays(20))

        'Subtrai 15 dias da data atual

        MsgBox(Date.Now.AddDays(-15))

        'Exibe uma mensagem informando se o ano é bissexto

        If Date.IsLeapYear(2007) = True Then

            MsgBox("Ano Bissexto")

        Else

            MsgBox("Ano Não Bissexto")

        End If

        'Exibe o número de dias do mês para  o ano de 2007 e mes 2

        MsgBox("O numero de dias do mês é: " & Date.DaysInMonth(2007, 2))

    End Sub

Listagem 1 – Exemplo de Métodos e Propriedades da namespace System.DateTime.

Chegamos ao final do artigo e podemos notar que com a namespace System.DateTime, nossos problemas com datas e horas acabaram.

Até o próximo.