VBA 表單功能發問 - Excel程式區 - 麻辣家族討論版版

[發問] VBA 表單功能發問

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 "已過期"

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。