12
返回列表 上一主題 發帖

年度只加大於零

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
11# 跳轉到 »
發表於 2015-3-29 17:40 | 只看該作者
回復 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)雖可顯示正確的年次
   但卻非數值頭痛耶!!

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
12
返回列表 上一主題