[VB6] Conversione date in numero intero

[fradipa]

Salve a tutti,
esiste una funzione che converte le date (nel formato dd/mm/yyyy) in un numero intero?
Grazie

[mardok30]

cioè vuoi convertire da dd/mm/yyyy a ddmmyyyy ?
In questo caso fai:

data = Replace("dd/mm/yyyy","/","")

la funzione Replace ti restituisce una Stringa.

[fradipa]

Avevo bisogno di convertire dd/mm/yyyy in un numero intero,
per esempio 01/01/2006 ->38718 (penso sia il numero di giorni che passa tra il 31/12/1799 e la data in questione).
In ogni caso ho risolto 'forzando' il tipo data, ti posto il codice :

Dim c As Date
Dim i As Double
c = "01/gen/2006"
MsgBox c
i = c
MsgBox i



Grazie Murdok

(forza Napoli)