123
返回列表 上一主題 發帖

[發問] VBA 表單功能發問

准提部林

帖子
2807 
主題
10 
精華
0 
積分
2863 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-5 
21# 跳轉到 »
發表於 2023-2-12 15:02 | 只看該作者
回復 20# v03586


V = InStr("+H0DP", xF(1, 3)) - 1 這也要加"P"


D = CDate(format(20230130, "00-00-00")) '即可轉成日期
if D - Date < 90 then msgbox "已過期"

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
123
返回列表 上一主題