返回列表 上一主題 發帖

[發問] 如何讓日期儲存時有時:分 (24小時制)

[發問] 如何讓日期儲存時有時:分 (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∼應該是因為我當時沒有設定∼我該如何改寫呢? 謝謝!

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

TOP

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

TOP

回復 3# alumi


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

TOP

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

TOP

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

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題