vbf部分时间计算函数

 

Function FF_WINMAIN(ByVal hInstance As HINSTANCE) As Long '程序入口函数
   Print "1.Date" & vbTab & vbTab & Date
   Print "2.Add 10 days" & vbTab & Format(DateAdd("d" ,10 ,Now) ,"yyyy-mm-dd hh:nn:ss") & vbTab & "yyyy=Year;q=quater;m=month;ww=week;d=day;h=hour;n=Minute;s=Second"
   Print "3.From 1970 To Now " & DateDiff("yyyy", DateValue("1970/01/01"), Now) & " Year"
   Print "4.From 1970 To Now " & DateDiff("d" ,DateValue("1970/01/01") ,Now) & " Days"
   Print "5." & DatePart("yyyy" ,Now) & "Year " & DatePart("m" ,Now) & "Month " & DatePart("d" ,Now) & "Day " & DatePart("ww" ,Now) & "st Week"
   #include "vbcompat.bi"
   Print "6." & Format(DateSerial(2020,12,16), "yyyy-mm-dd hh:mm:ss")
   Sleep
End Function

 输出

...\release>2.exe
1.Date          12-16-2020
2.Add 10 days   2020-12-26 21:30:54     yyyy=Year;q=quater;m=month;ww=week;d=day;h=hour;n=Minute;s=Second
3.From 1970 To Now 50 Year
4.From 1970 To Now 18612 Days
5.2020Year 12Month 16Day 51st Week
6.2020-12-16 00:00:00