RE: [vfp] Convertir Datetime() a XML formato ISO DATE TIME con zona horaria

[diegod...@gmail.com]

Hola a todos

 

          Necesito enviar la fecha y hora a un webservice, en el siguiente formato

 

2018-05-28T10:26:47.421875-06:00

 

¿alguien sabe cómo convertirlo?

 

La zona horaria es de México

 

Muchas gracias a todos!

[Gregori Arjona Toledo]

Buenos dias, prueba esta funcion que yo utilizo para efectuar la conversion

Clear

? "Conversion formato fecha hora a ISO 8601"

?

? "Hora local relativa"

? ToIso8601DateTime(Datetime(),"-09:00",.F.)

?

? "Hora local UTC"

? ToIso8601DateTime(Datetime(),"",.T.)

?

?

? "Hora local"

? ToIso8601DateTime(Datetime(),"",.F.)

?

? "Conversion de Fecha a datetime"

? ToIso8601DateTime(DATE(),"",.F.)

* ToIso8601DateTime()

*

* PARAMETROS

*

* ldate Datetime or date

* lctz Timezone   ejemplo: +01:00, -01:00, etc

* lcutc Logico .t. o .f.  UTC format

*

Procedure ToIso8601DateTime

Lparameters ldate,lctz,lutc

If Empty(lctz) And lutc=.T.

lutc=.T.

Endif

lctime="T"+Transform(Hour(ldate),"@L 99")+":"+Transform(Minu(ldate),"@L 99")+":"+Transform(Sec(ldate),"@L 99")+lctz+Iif(lutc,"Z","")

lcdate=Transform(Year(ldate),"9999")+"-"+Transform(Month(ldate),"@L 99")+"-"+Transform(Day(ldate),"@L 99")

Return lcdate+lctime

Endproc

[GeoSys Diseño de Software]

No sé si te sirva esta, la hora es con 2 milisegundos y utilizo DATE y TIME por separados.:

SET DATE BRITISH

fechaActual = DATE() && ASigno la fecha actual.

horaActual = TIME() && Asigno la hora actual.

SET DATE YMD && Formato de Año, Mes y Día.

xmlFecha = TRANSFORM(fechaActual) && Convierto a carácter.

xmlFecha = CHRTRAN(xmlFecha, "/", "-") && Cambio el separador de fecha.

xmlHora = horaActual && Asigno la hora.

xmlFechaHora = xmlFecha+"T"+xmlHora+"-06:00" && Hago toda la cadena de fecha.

MESSAGEBOX(xmlFechaHora)

SET DATE BRITISH

Saludos

Anthony Contreras Peralta

[JEFFERSON REINA MAESTRE]

QUIEN ME DICE PASO A PASO COMO HACER UN EJECUTABLE  (((FILE.PRG))) A (((FILE.EXE))).

[Gregori Arjona Toledo]

Buenos días, veo que eres nuevo por aquí.

No estaría de mas que abrieras un nuevo hilo para exponer tu duda , en lugar de preguntar en hilos que no están relacionados con tu pregunta.

Tampoco estaría de mas un poco de cortesía al exponer tu pregunta , saluda preséntate estas entre amigos, y para finalizar el uso de minúsculas no es obligatorio pero mejora bastante la lectura.

Saludos,

[diegod...@gmail.com]

Muchas gracias, Gregori!

Y también a Anthony Contreras Peralta

 

Saludos