General

6.184 Convertire una data giuliana in una data di tipo Data/ora
  Roberto

Ricordo che una data giuliana è una stringa di 6 caratteri di cui i primi 3 rappresentano l'anno meno 1900, mentre i restanti tre caratteri sono il numero progressivo del giorno nell'ambito dell'anno.

Se la variante di tipo stringa di sei caratteri che contiene la data giuliana si chiama appunto DataGiuliana.
Se la variabile di tipo data/ora che deve contenere la data convertita si chiama DataNormale.
E' possibile convertire la data giuliana eseguendo il seguente codice VBA:
Dim DataNormale As Date
DataNormale = DateAdd("d", Val(Right(DataGiuliana, 3)), DateSerial(Val(Left(DataGiuliana, 3)) + 1900, 1, 0))

Se la data giuliana è invece contenuta in una variabile di tipo numerico, eseguire il seguente codice VBA:
Dim DataNormale As Date
DataNormale = DateAdd("d", DataGiuliana - Int(DataGiuliana / 1000) * 1000, DateSerial(Int(DataGiuliana / 1000) + 1900, 1, 0))


Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.