- 帖子
- 463
- 主題
- 116
- 精華
- 0
- 積分
- 580
- 點名
- 0
- 作業系統
- Vista
- 軟體版本
- 2007
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-4
- 最後登錄
- 2017-11-13
 
|
回復 10# JBY
前輩!謝謝!!
用中曆來輸入出生日期比較順
所以K1是由如下程式寫入
Sub 出生日期()
ZZ = InputBox("輸入日期", " 請輸入你的出生年月日", "67/2/16")
If ZZ <= 0 Then Exit Sub
a = Split(ZZ, "/")
a(0) = a(0) + 1911
[K1] = Join(a, "/")
[K1].NumberFormat = "e/m/d"
End Sub
如果K2=YEAR(K1)-1911是無法顯示正確的年次
哪知K2=CONCATENATE(MID(YEAR(J1),1,4)-1911)雖可顯示正確的年次
但卻非數值頭痛耶!! |
|
發表於 2015-3-29 17:40
| 