专家坐堂-这个是不是有错得不岀日期Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个是不是有错得不岀日期  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178416)

--  作者：qazlinle6
--  发布时间：2022/7/3 20:25:00
--  这个是不是有错得不岀日期

Dim y As Integer = Format(e.PostValues("日期"), "yyyy")
Dim m As Integer = Format(e.PostValues("日期"), "MM")
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m))

这个是不是有错得不岀日期

--  作者：有点蓝
--  发布时间：2022/7/3 21:23:00
--

msgbox(e.PostValues("日期"))
Dim y As Integer = Format(cdate(e.PostValues("日期")), "yyyy")
msgbox(y)