日期型去掉后面的时间

说明 非日期型为原的值 日期型 去掉后面的时间部分

Function (stringvar str) 
if not NumericText(str) then
(
    if IsDateTime (str) then
    (
        stringvar array strs:=Split (str,"-");
        if count(strs)>=3 then
        (
            stringvar array strs1:=Split (strs[3],":");
            if count(strs1)>=3 then
            (
               ToText(date(str))
            )
            else
            (
               str
            )
        )
        else
        (
            str
        ) 
    )
    else
    (
        str
    )
)
else
(    
     str

)