作者molucolin (molucolin)
看板Visual_Basic
标题[VB6 ] 如何转成日期格式
时间Sat Jun 17 19:37:02 2006
Dim Tim as string
Tmp=GetChineseDate()
Text1.text=Left(Tmp,3) '取年度
=============================================
select sum(field2) as TotalPiece from Table '从表单的栏位统计每月的
where WestDate between BeginDate and EndDate '总件数
=============================================
Dim year as string
Dim month as string
year=Text1.text
而BeginDate 到 EndDate
分别为每年月初到月底
我想到的办法
for i=1 to 12
month = format(i,"00")
BeginDate=CDate(year+"/"+month+"/01")
EndDate=CDate(year+"/"+month+"/31"
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^这好像不符合逻辑
有些月份的最後一天不是31
对了我这样转换日期格式没有问题吗
因为我看不到执行结果
所以无法判断是否这样行不通
对了闰年怎麽算啊就是看2月
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
然後执行上面的SQL叙述
将rs.fields(TotalPiece)存到另一个表单
该月份的总件数
rs2.Fields(Pieces)=rs.Fields(TotalPiece)
rs2.MoveNext
Next
rs.close
rs2.close
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.166.92.203