General

6.80 Convertire una data in data giuliana.
  Giacomo Siliotti
La data giuliana e' formata da una stringa di 6 caratteri:
i primi 3 sono l'anno (anno della data da considerare - 1900)
i 3 seguenti sono il progressivo del giorno nell'anno.
Quindi:
Public Function data_giuliana(data As Date) As String
   Dim anno
   anno = Year(data)
   data_giuliana = Right("0" & ((anno - 1900) * 1000) + (DateValue(data) - DateValue("01/01/" & anno) + 1), 6)
End Function

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