FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
de VB a D6
Hola compañeros,
Tengo una duda que me agobia y necesito que me saquen de ella. En un codigo en VB tengo: If OperacionEstacion(Estacion).Count = 0 Then y lo he pasado a D6 asi: if Length(OperacionEstacion[Estacion].Operacion) = 0 then Hago la aclaración que OperacionEstacion es un registro 'record' con un campo llamado Operacion que es un arreglo de enteros y según entiendo lo de VB es una coleccion el cual esta definido asi. Mejor dicho, el codigo de VB es: Código:
Function CheckFuncionObj(t, e) If TareasEnEstacion(e).Count = 0 Then CheckFuncionObj = 1 Exit Function End If If FuncionObA(t, e) >= FuncionObD(t, e) Then CheckFuncionObj = 1 Else CheckFuncionObjetiva = 0 End If End Function Si me puden ayudar en esto o aportar una idea, lo agradeceria, es algo urgente, de vida o muer.... |
|
|
|