Vb.net Diferença entre datas

    Dim date1 As Date
    Dim date2 As Date
    Dim result As Integer

    ' Atribui datas as variáveis
    date1 = #1/1/2009#
    date2 = Date
    
    ' Calcula a diferenca em dias
    result = DateDiff("d", date1, date2)
    
    ' Mostra o resultado
    MsgBox result

Retorna um valor do tipo Long que especifica o número de intervalos de tempo entre os dois valores tipo Date.

Public Overloads Function DateDiff( _
    ByVal Interval As [ DateInterval | String ], _
    ByVal Date1 As DateTime, _
    ByVal Date2 As DateTime, _
    Optional ByVal DayOfWeek As FirstDayOfWeek = FirstDayOfWeek.Sunday, _
    Optional ByVal  WeekOfYear As FirstWeekOfYear = FirstWeekOfYear.Jan1 _
) As Long

Parâmetros

Interval

Obrigatório. Valor de enumeração DateInterval ou expressão String representando o intervalo de tempo que você deseja utilizar como a unidade de diferença entre Date1 e Date2.

Date1

Obrigatório. Date . A primeira data / valor temporal você deseja usar no cálculo.

Date2

Obrigatório. Date . O segundo valor de data/time que você deseja usar no cálculo.

DayOfWeek

Opcional. Um valor escolhido da enumeração FirstDayOfWeek que especifica o primeiro dia da semana. Se não especificado,FirstDayOfWeek.Sunday é usado.

WeekOfYear

Opcional. Um valor escolhido da enumeração FirstWeekOfYear que especifica o primeiro dia da semana. Se não especificado,FirstWeekOfYear.Jan1 é usado.

Configurações

O argumento Interval pode ter uma das seguintes configurações.

Valor de enumeração	Valor de seqüência de caracteres	Unidade de time diferença
DateInterval.Day	"d"	Dia
DateInterval.DayOfYear	"y"	Dia
DateInterval.Hour	"h"	Hora
DateInterval.Minute	"n"	Minuto
DateInterval.Month	"m"	Mês
DateInterval.Quarter	"q"	Trimestre
DateInterval.Second	"s"	Segundo
DateInterval.Weekday	"w"	Semana
DateInterval.WeekOfYear	"ww"	Calendário semanal
DateInterval.Year	"aaaa"	Ano

O argumento DayOfWeek pode ter uma das seguintes configurações.

Valor de enumeração	Valor	Descrição
FirstDayOfWeek.System	0	Primeiro dia da semana especificado nas configurações do sistema
FirstDayOfWeek.Sunday	1	Domingo (padrão)
FirstDayOfWeek.Monday	2	Segunda-feira (compatível com padrão 8601, Seção 3.17 ISO)
FirstDayOfWeek.Tuesday	3	Terça-feira
FirstDayOfWeek.Wednesday	4	Quarta-feira
FirstDayOfWeek.Thursday	5	Quinta-feira
FirstDayOfWeek.Friday	6	Sexta-feira
FirstDayOfWeek.Saturday	7	Sábado

O argumento WeekOfYear pode ter uma das seguintes configurações.

Valor de enumeração	Valor	Descrição
FirstWeekOfYear.System	0	Primeira semana do ano especificado nas configurações do sistema
FirstWeekOfYear.Jan1	1	Semana em que 1 º de janeiro ocorre (padrão)
FirstWeekOfYear.FirstFourDays	2	Semana que tenha pelo menos quatro dias no novo ano (obedece padrão ISO 8601, seção 3.17 )
FirstWeekOfYear.FirstFullWeek	3	Primeira semana completa do ano novo

Exceções

Tipo de exceção	Número de erro	Condição
ArgumentException	5	De inválidoInterval.
ArgumentException	5	Date1, Date2, ou DayofWeek está fora do intervalo.
InvalidCastException	13	Date1 ou Date2 é de um tipo inválido.