[VB6] Ottenere la differenza tra date in giorni, mesi, ecc.

[simop_075]

salve a tutti vorrei fare una differenza di date..

Private Sub Command1_Click()

        Dim Giorno1 As Integer
        Dim Mese1 As Integer
        Dim Anno1 As Integer
        Dim Giorno2 As Integer
        Dim Mese2 As Integer
        Dim Anno2 As Integer
        Dim Giorni As Integer
        Dim Anni As Integer
        Dim TotaleGiorni As Integer
        Dim diffdate As Integer
        
        Giorno1 = Txt_Giorno1
        Mese1 = Txt_Mese1
        Anno1 = Txt_Anno1
        Giorno2 = Txt_Giorno2
        Mese2 = Txt_Mese2
        Anno2 = Txt_Anno2

    Dim datTim1 As Date
    Dim datTim2 As Date

datTim1 = CDate(Anno1 & "-" & Mese1 & "-" & Giorno1)
datTim2 = CDate(Anno2 & "-" & Mese2 & "-" & Giorno2)

Dim GiorniMancanti As Long

GiorniMancanti1 = DateDiff("d", datTim1, datTim2)

lbl_GM = GiorniMancanti1

End Sub

però mi restituisce il valore in giorni..

non è possibile farlo anni giorni mesi...???

se sapete un modo per ottimizzare lo spazio.. ditelo pure.. xd

[gibra]

No, puoi scegliere un solo tipo di unità restituito (minuti, ore, giorni, mesi, ...).

Dovrai eventualmente calcolarti tu il dato finale come lo vuoi formattato.

Ciao

[simop_075]

si quello si.. ma non saprei come farlo.. visto che i mesi non sono tutti uguali ma cambiano i giorni.. quindi se tipo mi da 670 giorni... come faccio a calcolare i mesi? se erano tutti i ugali utilizzavo una divisione.. ma così come posso fare?

[oregon]

Considera il mese di 30 giorni ...

[gibra]

Originariamente inviato da simop_075
si quello si.. ma non saprei come farlo.. visto che i mesi non sono tutti uguali ma cambiano i giorni.. quindi se tipo mi da 670 giorni... come faccio a calcolare i mesi? se erano tutti i ugali utilizzavo una divisione.. ma così come posso fare?

Nella routine devi tener conto della Data iniziale, e da lì devi farti i tuoi bravi calcoli.
In ogni caso devi dare qualche dettagli in più per capire se c'è un modo per ottenre quello che chiedi. Detto come l'hai detto tu non è molto chiaro.

Anche se, sinceramente, non mi è mai capitato di vedere indicate le differenze di intervalli di tempo espressi in anni giorni mesi (come hai chiesto tu).

Ciao

[simop_075]

allora..

provo a vedere e dopo poi posto qualcosa... ora ci provo...