blaser
18 de Junio del 2004

Tengo el siguiente código escrito en clipper y quisiera pasarlo a php, el problema es que no sé como hacer en php lo del array.....

static function CalTim(cp,dur)
local valret, nTTim, nTarifa, nPCal, IndTar

nTTim:= ARRAY (4,3)
nTTim:= {0,5,7},;
{3,7,9},;
{5,9,9},;
{6,7,1}

valret :=0
nTarfia:=0
IndTar:=1

if dur > 180
nPCal:= nPCal *2
endif

do while IndTar < 4 .and. nTarifa =0
if nPCal >= nTTim[IndTar,1] .and. nPacal <= nTTim[IndTar,2]
nTarifa := IndTar
valret := nTTim[IndTar,3]
else
IndTar ++
endif
enddo

if nTarfia=0
nTarifa:=15
valret:0 nTtim[nTarfia,3]
endif
if nTarifa=15
nPCal := nPCal - nTTim[14,2]
nPCal := Round ((nPCal /100) *3)
valret += nPCal
endif
Return valret

sergio
18 de Junio del 2004

El manejo de matrices (arrays) en PHP es muy sencillo y flexible (http://es.php.net/manual/es/language.types.array.php).

Lo del array del principio es tan fácil como hacer:
nTTim = array(
array(0,5,7),
array(3,7,9),
array(5,9,9),
array(6,7,1)
);

Échale un vistazo a la función array() de todas formas: http://es.php.net/manual/es/function.array.php

blaser
18 de Junio del 2004

gracias sergio, lo del array lo he solucionado como me has dicho, el problema es que no entiede la linea del primer if, es decir, la linea..... if nPCal <= nTTim[IndTar,1] .and. nPCal <= nTTim[IndTar,2] la he sustituido por:

if $nPCal <=$nTTim($IndTar,1] && $nPCal <= $nTTim[$IndTar,2}
y me da erro en el "]"
a ver si me pueden ayusar.
Gracias.

dfh
18 de Junio del 2004

prueba asi:
if ( $nPCal <=$nTTim[$IndTar,1] && $nPCal <= $nTTim[$IndTar,2] )

blaser
18 de Junio del 2004

ya lo probé anteriormente y no funciona .....no sé dónde puede estar el error, a ver si alguien me puede echar una mano.
Gracias.