若有一日期,格式為20020101(即2002-01-01),而這格式放在format轉換會出error,那麼有什麼辦法可令20020101變為2002-01-01
創作者介紹

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 PIXNET 留言(6) 人氣()


留言列表 (6)

發表留言
  • 不醉酒鬼
  • 利用mid的指令自己寫個Function來轉換
  • Fluxional
  • 你可以考慮使用 stdDataFormat 物件,請查 MSDN
  • Julius Caesar
  • X = 20020101
    Y = Mid(X, 0, 4) + "-" + Mid(X, 5, 6) + "-" + Mid(X, 7, 8)
    MsgBox X
    等待當兵的程式設計師.......
  • Julius Caesar
  • 糗大了......把X跟Y搞錯,還有Mid是從1開始~"~
    X = "20020101"
    Y = Mid(X, 1, 4) + "-" + Mid(X, 5, 6) + "-" + Mid(X, 7, 8)
    MsgBox Y
  • 心冷熱情熄
  • Relpace(Format(DateValue(Now), "yyyy/mm/dd"), "/", "-")
  • wave
  • Print Format(20020101, "####-##-##")
    Print Format("20020101", "####-##-##")
    Print Format(20020101, "@@@@-@@-@@")
    Print Format("20020101", "@@@@-@@-@@")