[Visual Basic 2010] Da giorno giuliano a data

[Thunder2410]

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

 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

[renygade]

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

 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

Ma usare la funzione apposta par brutto?
http://msdn.microsoft.com/it-it/libr...=vs.90%29.aspx

[Thunder2410]

Ah grazie non lo sapevo
Se hai qualche minuto per caso riusciresti a farmi un esempio su come usarlo?
Giusto per capire ... Grazie

[renygade]

Ah grazie non lo sapevo
Se hai qualche minuto per caso riusciresti a farmi un esempio su come usarlo?
Giusto per capire ... Grazie

Preso da internet:

MsgBox("10 Days after the current date is:" & DateAdd(DateInterval.Day, 10, Now))

Aggiunge 10 gg alla data corrente.. Se a te serve aggiungerne 30, cambia il 10 con 30 e hai fatto.

[Thunder2410]

Perfetto gentilissimo