trunc.bas

来自「数字处理函数包(5KB)15datediff.zip指定两个日期计算相隔的天数」· BAS 代码 · 共 17 行

Option Explicit

Function Trunc& (num#)
Dim t$, i%
Static dec_sep$

   If dec_sep$ = "" Then dec_sep$ = GetPrivateProfileString$("intl", "sDecimal", "WIN.INI")

   t$ = CStr(num#)
   i% = InStr(t$, dec_sep$)
   If i% > 0 Then t$ = Left$(t$, i% - 1)

   Trunc& = CLng(t$)

End Function