?WhatTypeIsIt(textbox.value) ?Convert2Whatever(textbox.value) function WhatTypeIsIt LPARAMETERS m.lcVar2check IF TYPE("m.lcVar2check") = "C" DO CASE CASE !EMPTY(CTOD(m.lcVar2check)) RETURN "D" CASE !EMPTY(CTOT(m.lcVar2check)) RETURN "T" CASE INLIST(UPPER(m.lcVar2check),"T","F","TRUE","FALSE",".T.",".F.") RETURN "L" CASE TYPE(m.lcVar2check) = "N" RETURN "N" OTHERWISE RETURN "C" ENDCASE ELSE RETURN TYPE("m.lcVar2check") ENDIF function Convert2Whatever LPARAMETERS m.lcVar2check IF TYPE("m.lcVar2check") = "C" DO CASE CASE !EMPTY(CTOD(m.lcVar2check)) RETURN CTOD(m.lcVar2check) CASE !EMPTY(CTOT(m.lcVar2check)) RETURN CTOT(m.lcVar2check) CASE INLIST(UPPER(m.lcVar2check),"T","F","TRUE","FALSE",".T.",".F.") RETURN iif(INLIST(UPPER(m.lcVar2check),"T","TRUE",".T."),.T., .f.) CASE TYPE(m.lcVar2check) = "N" RETURN val(m.lcVar2check) OTHERWISE RETURN m.lcVar2check ENDCASE ELSE return m.lcVar2check ENDIF