Como tranformo x dias a dias meses y años?

La diferencia entre 2 fechas da días, y estos no pueden pasarse a dias
meses y años por lo siguiente:
1/3/2001 - 1/2/2001 = 28 dias = 1 mes
1/3/2000 - 1/2/2000 = 29 dias = 1 mes
1/1/2000 - 1/2/2000 = 31 dias = 1 mes
1/4/2000 - 1/5/2000 = 30 dias = 1 mes
Por tanto 1 mes = 28 dias = 29 dias = 30 dias = 31 dias ¡Viva las
matemáticas!

En algunos sitios hacen la siguiente conversión:
1 año = 360 dias
1 mes = 30 dias
de esa forma se producen redondeos en los que unas veces se gana y
otras se pierde.
A mi personalmente me parece un disparate propio de niños de 6 años.

para hacer la conversion 1 año = 360 dias, 1 mes = 30 dias:
dim años as integer
dim meses as integer
dim dias as integer
dim totaldias as integer00 'por ejemplo
años = totaldias \ 360
meses = (totaldias - años*360)\30
dias = totaldias - años*360 - meses*30

Puedes usar mejor la función DateDiff, la cuál, al establecer la diferencia
en años como parámetro, regresa la diferencia en años, dias, meses o el
intervalo que le pases.

Suerte!!!
"Carlos Gómez" escribió en el mensaje de
noticias:
La diferencia entre 2 fechas da días, y estos no pueden pasarse a dias
meses y años por lo siguiente:
1/3/2001 - 1/2/2001 = 28 dias = 1 mes
1/3/2000 - 1/2/2000 = 29 dias = 1 mes
1/1/2000 - 1/2/2000 = 31 dias = 1 mes
1/4/2000 - 1/5/2000 = 30 dias = 1 mes
Por tanto 1 mes = 28 dias = 29 dias = 30 dias = 31 dias ¡Viva las
matemáticas!

En algunos sitios hacen la siguiente conversión:
1 año = 360 dias
1 mes = 30 dias
de esa forma se producen redondeos en los que unas veces se gana y
otras se pierde.
A mi personalmente me parece un disparate propio de niños de 6 años.

para hacer la conversion 1 año = 360 dias, 1 mes = 30 dias:
dim años as integer
dim meses as integer
dim dias as integer
dim totaldias as integer00 'por ejemplo
años = totaldias \ 360
meses = (totaldias - años*360)\30
dias = totaldias - años*360 - meses*30