以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于数据校验的问题?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145275)

--  作者:15822226611
--  发布时间:2020/1/14 16:48:00
--  [求助]关于数据校验的问题?
 老师好,我有一列为“预算批复日期”(时间格式2020-01-14),第二列为“预算编号”,因为同一天可能批复数个预算,所以预算编号的规则是日期+两位数字,如:2020011401,怎么验证“预算编号”值的前八位是“预算批复日期”呢?
--  作者:有点蓝
--  发布时间:2020/1/14 16:52:00
--  
Dim str As String = "2020011401"
try
    Dim dt As Date = DateTime.ParseExact(str.SubString(0,8), "yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture)
    msgbox(dt)
    catch
    msgbox("无效日期")
End try

--  作者:15822226611
--  发布时间:2020/1/14 18:13:00
--  
老师,怎么使用?小白。
--  作者:有点蓝
--  发布时间:2020/1/14 20:29:00
--  
如果完全看不懂,先学学基础:http://www.foxtable.com/webhelp/topics/1592.htm