Salve mi aiutereste a svolgere un algoritmo che converte una data del calendario giuliano in data normale? dovrei aggiungere a una data di emissione di una fattura 15 giorni e vedere quando scade... penso che fare l'algoritmo con il giorno giuliano sia meglio no? converto la data in giorno giuliano gli aggiungo 15 e la riconverto (ho pensato io)
se avete altre idee ben venga
grazie

es. giorno giuliano --> 5
data --> 5 gennaio

questa è una funzione del giorno giuliano fatta da me

codice:
 Function giuliano(ByVal giorno As Integer, ByVal mese As String, ByVal anno As Integer) As Integer        Dim g, g_feb As Integer


        g_feb = giorni(mese, anno) 'funzione che stabilisce quanti giorni ha un mese (considera anche l'anno è bisestile)


        Select Case LCase(mese)
            Case "gennaio"
                g = giorno
            Case "febbraio"
                g = giorno + 31
            Case "marzo"
                g = giorno + 31 + g_feb
            Case "aprile"
                g = giorno + 31 + g_feb + 31
            Case "maggio"
                g = giorno + 31 + g_feb + 31 + 30
            Case "giugno"
                g = giorno + 31 + g_feb + 31 + 30 + 31
            Case "luglio"
                g = giorno + 31 + g_feb + 31 + 30 + 31 + 30
            Case "agosto"
                g = giorno + 31 + g_feb + 31 + 30 + 31 + 30 + 31
            Case "settembre"
                g = giorno + 31 + g_feb + 31 + 30 + 31 + 30 + 31 + 31
            Case "ottobre"
                g = giorno + 31 + g_feb + 31 + 30 + 31 + 30 + 31 + 31 + 30
            Case "novembre"
                g = giorno + 31 + g_feb + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31
            Case "dicembre"
                g = giorno + 31 + g_feb + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + 30
        End Select
        Return g
    End Function