Visual Basic - Pasar fecha normal a Juliana

Existe alguna funcion para pasar una fecha normal a fecha juliana sin existe que reglas hay que seguir??'
Muchas gracias

De Fecha Normal a Fecha Juliana....??? qué es FECHA JULIANA..??

Es una fecha que utilizan los astronomos
ejemplo de conversion
23/03/06 = 2453811
No se que reglas seguir para hacer esta conversion

¿te suena de algo?

No se nada sobre fechas "julianas" ni mucho menos se las reglas para convertir fechas normales a las que mencionas, conociendo el proceso seguramente podrás convertirlas.

Manga de ineptos ... si no saben NO RESPONDAN ni digan tarugadas...

que te den

Aqui un ejemplo , es una adaptacion de un codigo en JScript q encontre por ahi pero q sirve muy bien.

'****************************************************************
'el calendario es el juliano si la fecha es anterior al 4-10-1582
'y gregoriano si es posterior al 15-10-1582. Los diez días intermedios fueron suprimidos
'Esta restriccion es aplicada de acuerdo a cada pais
'En francia el 9 Diciembre 1582 fue seguido por 20 Dic 1582
'En gran Bretaña 2 Setiembre 1752 fue seguido por 14 Set 1752
'****************************************************************
Function juliana(ByVal fecha As Date) As Double
D = Day(fecha)
M = Month(fecha)
Y = Year(fecha)
H = Hour(fecha)
Min = Minute(fecha)
Seg = Second(fecha)
   
S = Y + M / 100 + D / 10000
    If (S <= 1582.1004) Then G = 0
    If (S >= 1582.1015) Then G = 1
    'Tan solo informo q la fecha no existe pero
    'si deseas puedes salir de la funcion o generar un error
    If (S > 1582.1004 And S < 1582.1015) Then
       G = 1
       MsgBox "Esta fecha no existe. Por la reforma gregoriana se pasa del 4 al 15 de Octubre de 1582."
       'Exit Function
    End If
    H = H + ((Seg / 60 + Min) / 60)
    D = D + H / 24
    D1 = Int(D)
    F = D - D1 - 0.5
    j = -1 * Int(7 * (Int((M + 9) / 12) + Y) / 4)
    S = 1
    If (G = 1) Then
       If ((M - 9) < 0) Then S = -1
       A = Abs(M - 9)
       J1 = Int(Y + S * Int(A / 7))
       J1 = -1 * Int((Int(J1 / 100) + 1) * 3 / 4)
    Else
       J1 = 0
    End If
    j = j + Int(275 * M / 9) + D1 + G * J1
    j = j + 1721027 + 2 * G + 367 * Y
    If (F < 0) Then
       F = F + 1
       j = j - 1
    End If
    j = j + F
juliana = j
End Function

Fijate en:

http://support.microsoft.com/default.aspx?scid=kb%3Bes%3B116281

http://support.microsoft.com/default.aspx?scid=kb%3Bes%3B162745

En Text1 está la fecha a convertir:
Private Sub Command1_Click()
Dim sAño As String
Dim sJuliano As String
sAño = Right(DatePart("yyyy", Text1), 2)
sJuliano = DateDiff("d", "01-01-" & Right(DatePart("yyyy", Text1), 2), Text1) + 1
Do While Len(sJuliano) < 3
sJuliano = "0" & sJuliano
Loop
Text1 = sAño & sJuliano
End Sub

Muchas Gracias a todos me ha sido de mucha ayuda