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)) |