VB conversione data in numero seriale

[gyonny]

ciao gente

devo convertire una data in un numero seriale esempio:

21/11/2003 deve diventare 1245672 (numero inserito a caso per l'esempio, non so se corrisponde alla data)

dopo devo effettuare calcoli e ordinamento e riportare il numero nel formato data

by
gyonny

[chipdb]

Private Sub Command1_Click()
    Dim myDate As Date
    Dim intDate As Long
    
    myDate = "1/02/2002"
    MsgBox myDate
    intDate = DateSerial(Year(myDate), Month(myDate), Day(myDate))
    MsgBox intDate
    MsgBox CDate(intDate)
End Sub

E' un esempio, la conversione vera e propria è data dalle stringhe in grassetto.

Ciao

[gyonny]

grazie chip

[chipdb]

Originariamente inviato da gyonny
grazie chip

Prego