vb 中如何算出一个日期与当前日期相差年数

来源：百度知道 编辑：UC知道 时间：2024/05/31 13:54:04
我是想得到一个入职日期和当前日期的比较，一年一以上的每多一年就多发50奖金

Option Explicit

Private Sub Command1_Click()
Dim date1 As Date
date1 = DateValue(InputBox("请输入入职的日期：", "日期输入", "2000-1-1"))
Print "该员工入职" & DateDiff("yyyy", date1, Now) & "年"
Print "应该多发" & DateDiff("yyyy", date1, Now) * 50 & "元奖金"
End Sub

Dim T As String, b, a As Long
T = "2010/10/07"
b = Year(CDate(T))
a = Abs(b - Year(Now))
MsgBox "与当前日期相差年数：" & a

两个日期相减，可得相差的天数d，
365天为一年 ，
年数y=int(x/365)
奖金数x=50*(y-1)