民國日期轉西元日期檢核 - Excel程式區

singo1232001

　暱稱: 熱狗慶

帖子: 353
主題: 5
精華: 0
積分: 386
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-5-4

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2021-7-1 23:33 | 顯示全部帖子

本帖最後由 singo1232001 於 2021-7-1 23:47 編輯

回復 1# dou10801

補充

2000/1/ x
2000/1 x
2000/ x
2000 x

99/1/ x
99/1 x
99/ x
99 x

401/1/1 x
400/1/1 ok

99/1/1 ok
99-1-1 ok
99.1.1 ok
110/1/ ok
110-1-1 ok
110.1.1 ok

民國日期轉西元日期檢核.zip (27.93 KB)

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 353
主題: 5
精華: 0
積分: 386
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-5-4

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2021-7-1 23:56 | 顯示全部帖子

本帖最後由 singo1232001 於 2021-7-1 23:57 編輯

回復 1# dou10801

剛剛有點bug 已更新

民國日期轉西元日期檢核.zip (25.57 KB)

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 353
主題: 5
精華: 0
積分: 386
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-5-4

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2021-7-2 07:09 | 顯示全部帖子

本帖最後由 singo1232001 於 2021-7-2 07:17 編輯

回復 1# dou10801

抱歉再更正一次更正碰上2/29號的bug

民國日期轉西元日期檢核v1.zip (22.62 KB)

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 353
主題: 5
精華: 0
積分: 386
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-5-4

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2021-7-2 08:21 | 顯示全部帖子

本帖最後由 singo1232001 於 2021-7-2 08:35 編輯

回復 4# singo1232001

這個版本不同滑鼠並不會被綁住 enter與tab會被綁住
看喜好選擇

另外補充
縮排只是美觀而已並沒有實際作用而且很容易造成程序錯亂
若有需要改寫程序或研究程序時
請用原本展開的狀態coding與理解

若未來有需要美觀再考慮縮排
v4是用if寫的
v5是用select case寫的

民國日期轉西元日期檢核v4.zip (26.04 KB)

民國日期轉西元日期檢核v5.zip (24.93 KB)

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 353
主題: 5
精華: 0
積分: 386
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-5-4

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2021-7-2 08:42 | 顯示全部帖子

回復 5# singo1232001

v5 bug 已修正

民國日期轉西元日期檢核v5.zip (25.27 KB)

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 353
主題: 5
精華: 0
積分: 386
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-5-4

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2021-7-2 20:23 | 顯示全部帖子

本帖最後由 singo1232001 於 2021-7-2 20:25 編輯

回復 singo1232001 感謝熱狗慶大大指導,且內容均有註解,詢問一個問題,給我很多思路,雖不能完全了解內碼含 ...
dou10801 發表於 2021-7-2 09:48

Controls(Replace(da, "textBox", "Label", , , vbTextCompare)).Caption = CDate(t)

da 是由文字方塊事件觸發傳過來的name 比如"textbox101"

中間的 Replace(da, "textBox", "Label", , , vbTextCompare)
replace 將textbox101 文字取代成 label101 文字的意思
vbTextCompare 代表不區分大小寫避免大小寫會出錯

所以就變成
Controls(Label101).caption = CDate(t)
最後意思就是
Label101.caption = CDate(t)

TOP

[發問] 民國日期轉西元日期檢核

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]