"Domingo", "1" => "Lunes", "2" => "Martes", "3" => "Miércoles", "4" => "Jueves", "5" => "Viernes", "6" => "Sábado", ); // Array con los meses del año $meses = array( "1" => "Enero", "2" => "Febrero", "3" => "Marzo", "4" => "Abril", "5" => "Mayo", "6" => "Junio", "7" => "Julio", "8" => "Agosto", "9" => "Septiembre", "10" => "Octubre", "11" => "Noviembre", "12" => "Diciembre", ); $f_dia_txt = $dias_semana[date("w")]; $f_dia_num = date("d"); $f_mes = $meses[date("n")]; $f_mes_num = date("m"); $f_anyo = date("Y"); if (!$corto) { return("$f_dia_txt, $f_dia_num de $f_mes de $f_anyo"); } return("$f_anyo-$f_mes_num-$f_dia_num"); } function quien_soy() { $pattern = "/.*\/(.*\.php).*/"; $query = ""; $pagina = "index.php"; if (preg_match($pattern, $_SERVER["REQUEST_URI"], $matches)) { //if ($_SERVER['QUERY_STRING']) //$query = "?" . $_SERVER['QUERY_STRING']; //$pagina = $matches[1] . $query; $pagina = $matches[1]; } return($pagina); } // Convierte la fecha de formato americano a formato español function invierteFecha($fecha, $corto=1) { if (!$fecha) { return(""); } if ($corto) { $parts = explode("-", $fecha); $anyo = substr($parts[0], 2); //formato corto de año - 05 en vez de 2005 $mes = $parts[1]; $dia = $parts[2]; return("$dia/$mes/$anyo"); } // Si la fecha tiene formato largo if (preg_match("/^(\d\d\d\d)-(\d\d)-(\d\d) (\d\d:\d\d:\d\d)$/", $fecha, $matches)) { $nueva = $matches[3] . "/" . $matches[2] . "/" . $matches[1] . " " . $matches[4]; return($nueva); } return(""); } //convierta la fecha de formato español a americano para almacenarla en BD function desinvierteFecha($fecha) { if (!$fecha) { return(""); } else { $parts = explode("/", $fecha); $anyo = $parts[2]; $mes = $parts[1]; $dia = $parts[0]; return("$anyo-$mes-$dia"); } } //saca el mes y el año de una fecha function sacaMesAnyo($fecha,$corto=1) { $meses_corto=array("ENE","FEB","MAR","ABR","MAY","JUN","JUL","AGO","SEP","OCT","NOV","DIC"); $meses_largo = array("enero","febrero","marzo","abril","mayo","junio","julio","agosto","septiembre","octubre","noviembre","diciembre"); $meses_largo = array(); $idioma = $GLOBALS["AM_idioma"]; $sql = "SELECT referencia, texto_es, texto_$idioma as texto FROM textos WHERE seccion = 'meses'"; $rst = mysql_query($sql); $cont = 0; while ($row = @mysql_fetch_object($rst)) { $aux = $row->texto; $salir = true; for($i=0;$i"" && $aux[$i]<>" " && !ereg("\r",$aux[$i]) && !ereg("\r",$aux[$i]) ) $salir = false; } if($salir) $meses_largo[$cont] = $row->texto_es; else $meses_largo[$cont] = $row->texto; $cont++; } $cadena = split("/",$fecha); $num = intval( $cadena[1])-1; if($corto) $nueva = strtolower($meses_corto[$num])." ".$cadena[2][2].$cadena[2][3]; else $nueva = $meses_largo[$num]." ".$cadena[2]; return $nueva; } //function que comprueba dos cadenas, si devuelve la que no es vacia function devuelveCadena($cadena, $otra){ $aux = $cadena; $salir = true; for($i=0;$i"" && $aux[$i]<>" " && !ereg("\r",$aux[$i]) && !ereg("\r",$aux[$i]) ) $salir = false; } if($salir) return $otra; else return $cadena; } function AnyoDosDigitos($fecha){ $fechaPrep = invierteFecha($fecha); $cadena = split("/",$fechaPrep); $nueva = $cadena[0]."/".$cadena[1]."/".$cadena[2][2].$cadena[2][3]; return $nueva; } function buscaEspacio($cad,$max) { $cad=substr($cad,0,$max); $ult=strrpos($cad," "); return($ult); } // Inserta ceros en la parte delantera del identificador hasta completar 'long' caracteres function alargaId($id, $long) { $new = $id; $tam = strlen($id); while ($tam < $long) { $new = "0" . $new; $tam++; } return($new); } function FechaSinAnyo($fecha){ $fechaPrep = invierteFecha($fecha); $cadena = split("/",$fechaPrep); $nueva = $cadena[0]."/".$cadena[1]; return $nueva; } function paginador($inicio, $fin, $pag) { for ($i = $inicio; $i <= $fin; $i++) { if ($pag == $i) { ?> NORVAMED · Asesores | Consultores