Se importa la función fecha() creada por jem

diff --git a/html/gec.php b/html/gec.php
index c13eebdbe1e79f8f2c309b74cba7b69641210fd2..c8c899c7f36711a1280e87ebd91063677374398d 100644 (file)
--- a/html/gec.php
+++ b/html/gec.php
@@ -23,4 +23,5 @@ function infogrupo ($G, $DE, $DI, $DP, $DT) {
     }
     return $Info;
 }
-?>
\ No newline at end of file
+
+?>

diff --git a/html/wiki.php b/html/wiki.php
index dfbc6a555d79ed14acae5a98e3072f0353cc6a2d..f0a2fc2ef62593e92a8a64bd1ca7d9f61bd43b88 100644 (file)
--- a/html/wiki.php
+++ b/html/wiki.php
@@ -15,6 +15,21 @@ function parsecfg ($F) {                        # Se admiten matrices numéricas
         return $D;
 }
 
+function fecha ($F, $DI, $Extras = array ("Año")) {
+        $T = ($F > 946684800 ? $F : strtotime (chop ($F, "Z")));                # Convertir a timestamp si no lo es (comparamos con el timestamp de 2000-01-01 00:00 UTC)
+        if ($DI["formato fecha"] == "ISO") {
+                $R = date ("Y-m-d", $T);
+                if (in_array ("Hora", $Extras)) $R .= date (", H:i", $T);
+        } else {
+                if (in_array ("DíaSem", $Extras)) $D = (in_array ("Larga", $Extras) ? "{$DI["díasemc"][date ("N", $T)]}, " : "{$DI["díasem"][date ("N", $T)]} ");
+                $A = (in_array ("Año", $Extras) ? " Y" : "");
+                if (in_array ("Hora", $Extras)) $H = ", H:i" . (in_array ("Larga", $Extras) ? " (e)" : "");
+                $M = (in_array ("Larga", $Extras) ? "de " . $DI["mesc"][date ("n", $T)] . ($A ? " de" : "") : $DI["mes"][date ("n", $T)]);
+                $R = $D . (date ("j ", $T) . $M . date ("{$A}{$H}", $T));
+        }
+        return ($F ? $R : "N/D");
+}
+
 function wikiencode ($URLA, $URLB = NULL, $URLC = NULL, $MI = AZ, $MF = az) {
         $Cambios = array (
                 "+" => "_", "%3A" => ":", "%2F" => "/",         # Inversión de urlencodes