pasar este c贸digo a php
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
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
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
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
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.
if $nPCal <=$nTTim($IndTar,1] && $nPCal <= $nTTim[$IndTar,2}
y me da erro en el "]"
a ver si me pueden ayusar.
Gracias.
prueba asi:
if ( $nPCal <=$nTTim[$IndTar,1] && $nPCal <= $nTTim[$IndTar,2] )
if ( $nPCal <=$nTTim[$IndTar,1] && $nPCal <= $nTTim[$IndTar,2] )