- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
2#
發表於 2012-3-27 11:42
| 只看該作者
本帖最後由 hugh0620 於 2012-3-27 11:47 編輯
回復 1# tommy.lin
A欄位是日期格式~ 代表的就是年月日
你要拆解的BCD欄位也就是年月日~
用一般最簡單的方式~來拆解就可以了~
若你A資料是從資料庫倒出來的~ 可能會是文字格式~有可能要修改一下~
如果可以~ 請提供資料的範例~- Sub EX_1()
- For Each a In Range("A:A")
- If a <> "" Then
- a.Offset(0, 1) = Year(a)
- a.Offset(0, 2) = Month(a)
- a.Offset(0, 3) = Day(a)
- End If
- Next
- End Sub
|
|
