funcion fecha

Yo tuve un problema similar y agrege una fincion asi:

Public Function convfecha(ByVal fecha As Date) As String
Dim fecha_ingles As String
Select Case fecha.Month
Case 1
fecha_ingles = "January " & fecha.Day & ", " &
fecha.Year
Case 2
fecha_ingles = "February " & fecha.Day & ", " &
fecha.Year
Case 3
fecha_ingles = "March " & fecha.Day & ", " &
fecha.Year
Case 4
fecha_ingles = "April " & fecha.Day & ", " &
fecha.Year
Case 5
fecha_ingles = "May " & fecha.Day & ", " &
fecha.Year
Case 6
fecha_ingles = "June " & fecha.Day & ", " &
fecha.Year
Case 7
fecha_ingles = "July " & fecha.Day & ", " &
fecha.Year
Case 8
fecha_ingles = "August " & fecha.Day & ", " &
fecha.Year
Case 9
fecha_ingles = "September " & fecha.Day & ", " &
fecha.Year
Case 10
fecha_ingles = "October " & fecha.Day & ", " &
fecha.Year
Case 11
fecha_ingles = "November " & fecha.Day & ", " &
fecha.Year
Case 12
fecha_ingles = "december " & fecha.Day & ", " &
fecha.Year
End Select
Return fecha_ingles
End Function

saludos amigos

alguno tiene un ejemplo de funcion que cobnvierta una

fecha en fecha

juliana., he buiscado bastantes en la web pero ninguna

lo hace tal como lo

necesito.

gracias



.

pero esta funcion que hacesolo le pega al mes el dia???lo que
necesito es cambiar una fecha tradicional que todos conoce3mos y usamos
30/12/2004 a fecha tipo juliana 78899..o no se si estoy malinterpretando tu
ejemplogracias


"aztlan" escribió en el mensaje
news:034e01c49069$b2956ec0$

Yo tuve un problema similar y agrege una fincion asi:

Public Function convfecha(ByVal fecha As Date) As String
Dim fecha_ingles As String
Select Case fecha.Month
Case 1
fecha_ingles = "January " & fecha.Day & ", " &
fecha.Year
Case 2
fecha_ingles = "February " & fecha.Day & ", " &
fecha.Year
Case 3
fecha_ingles = "March " & fecha.Day & ", " &
fecha.Year
Case 4
fecha_ingles = "April " & fecha.Day & ", " &
fecha.Year
Case 5
fecha_ingles = "May " & fecha.Day & ", " &
fecha.Year
Case 6
fecha_ingles = "June " & fecha.Day & ", " &
fecha.Year
Case 7
fecha_ingles = "July " & fecha.Day & ", " &
fecha.Year
Case 8
fecha_ingles = "August " & fecha.Day & ", " &
fecha.Year
Case 9
fecha_ingles = "September " & fecha.Day & ", " &
fecha.Year
Case 10
fecha_ingles = "October " & fecha.Day & ", " &
fecha.Year
Case 11
fecha_ingles = "November " & fecha.Day & ", " &
fecha.Year
Case 12
fecha_ingles = "december " & fecha.Day & ", " &
fecha.Year
End Select
Return fecha_ingles
End Function

>saludos amigos
>
>alguno tiene un ejemplo de funcion que cobnvierta una
fecha en fecha
>juliana., he buiscado bastantes en la web pero ninguna
lo hace tal como lo
>necesito.
>
>gracias
>
>
>
>.
>

Visita este link a ver si te sirve...

http://www.portalvb.com/NETNewsGroupsAp2.asp?Ap4&Fecha 021201&Idf=0


"Imac_Man" escribió en el mensaje
news:

saludos amigos

alguno tiene un ejemplo de funcion que cobnvierta una fecha en fecha
juliana., he buiscado bastantes en la web pero ninguna lo hace tal como lo
necesito.

gracias

Toni escribió el 09/09/2004 16:58 :

Visita este link a ver si te sirve...

http://www.portalvb.com/NETNewsGroupsAp2.asp?Ap�4&Fecha 021201&Idf=0


"Imac_Man" escribió en
el mensaje
news:

saludos amigos

alguno tiene un ejemplo de funcion que cobnvierta una fecha en fecha
juliana., he buiscado bastantes en la web pero ninguna lo hace tal como lo
necesito.

gracias

Este Link ya no funciona!