Вопрос : Сделайте выбор основанный на высчитанном времени от даты рождениа

Hi специалисты,

I получают вызванную таблицу «людьми» в моей базе данных MySQL которая имеет вызванное поле «birthdate», котор свойства для этого поля будут «Vchar» и формой будет европейское dateformat dd-mm-yyyy (или 23-05-1964).

In моя поверхность стыка PHP, котор я хотел был бы дать потребителю 2 коробки выбора где он может выбрать 2 времени от от от 6 до 16 jears старых и дальше представить вопрос должен показать только люди, чтобы сопрягают то condition.

Can это были сделаны?  И как должен я сделать это? функциональность

The для поверхности стыка делает его по возможности выбрать члены молодости основанные на theire для того чтобы постареть и двинуть они в team.

Thanks,

class=

Ответ : Сделайте выбор основанный на высчитанном времени от даты рождениа

Если допустить, что все поля потребитель smog выбрать от в каждой из этих таблиц будет текстом, попыткой:

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

Если всеми полями smogли быть выбраны не будут текст, то вы идете давать в численном выражении дорога обусловить datatype поля перед создаваться strApply.  Вы smogли использовать функцию как следующий:

Общественная функция FieldType (TableName как шнур, Fieldname как шнур) как интежер

    Тусклое strSQL как шнур
    Тусклые rs как DAO.Recordset
   
    strSQL = «ВЫБИРАЕТ [» & Fieldname & «] ОТ [» & TableName & «] ГДЕ ложно»
    strSQL = заменяет ть (замените (strSQL, «[[», «["), «]]», «] ")
   
    Установите rs = CurrentDb.OpenRecordset (strSQL, dbfailonerror)
   
    FieldType = rs. Поля (0). Тип
    rs. Конец
    Установите rs = ничего
   
Закончите функцию

И после этого сделайте что-то как:

intFieldType = FieldType (strReport, strField)
ВЫБЕРИТЕ intFieldType случая
    Покрывайте dbBigInt, dbBoolean, dbByte, cbCurrency, dbDecimal, dbDouble, dbFload, dbInteger, dbLong, dbNumeric
        strApply = «[» & strField & «] =» & strFilter
    Случай dbChar, cbText, dbMemo
        strApply = «[» & strField & «] = """ & strFilter & """"
    dbDate случая, dbTime
        strApply = «[» & strField & «] = #» & strFilter & «#»
    Случай еще
        msgbox «непредвиденный тип данных =» & intFieldType
        'Это одно должно включить все значения
        strApply = ""
Конец отборный

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