function edad_relativa($fechaInicial, $fechaComparacion)
{
    // Comprobamos que $fecha tiene el formato deseado
    $fechaInicial = DateToMysql($fechaInicial);
    $fechaComparacion = DateToMysql($fechaComparacion);
    $patron = "/([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})/";
    if (preg_match($patron, $fechaInicial, $partesI) && preg_match($patron, $fechaComparacion, $partesC)) {
        // Validamos que las fechas suministradas sean válidas
        if (!checkdate(intval($partesI[2]), intval($partesI[3]), $partesI[1]) || !checkdate(intval($partesC[2]), intval($partesC[3]), $partesC[1])) {
            return false;
        }
        // Validamos que $fechaInicial sea menor a $fechaComparacion
        if (mktime(0, 0, 1, intval($partesI[2]), intval($partesI[3]), $partesI[1]) > mktime(0, 0, 1, intval($partesC[2]), intval($partesC[3]), $partesC[1])) {
            return false;
        }
        // Calculamos las diferencias entre las fechas
        $annos = $partesC[1] - $partesI[1];
        $meses = $partesC[2] - $partesI[2];
        $dias = $partesC[3] - $partesI[3];
        // Corregimos dependiendo de los valores obtenidos
        if ($meses < 0) {
            $annos--;
        } elseif ($meses == 0 && $dias < 0) {
            $annos--;
        }
        // Devolvemos la cantidad de años
        return $annos;
    } else {
        return false;
    }
}
function BANCOS_saldo_cuenta_fecha($cuenta_id, $fecha)
{
    //  Ingresos - egresos por transferencia(101) y comision(102)- cheques(100) cobrado(estatus=2) + traspasos donde cuenta=destino (monto destino)- traspasos donde cuenta=origen
    $fecha = DateToMysql($fecha);
    $where_comun = " AND CUENTA_ID=" . $cuenta_id . " and FECHA>='2011-01-01' and FECHA<'{$fecha}'";
    $aux_saldo_1 = consulta("select SALDO_INICIAL from ban_c_cuentas where CUENTA_ID=" . $cuenta_id);
    $saldo_inicial = $aux_saldo_1["SALDO_INICIAL"];
    $aux_saldo_2 = consulta("select IFNULL(sum(MONTO),0) as MONTO from ban_p_bancos where TIPO_MOV_BANCO_ID<100 {$where_comun}");
    $ingresos = $aux_saldo_2["MONTO"];
    //print_r($aux_saldo_2);
    //  $aux_saldo_3=consulta("select IFNULL(sum(MONTO),0) as MONTO from ban_p_bancos where TIPO_MOV_BANCO_ID<>100 $where_comun");
    //  $ingresos=$aux_saldo_3["MONTO"];
    $aux_saldo_4 = consulta("select IFNULL(sum(MONTO),0) as MONTO from ban_p_bancos where TIPO_MOV_BANCO_ID=100 and CUENTA_ID=" . $cuenta_id . " and FECHA_COBRO>='2011-01-01' AND FECHA_COBRO<'{$fecha}' and ESTATUS_CHEQUE_ID=2 ");
    $egresos_x_cheques_cobrados = $aux_saldo_4["MONTO"];
    $aux_saldo_5 = consulta("select IFNULL(sum(MONTO),0) as MONTO from ban_p_bancos where (TIPO_MOV_BANCO_ID=101 or TIPO_MOV_BANCO_ID=102) and CUENTA_ID=" . $cuenta_id . " and FECHA>='2011-01-01' AND FECHA<'{$fecha}' ");
    $egresos_x_transferencia_y_comision = $aux_saldo_5["MONTO"];
    $aux_saldo_6 = consulta("select IFNULL(sum(MONTO),0)         as MONTO from ban_p_bancos_transferencias_internas where CUENTA_ID_ORIGEN =" . $cuenta_id . " and FECHA>='2011-01-01' AND FECHA<'{$fecha}'  ");
    $egresos_x_traspaso_interno = $aux_saldo_6["MONTO"];
    $aux_saldo_7 = consulta("select IFNULL(sum(MONTO_DESTINO),0) as MONTO from ban_p_bancos_transferencias_internas where CUENTA_ID_DESTINO=" . $cuenta_id . " and FECHA>='2011-01-01' AND FECHA<'{$fecha}'  ");
    $ingresos_x_traspaso_interno = $aux_saldo_7["MONTO"];
    //  $total=$aux["SALDO_1"];
    $total = $saldo_inicial + $ingresos - $egresos_x_cheques_cobrados - $egresos_x_transferencia_y_comision + $ingresos_x_traspaso_interno - $egresos_x_traspaso_interno;
    //echo $saldo_inicial."|1|".$egresos_x_cheques_cobrados."|2|".$egresos_x_transferencia_y_comision."|3|".$egresos_x_traspaso_interno."|4|".$ingresos."|5|".$ingresos_x_traspaso_interno."====".$total;
    return $total;
}