主题：字符转换成日期

Select Case e.DataCol.Name
    Case "月份","选择"
     Dim m As String= dr("月份").substring(0,3)
     Dim y As String = dr("月份").substring(4,2) 
     Dim dt1 As New Date(y, m, 1) '获取该月的第一天     
     dr("开始日期") = dt1    
     Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天    
     dr("结束日期") =dt2

字符

开始日期与结束日期是日期时间

是字符型
此主题相关图片如下：qq截图20200312103951.jpg

开始日期与结束日期是日期时间
此主题相关图片如下：9999.jpg

是202002

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar