Convertidor de fechas gregorianas a julianas VFP
Hola Experto, quisiera que me ayudaras a con un problema que tengo, consta en que realizo un software en visual fox pro pero llegue a la parte en que tengo que convertir fechas gregorianas a julianas para la base de datos, ¿la BD esta en SQL y me gustaría si me pudieras mandar una ejemplo de como le puedo hacer? Por favor si puedes enviármelo a mi mail [email protected]
1 Respuesta
Respuesta de junio0or
1
Te dejo mi función, espero que te sirva !
* -------------------------------------------------------------------------------------------------
* Procedimiento: DateTime2MySql
* Descripcion: Transforma un dato DateTime a DateTime para MySql
* Desarrollado: Marvin R. Mendez Barrios
* Sintaxis: DateTime2MySql(DateTime()) DateTime Es Un dato Tipo
* --------------------------------------------------------------------------------------------------
Function DateTime2MySql
Parameters pDateTime
Local cfecha, chora, campm, chora24, cfechareturn, cfechasql
cDateTime = Ttoc(pDateTime, 3)
cfecha = Substr(cDateTime, 1, 10)
If cfecha='0000-00-00'
chora = '00:00:00'
Else
chora = Substr(cDateTime, 12)
Endif
cfechareturn = cfecha+" "+chora
Return cfechareturn
Endfunc
* -------------------------------------------------------------------------------------------------
* Procedimiento: DateTime2MySql
* Descripcion: Transforma un dato DateTime a DateTime para MySql
* Desarrollado: Marvin R. Mendez Barrios
* Sintaxis: DateTime2MySql(DateTime()) DateTime Es Un dato Tipo
* --------------------------------------------------------------------------------------------------
Function DateTime2MySql
Parameters pDateTime
Local cfecha, chora, campm, chora24, cfechareturn, cfechasql
cDateTime = Ttoc(pDateTime, 3)
cfecha = Substr(cDateTime, 1, 10)
If cfecha='0000-00-00'
chora = '00:00:00'
Else
chora = Substr(cDateTime, 12)
Endif
cfechareturn = cfecha+" "+chora
Return cfechareturn
Endfunc
