[VB6] Calcolare giorni, minuti, secondi mancanti ad una determinata data

[Magicolotto]

DateDiff("y", #1/1/2015#, Now)
y=n. digiorni
w= n. di settimane
m= n. di mesi