vb 中如何算出一个日期与当前日期相差年数
答案:3 悬赏:20
解决时间 2021-03-17 11:43
- 提问者网友：堕落的邪教徒
- 2021-03-16 23:32
我是想得到一个入职日期和当前日期的比较，一年一以上的每多一年就多发50奖金
最佳答案
- 二级知识专家网友：说多了都是废话
- 2021-03-17 00:42
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
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
全部回答
- 1楼网友：气场征服一切
- 2021-03-17 02:17
msgbox datediff("m", "2012-03-27", "2013-03-27")
- 2楼网友：承载所有颓废
- 2021-03-17 02:09
Dim T As String, b, a As Long
T = "2010/10/07"
b = Year(CDate(T))
a = Abs(b - Year(Now))
MsgBox "与当前日期相差年数：" & a
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯