Question : Faire un choix basé sur l'âge calculé à partir de la date de naissance

Salut les experts, le

I ont une table appelée les « gens » dans ma base de données de MySQL qui a un champ appelé la « date de naissance » que les propriétés pour ce champ sont « Vchar » et le format est le dateformat européen densité-millimètre-yyyy (ou 23-05-1964).

In mon interface de PHP que je voudrais donner à l'utilisateur deux boîtes de choix où il peut sélectionner deux âges fonctionnant de de 6 à 16 jears vieux et soumettre dessus la question devrait montrer que seulement les gens qui assortissent ce condition.

Can ceci soient faits ?  Et comment est-ce que je devrais faire ceci ? la fonctionnalité du

The est pour une interface qui permet pour choisir des membres de la jeunesse basés sur le theire pour les vieillir et entrer dans un team.

Thanks, le

class= de

Réponse : Faire un choix basé sur l'âge calculé à partir de la date de naissance

Supposant que tous les champs que l'utilisateur pourrait choisir parmi à chacune de ces tables sont un texte, essai :

strApply = « [ » et strField et « ] = """ et strFilter et """"

Si tous les champs qui pourraient être choisis ne sont pas texte, alors vous allez devoir figurer dehors une manière de déterminer le datatype du champ avant de créer strApply.  Vous pourriez employer une fonction comme ce qui suit :

Fonction publique FieldType (TableName comme corde, Fieldname comme corde) comme nombre entier

    Faible strSQL comme corde
    Faibles rs comme DAO.Recordset
   
    le strSQL = « CHOISISSENT [ » et Fieldname et « ] À PARTIR [ » et TableName et « ] OÙ faux »
    le strSQL = remplacent (remplacer (strSQL, « [[ », « ["), « ]] », « ] ")
   
    Placer les rs = le CurrentDb.OpenRecordset (strSQL, le dbfailonerror)
   
    FieldType = rs. Champs (0). Type
    rs. Fin
    Placer les rs = rien
   
Finir la fonction

Et faire alors quelque chose comme :

intFieldType = FieldType (strReport, strField)
CHOISIR l'intFieldType de cas
    Enfermer le dbBigInt, dbBoolean, dbByte, cbCurrency, dbDecimal, dbDouble, dbFload, dbInteger, dbLong, dbNumeric
        strApply = « [ » et strField et « ] = » et strFilter
    Cas dbChar, cbText, dbMemo
        strApply = « [ » et strField et « ] = """ et strFilter et """"
    dbDate de cas, dbTime
        strApply = « [ » et strField et « ] = # » et strFilter et « # »
    Cas autrement
        msgbox « type de données inattendu = » et intFieldType
        'Celui-ci devrait inclure toutes les valeurs
        strApply = ""
Extrémité choisie

me.subReport.Report.Filter = strApply
me.subReport.Report.FilterOn = (strApply <> "")