pasar este c贸digo a php

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.