Conversão

[PedroSilva21]

como converto anos para dias e troco o valor das variáveis?

[car4321]

Cada ano vale 365 dias ou 366 dias, consoante não seja ou seja ano, respetivamente, ano bissexto.

Logo,

dias=anos*365

ou

dias=anos*366.

Em relação a trocar o valor de variáveis, era suposto saber que variáveis...

[vikcch]

poder usar o Mod Operator para saber se um ano é bissexto...

se o ano mod 4 é igual a zero, o ano é bissexto.... há excepções se quiseres levar em conta (anos múltiplos de 100 que não são múltiplos de 400)

[ribeiro55]

Também podes não reinventar a roda e usar a excelente DateTime e TimeSpan da .NET 🙂

Assumindo que queres sempre saber o número de dias entre dois anos, podes escrever uma função assim:

Public Function DiasEntreAnos(Ano1 As Integer, Ano2 As Integer) As Integer
   Dim D As New DateTime(Ano1, 1, 1)
   Return (D.AddYears(Ano2 - Ano1) - D).Days
End Function

Que usas assim:

DiasEntreAnos(2001, 2002) '365
DiasEntreAnos(2004, 2005) '366