CONVERTER DATA PARA FORMATO JULIANO ?

VILMARBR 30/12/2010 17:06:15
#360742
Eu procurei no google codesearch , mas não achei ....

http://www.google.com/codesearch?hl=pt-BR&lr=&q=convert+to+julian+date+lang%3Abasic

quem souber como fazer e tiver exemplo, favor postar.

grato.


[txt-color=#007100]FELIZ 2011 A TODOS!!![/txt-color]
TECLA 30/12/2010 20:13:46
#360755 Resposta escolhida 
Public Function Date2Julian(ByVal vDate As Date) As Long

    Date2Julian = CLng(Format(Year(vDate), [Ô]0000[Ô]) _
                  + Format(DateDiff([Ô]d[Ô], CDate([Ô]01/01/[Ô] _
                  + Format(Year(vDate), [Ô]0000[Ô])), vDate) _
                  + 1, [Ô]000[Ô]))
    
End Function
VILMARBR 03/01/2011 13:30:28
#360953
Obrigado pessoal!!
Abç
Tópico encerrado , respostas não são mais permitidas
Voltar