AdsGetServerTime

[Patricio Avalos Aguirre]

Estimados

Alguien sabe como funciona esta función de ADS AdsGetServerTime
Lo que necesito es como puedo compatibilizar hora con time
me explico

time me devuelve la hora en formato 24hrs

AdsGetServerTime()[2] me devuelve en formato 12pm
y estaba viendo ayuda pero no logro resolverlo..

desde ya gracias..

Code: Select all  Expand view  RUN

ejemplo
time()=17:32:52
AdsGetServerTime[2]=05:32:52 PM

si no voy a tener que hacer un funcion para convertir a 24

Saludos
Patricio

[fgondi]

Hola Patricio.

Yo uso la siguiente función:

Code: Select all  Expand view  RUN

FUNCTION Hora()
  local cHor, cMin, cSec, cMer, cMin, cSec, cAds
  cAds := AdsGetServerTime()[2]
  cHor := left( cAds, 2)
  cMer := Upper( Right(cAds, 2) )
  do case
  case cMer='PM' .and. !cHor=='12'
    cHor := padl( Val(cHor)+12, 2, '0' )
  case cMer='AM' .and. cHor=='12'
    cHor := '00'
  endcase
  cMin := SubStr(cAds, 4, 2)
  cSec := SubStr(cAds, 7, 2)
return cHor + cMin + cSec

[Patricio Avalos Aguirre]

Gracias fGondi

ahhh otra cosa, sabemos que

Code: Select all  Expand view  RUN

AdsGetServerTime()[1] devuelve la fecha
AdsGetServerTime()[2] devuelve la hora
AdsGetServerTime()[3] que cosa es???

Saludos
Patricio