標題: [發問] 如何讓日期儲存時有時：分 （24小時制） [打印本頁]

---

作者: av8d    時間: 2012-6-1 15:51     標題: 如何讓日期儲存時有時：分 （24小時制）

本帖最後由 av8d 於 2012-6-1 16:31 編輯

Y = Year(TextBox1)
    M = Month(TextBox1)
    D = Day(TextBox1)

    If OptionButton1 = True Then
    OB1 = "收入"
    Else
    OB1 = "支出"
    End If
    If OptionButton4 = True Then
    OB4 = "薪資"
    Else
    OB4 = TextBox3
    End If
    Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 5) = Array(DateSerial(Y, M, D), OB1, TextBox2, OB4, TextBox4)


由於DateSerial(Y, M, D)格式是年月日∼我把輸出後的儲存格格是改成 年月日  時：分 （24小時制）
他則會固定出現12：00 AM∼應該是因為我當時沒有設定∼我該如何改寫呢？ 謝謝！

---

作者: GBKEE    時間: 2012-6-1 16:33

回復 1# av8d
  時：分       分號不符合命名原則

---

作者: alumi    時間: 2012-6-3 21:50

Format(DateType, "YYYY-MM-DD hh:mm")

---

作者: av8d    時間: 2012-6-4 10:32

回復 3# alumi


    大大您好~輸出後~該儲存格~無任何資料~然後我把儲存格格式改成自訂 yyyy/mm/dd hh:mm~還是沒有資料@@

---

作者: alumi    時間: 2012-6-4 14:05

這個函數沒有問題, 就看您 VBA 程式如何套用了.
debug.Print format(now,"YYYY-MM-DD hh:mm")
2012-06-04 14:04

---

作者: oobird    時間: 2012-6-4 21:43

Y = Year(TextBox1)
    M = Month(TextBox1)
    D = Day(TextBox1)
你輸入textbox跟本沒有時間，當然只能是12：00 AM~0時0分
你要的時間必須要輸入才會有。
還有若textbox1本就是日期加時間，建議直接用textbox1.value就行了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)