Page 1 of 1

AdsGetServerTime

Posted: Thu Jan 12, 2006 8:34 pm
by 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

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
by fgondi
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
by Patricio Avalos Aguirre
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