topic-1238

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

AdsGetServerTime
Posted: Thu Jan 12, 2006 08: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 Collapse

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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

fgondi

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

AdsGetServerTime
Posted: Thu Jan 12, 2006 10:32 PM

Hola Patricio.

Yo uso la siguiente función:

Code: Select all Collapse

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

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

AdsGetServerTime
Posted: Fri Jan 13, 2006 03:42 PM

Gracias fGondi

ahhh otra cosa, sabemos que

Code: Select all Collapse

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

Saludos
Patricio

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

FiveTech Support Forums

Continue the discussion