FiveTech Software tech support forums

Posted: **Thu Jan 12, 2006 8:34 pm**

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

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

Posted: **Thu Jan 12, 2006 10:32 pm**

Hola Patricio.

Yo uso la siguiente función:

Code: Select all

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

Posted: **Fri Jan 13, 2006 3:42 pm**

Gracias fGondi

ahhh otra cosa, sabemos que

Code: Select all

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

Saludos
Patricio