Función para calcular edad con MySQL

Lo siguiente es el script SQL para crear una función almacena para MySQL que permite calcular la edad

ejemplo de uso:

SELECT edad('1972-12-31','2011-11-02');

el resultado es 38;
 
DROP FUNCTION IF EXISTS edad
delimiter //
CREATE FUNCTION edad(fnac DATE,fact DATE) RETURNS INT
BEGIN
DECLARE aux INT;
IF YEAR(fnac)>YEAR(fact) THEN
SET aux = -1;
ELSE
SET aux = (YEAR(fact)-YEAR(fnac)) - (RIGHT(fact,5)<(RIGHT(fnac,5));
END IF;
RETURN aux;
END//
delimiter ;

Deseo le sirva de provecho, y no olvide de hacer sus comentarios.

Ing. Tom Zambrano "El hombre inteligente no es aquel que lo sabe todo, sino aquel que sabe aplicar lo poco que sabe" Zilver sTone "El poder del hombre no radica en su fuerza, sino en el poder de su palabra"

Crear una base de datos con PHP5

En las versiones anteriores a PHP5 para crear o eliminar una Base de datos de mysql se usaban las funciones mysql_create_db() y mysql_drop_db() respectivamente. Actualmente con PHP5 ya no se usan, mas bien se emplea una consulta sql para tal propósito, como muestra a continuación:


<?php
$bd = "iuty";
$host = 'localhost';
$pass = 'root';
$user = '123456';

if(!($link = mysql_connect($host,$pass,$user))){
    echo "No se ha podido conectar al servidor";
}
else{
    //Elimina la base de datos
    $eliminar = mysql_query("DROP DATABASE IF EXISTS $bd",$link);
   
    //crea la base de datos
    $crear = mysql_query("CREATE DATABASE $bd",$link);
   
    //string sql para crear la tabla estudiante
    $sql = "CREATE TABLE estudiante (expediente INT not null primary key, nombre VARCHAR(35), fec_nac DATETIME no null);";
   
    //selecciona la base de datos
    mysql_select_db($bd,$link);
   
    //crea la tabla
    if(mysql_query($sql,$link)){
        echo "base de datos creada correctamente";
    }
    else {
        echo "No se ha podido crear la base de datos";
    }
}

?>

Ing. Tom Zambrano "El hombre inteligente no es aquel que lo sabe todo, sino aquel que sabe aplicar lo poco que sabe" Zilver sTone "El poder del hombre no radica en su fuerza, sino en el poder de su palabra"

Esto es una articulo que encontré ya hace un tiempo, en un lugar que no recuerdo, y que copio tal cual lo encontré, respetando y dando crédito a las personas involucradas en el mismo

esperar pulsado de tecla en C

Leonardo Mosquera
Tue, 11 Sep 2007 14:01:46 -0700

On 9/11/07, Andorogynus ! <[EMAIL PROTECTED]> wrote:
>
> Como puedo hacer en C para simular un INKEY$ (que viejo !)
> Es decir, efectuar una pausa hasta que el tipo presione una tecla.
>
> Probe con getchar() pero no me permite abortar (Ctrl-C) el programa.
>

A continuacion te adjunto una contribucion que hizo alguien a la lista de mi
universidad una vez. Podes recortar todo lo que no sea getch() y su soporte.
Tene en cuenta la licencia, o al menos no copies/pegues sino que
"inspirate".

Nota: tradicionalmente se usa ncurses para eso que queres hacer, pero yo
mismo ya conclui que ncurses es demasiado armatoste si simplemente queres
pausar el programa por la duracion de exactamente 1 tecla.


------------------------------------------------------------------------

/* +++++++++++  conio.h de Porland (versión trucha del Borland  :-)
+++++++++++
 *
 * Autor: Omar Murray (Crux_)             Versión: 0.0.2
 * Licencia: GPL                Fecha: 05/06/07
 *
 * Esto intenta ser una recopilación de las funciones más utilizadas en
 * la librería <conio.h> de Borland para poder generar código y compilar
 * utilizando gcc en GNU/Linux, y luego poder correrlo en un entorno
 * Borland sin necesidad de modificar el código escrito. Mayormente son
trozos
 * de código obtenido de inet y recopilados en una sola librería. La
idea es
 * utilizarlo para fines educativos; está en absoluto estado alfa, así
que su
 * uso queda a riesgo de quien lo utilice.
 *
 * CHANGELOG
 * v 0.0.1    Se implemente funciones getch() y clrscr().
 * v 0.0.2    se agrega función gotoxy(), se ordena código.*/

#include <stdio.h>
#include <termios.h>
#include <unistd.h>
#include <stdlib.h>
#include <string.h>

//******************FUNCION GETCH****************************
int getch( ) {
 struct termios oldt,
                newt;
 int            ch;
 tcgetattr( STDIN_FILENO, &oldt );
 newt = oldt;
 newt.c_lflag &= ~( ICANON | ECHO );
 tcsetattr( STDIN_FILENO, TCSANOW, &newt );
 ch = getchar();
 tcsetattr( STDIN_FILENO, TCSANOW, &oldt );
 return ch;
}

//******************FUNCION CLRSCR*****************************
void clrscr( ) {
system("clear");
}

//**************** **FUNCION GOTOXY*****************************
int gotoxy(int x, int y) {
char essq[100]; // String variable to hold the escape sequence
char xstr[100]; // Strings to hold the x and y coordinates
char ystr[100]; // Escape sequences must be built with characters

//   ** Convert the screen coordinates to strings
sprintf(xstr, "%d", x);
sprintf(ystr, "%d", y);

//    ** Build the escape sequence (vertical move)
essq[0] = '\0';
strcat(essq, "\033[");
strcat(essq, ystr);

//     ** Described in man terminfo as vpa=\E[%p1%dd
//     ** Vertical position absolute
strcat(essq, "d");

//     ** Horizontal move
//     ** Horizontal position absolute
strcat(essq, "\033[");
strcat(essq, xstr);

//     // Described in man terminfo as hpa=\E[%p1%dG
strcat(essq, "G");

//      ** Execute the escape sequence
//      ** This will move the cursor to x, y
printf("%s", essq);
return 0;
}

Ing. Tom Zambrano "El hombre inteligente no es aquel que lo sabe todo, sino aquel que sabe aplicar lo poco que sabe" Zilver sTone "El poder del hombre no radica en su fuerza, sino en el poder de su palabra"

OpenOffice Macro para Impress

Saludos seguidores;

Hacia algún tiempo que no dejaba un post por acá.
Bueno resulta que en nuestro trabajo, CBIT-Yaracuy se presento una situación para el desarrollo de software educativo para las Canaima empleado Impress, de como introducir texto en una caja de texto y validar éste.

Indagando, buscando e investigando se logro dar con una solución empleando Macros de OpenOffice, acá la solución desarrollada:
Y este es el código Basic de las macros empleadas:

REM ***** BASIC *****
REM Codigo desarrollado por Ing. Tom Zambrano
REM el CBIT "Prof. Ferdinando Manto"
REM Marzo 2011
REM Se autoriza el empleo de este código, puede copiarlo, estudiarlo, modificarlo, distribuirlo
REM siempre y cuando de crédito de la autoría del mismo
Option Explicit

global oDoc As Object 'Para obtener la instancia del documento Impress
global oPre As Object 'Para obtener la instancia de la presentación
global oPreContr As Object 'Para obtener el los controles de la presentación
global oPagAct1 As Object 'Para obtener la instancia de la diapositiva donde esta la actividad
global oCajaTexto As Object 'Obtiene la instancia de la caja de texto

Sub Main

End Sub

Sub validar
obtenerAreaTrabajo
if (ucase(oCajaTexto.String)="ALGO") then
msgbox "muy bien"
oPreContr.gotoNextSlide() 'Va a la proxima diapositiva
oCajaTexto.String = "" 'para garantizar que la caja de texto quede vacia
else
msgbox "revisa tu respuesta"
oPreContr.gotoSlide(oPagAct1)
End IF
End Sub

Sub obtenerAreaTrabajo
oDoc = ThisComponent
oPagAct1 = oDoc.DrawPages.getByName("actividad1") 'Puede emplearse tambien
oCajaTexto = oPagAct1.getLinks().getByName("cajatexto")
oCajaTexto.CharHeight = 44
oPre = oDoc.Presentation
oPreContr = oPre.getController()
End Sub

Sub Tecla1
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "1"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub Tecla2
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "2"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub Tecla3
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "3"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub Tecla4
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "4"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub Tecla5
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "5"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub Tecla6
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "6"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub Tecla7
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "7"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub Tecla8
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "8"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub Tecla9
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "9"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub Tecla0
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "0"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaBorrar
Dim L As integer

obtenerAreaTrabajo

L = len(oCajaTexto.String)
if L>0 then
oCajaTexto.String = Left(oCajaTexto.String,L-1)
End If

oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaQ
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "Q"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaW
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "W"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaE
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "E"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaR
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "R"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaT
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "T"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaY
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "Y"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaU
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "U"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaI
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "I"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaO
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "O"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaP
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "P"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaA
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "A"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaS
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "S"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaD
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "D"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaF
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "F"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaG
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "G"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaH
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "H"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaJ
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "J"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaK
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "K"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaL
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "L"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaNtilde
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "Ñ"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaZ
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "Z"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaX
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "X"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaC
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "C"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaV
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "V"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaB
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "B"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaN
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "N"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaM
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + "M"
oPreContr.gotoSlide(oPagAct1)
End Sub

Sub TeclaSpace
obtenerAreaTrabajo
oCajaTexto.String = oCajaTexto.String + " "
oPreContr.gotoSlide(oPagAct1)
End Sub

A cada objeto, se le asigna un nombre, sobe todo a la caja de texto, y en la interacción de los objetos se le asocia la macro correspondiente

Deseo que este código les sea de utilidad y de provecho, no duden en dar crédito de su desarrollo, porque el conocimiento es de todos y todos tenemos derecho a el.

No olvides en hacer tus comentarios

fondo verde

---

Ing. Tom Zambrano

"El hombre inteligente no es aquel que lo sabe todo, sino aquel que sabe aplicar lo poco que sabe"
Zilver sTone

"El poder del hombre no radica en su fuerza, sino en el poder de su palabra"

---