日期的計算_rem 获取当前日期和时间-优快云博客

本文链接：https://blog.youkuaiyun.com/Click108_steven/article/details/136473345

本文介绍了使用VBA(VisualBasicforApplications)编程中处理日期的方法，包括获取当前日期、格式化为特定格式（如西元年月日）、获取上个月最后一天以及生成整月日期排序数组。还涉及到了台湾日期的转换函数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Rem 取西元當日

dTime3 = time.Format(Time.Now(),"yyyymmdd")

Rem 取西元年月當月

dTime3 = time.Format(Time.Now(),"yyyymm")

rem 取西元年上個月

dTime3 = time.Format(Time.Now(),"yyyymmdd")

Rem 取月份最後一天
Function getlastday(mm)
   If mm="01" Or mm="03" Or mm="05" Or mm="07" Or mm="08" Or mm="10" Or mm="12"
       dd = "31"
   ElseIf mm="04" Or mm="06" Or mm="11" Or mm="09"
       dd "30"
   Else
       dd="28"

   End If
   Return dd
End Function

Rem 產生整月日期排序

Function ListCurrentMonthDates(mm)

If mm='01' Or mm='03' Or mm='05' Or mm='07' Or mm='08' Or mm='10' Or mm='12'

dd = "31"

ElseIf mm="04" Or mm="06" Or mm="11" Or mm="09"

dd = "30"

Else

dd = "28"

End If

dd = CInt(dd)

thisM = Time.Format(Time.Date(),"yyyymm")

datearray = []

dates = ['01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20','21','22','23','24','25','26','27','28','29','30','31']

For i = 0 To dd-1 Step 1

datearray[i] = thisM&dates[i]

Return datearray

End Function

Rem Current Taiwan Date
Function GetTaiwanDate()
   dTime = Time.Now()
   dTime = Time.Format(dTime,"yyyymmdd")
   YYYY = Left(dTime,4)
   YYYY = CInt(YYYY)
   YYYY = YYYY-1911
   YYYY = CStr(YYYY)
   MM = Mid(dTime,5,2)
   DD = Right(dTime,2)
   CurrentDate = YYYY&"/"&MM&"/"&DD
   Return currentdate
   /***這段要複製到另一個呼叫的區塊去使用
YYYYMMDD=PF.gettaiwandate()
***/
End Function