VB6 calcolare il mese e anno

[allejo]

Ciao chiedo come si fa a calcolare il mese e l'anno nel senso che ho due date supponiamo che ho queste date 31/11/2001 e 31/12/2003 e vorrei così:
I mesi in questo esempio mi deve dare 25 però senza contare gli anni.......in questo esempio mi deve dare in output 2 anni e 1 mese questo è la differenza di due date......E come faccio ad avere quell output?
Spero di essermi spiegato bene

[ciro78]

esistono delle funzioni che restituiscono il valore del mese e di un anno di una data

month(data)
year(data)

in questo modo fai le operazioni che ti servono solo sul mese o sull'anno

month(31/11/2001) restituisce 11
year(31/11/2001 ) restituisce 2001

oppure ancora + semplicemnet partire dal 25 che hai ottenuto sottrargi 24 (ottenendo 1) e dividere 24 per 12 ottenendo 2
questa soluzione però presenta l'iconveniente che devi individuare il numero per cui sottrare(24)

quindi penso sia migliore la prima soluzione ciao

[superesse]

Originariamente inviato da allejo
Ciao chiedo come si fa a calcolare il mese e l'anno nel senso che ho due date supponiamo che ho queste date 31/11/2001 e 31/12/2003 e vorrei così:
I mesi in questo esempio mi deve dare 25 però senza contare gli anni.......in questo esempio mi deve dare in output 2 anni e 1 mese questo è la differenza di due date......E come faccio ad avere quell output?
Spero di essermi spiegato bene

A parte che il 31/11/2001 è una data inesistente ed è invece 30/11/2001

fai una cosa del genere...

Dim iAnno As Integer
 Dim iMese As Integer
 Dim sDifferenza  As String
 
 iAnno = DateDiff("YYYY", FormatDateTime("30/11/2001", 2), FormatDateTime("31/12/2003", 2))
 
 iMese = DateDiff("M", FormatDateTime("30/11/2001", 2), FormatDateTime("31/12/2003", 2))
 
 sDifferenza = iAnno & " Anni e " & (iMese - (iAnno * 12)) & " mesi"

Ovviamente poi adattalo in output...

Ciaooooo

[ciro78]

ops non avevo notato