返回列表 上一主題 發帖

[發問] 請系統輸出日期的日~卻出現資料型態錯誤?

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-9-23 11:56 | 顯示全部帖子

[發問] 請系統輸出日期的日~卻出現資料型態錯誤?

本帖最後由 av8d 於 2011-9-28 09:28 編輯

D = Day(TextBox1)
MsgBox D

出現資料型態錯誤
年月都沒問題~日不知道為什麼卻出現問題?

附上原檔案 icash.rar (25.35 KB)
收藏 分享

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
2#
發表於 2011-9-25 00:26 | 顯示全部帖子
本帖最後由 av8d 於 2011-9-25 00:27 編輯

回復 3# oobird


    O大謝謝你~他是在userform中的~您真細心~我原本還在想沒原檔怎麼PO~被您一眼就看出來了!

可是阿  我用  Year(TextBox1) 和  Month(TextBox1)  都可以使用~不知道為什麼只有Day呢?

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
3#
發表於 2011-9-27 15:19 | 顯示全部帖子
D = Day(TextBox1)
原來是
D = (Day(TextBox1))
前後沒+括號的關係~謝謝您!

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
4#
發表於 2011-9-27 16:52 | 顯示全部帖子
本帖最後由 av8d 於 2011-9-28 09:17 編輯

回復 5# luhpro


    對了我該如何把組合出來的字變成日期格式
2011/9/27
Y &"/" & M & "/" & D
日期格式

附上原檔
icash.rar (25.35 KB)

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
5#
發表於 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

        靜思自在 : 看別人不順眼，是自己修養不夠。
返回列表 上一主題