請系統輸出日期的日~卻出現資料型態錯誤? - Excel程式區

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^# 跳轉到 »

發表於 2011-9-27 16:57 | 只看該作者

回復 9# jimmyhk

問題肯定不是出在括號
語法上D=(Day(TextBox1))
這最外圍括號是多餘的

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

12^#

發表於 2011-9-27 21:58 | 只看該作者

本帖最後由 luhpro 於 2011-9-27 22:01 編輯

問題肯定不是出在括號
語法上D=(Day(TextBox1))
這最外圍括號是多餘的
Hsieh 發表於 2011-9-27 15:45

晤...
問題的確不應出現在括號,
Post 文中的括號是因為測試時我是分別用 MsgBox(Day(TextBox1)) 秀出結果來的,
後來套用到樓主的程式時沒注意到要把括號拿掉,
雖然有沒括號結果都是相同的,
但是卻造成了樓主的誤解, 很抱歉.

回復 luhpro
對了我該如何把組合出來的字變成日期格式
2011/9/27
Y &"/" & M & "/" & D
日期 ...
av8d 發表於 2011-9-27 16:52

DateSerial(2011, 9, 27)
這個指令只要搜尋 "日期" 就可以找到,
多多善用 F1 按鍵的說明功能可以多學很多東西喔.

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

13^#

發表於 2011-9-28 09:27 | 只看該作者

回復 12# luhpro

感謝各位大大~
我PO一下問題~已加入您提供的資訊
Private Sub CommandButton1_Click()
'資料建檔
Y = (Year(TextBoxM))
M = (Month(TextBoxM))
D = (Day(TextBoxM))
N1 = TextBoxN1
N2 = TextBoxN2
N3 = Round(N1 / N2)
For i = (M + 1) To (M + N2)
      If i > 12 Then
      Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 5) = Array(DateSerial(Y & "/" & (i - 12) & "/" & D), "分期付款", N3, TextBox1, TextBox2)
      Else
      Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 5) = Array(DateSerial(Y & "/" & i & "/" & D), "分期付款", N3, TextBox1, TextBox2)
      End If
Next
Unload Me
End Sub

無法執行

TOP

luhpro