返回列表 上一主題 發帖

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

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

本帖最後由 dou10801 於 2021-7-1 16:20 編輯

請教各位先進,民國日期轉西元日期檢核,如果日期不正確如何跳回原來的位置,重新輸入,感謝.

民國日期轉西元日期檢核.rar (18.8 KB)

杜小平

本帖最後由 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 於 2021-7-1 23:57 編輯

回復 1# dou10801


  剛剛有點bug 已更新

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

TOP

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

回復 1# dou10801

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

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

TOP

本帖最後由 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

回復 5# singo1232001


    v5 bug 已修正

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

TOP

回復 6# singo1232001 感謝 熱狗慶大大指導,且內容均有註解,詢問一個問題,給我很多思路,雖不能完全了解內碼含意,但會一一學習,慢慢消化,其中,Controls(Replace(da, "textBox", "Label", , , vbTextCompare)).Caption = CDate(t) '將正確日期放置label101~103,還無法融會貫通,敬請大大,指導.
杜小平

TOP

輸入錯誤時,返回輸入格
__用msgbox後, 駐點會消失(沒有閃爍), 還是要再點一下輸入格!!!

TOP

用Lab代替msgbox
Xl0000636.rar (16.56 KB)

TOP

回復 9# 准提部林 感謝 准大指導,其中ActiveControl = "" 屬性,是那個控件,其作用為何,謝謝.
杜小平

TOP

        靜思自在 : 一個人的快樂.不是因為他擁有得多,而是因為他計較得少。
返回列表 上一主題