以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  百度图像识别中的日期转换。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121704)
--  作者：lxq3736
--  发布时间：2018/7/11 19:53:00
--  百度图像识别中的日期转换。
百度文字识别   Newtonsoft.Json

。。。。。

Dim jo As JObject = Jobject.Parse(str)

。。。。。
Dim ZCRQ As WinForm.DateTimePicker = e.Form.Controls("ZCRQ")
ZCRQ.value   = jo("words_result")("注册日期")("words")  这个无法实现


lbl108.text=jo("words_result")("注册日期")("words").ToString

lbl108.text 显示为20130320
。。。。


这是百度文字识别，求助
谢谢！
--  作者：有点甜
--  发布时间：2018/7/11 21:25:00
--  
Dim d As Date = Date.ParseExact("20130320", "yyyyMMdd",System.Globalization.CultureInfo.InvariantCulture)
msgbox(d)
--  作者：lxq3736
--  发布时间：2018/7/11 22:54:00
--  这个函数的错误返回是啥？我想做个判断，防止值的格式不正确导致程序出错
这个函数的错误返回是啥？我想做个判断，防止值的格式不正确导致程序出错！
如 “20130TYB”
--  作者：有点甜
--  发布时间：2018/7/11 23:15:00
--  
try
    Dim d As Date = Date.ParseExact("20130TYB", "yyyyMMdd",System.Globalization.CultureInfo.InvariantCulture)
    msgbox(d)
catch ex As exception
    msgbox("出错")
End try