[VB6 ] 如何轉成日期格式
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
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
