1操作一：打开电脑，找到电脑上的Excle软件，操作如下。2操作二：打开需要计算工龄的表格软件，以下面的表格为例子进行操作，操作如下。3操作三：在单元格,简介Excel是一个常用的软件，下面我来教大家在Excel软件里如何快速计算员工的工龄。工具原料HuaweiMateBook13windows10Excel软件方法步骤1首先，打开Excel软件,工伤计算器app是一个帮助用户计算工伤赔偿的计算器 下面由淄博知识产权律师为您介绍工龄计算器软件叫什么相关法律知识，希望能够帮助到您。
工龄计算器软件叫什么名字
最简单的就是用宏编写一个小程序就搞定了，单纯用公式会很麻烦。
补充：你的表格我看过了，
代码如下：
Sub 计算工龄()
Dim a
For a = 2 To 60000
If Cells(a, 3) = "" Then GoTo wc
l = Cells(a, 3)
n = Year(l)
y = Month(l)
r = Day(l)
nn = Year(Date)
ny = Month(Date)
If r > 15 Then y = y + 1
yc = (nn - n) * 12 + (ny - y)
nll = Int(yc / 12)
w = nll * 12
gl = yc - w
If w > 0 Then
If gl = 0 Then
Cells(a, 4) = nll & "年整"
Else
Cells(a, 4) = nll & "年零" & gl & "个月"
End If
ElseIf yc > 0 And yc < 12 Then
Cells(a, 4) = gl & "个月"
Else
Cells(a, 4) = "还没来呢"
End If
Next a
wc:
End Sub
工龄计算器软件叫什么软件
上月底日期 x =DATE(YEAR(TODAY()),MONTH(TODAY()),1)-1
入职日期修正为 y =DATE(YEAR(A1),MONTH(A1)+(DAY(A1)>15),1)
b1 公式 z =datedif(y,x,"Y")&"年 "&mod(datedif(y,x,"m"),12)&"个月"
可能出现 0年 或 0月 的情况
最终公式为 =substitute(substitute(z,"0年",""),"0月","")
把xyz代到最终公式中，好长喔
=SUBSTITUTE(SUBSTITUTE(DATEDIF(DATE(YEAR(A1),MONTH(A1)+(DAY(A1)>15),1),DATE(YEAR(TODAY()),MONTH(TODAY()),1)-1,"Y")&"年 "&MOD(DATEDIF(DATE(YEAR(A1),MONTH(A1)+(DAY(A1)>15),1),DATE(YEAR(TODAY()),MONTH(TODAY()),1)-1,"m"),12)&"个月","0年",""),"0个月","")
工龄计算器软件叫什么名称
说实在的，分少了些，不过本人水平低，将就。
本问题采用宏来解决。
Sub Macro1()
'
' Macro1 Macro
Dim reDate As Date, curDate As Date
Dim DIF As Integer, difYear As Integer, difMonth As Integer, I As Integer
For I = 1 To 1000 '自第一行开始有入职日期即I=1，以此类推，1000为最大数据记录可设高一些
'取入职日期
reDate = Sheet1.Cells(I, 1)
If IsNull(reDate) Then Exit For
If Not (reDate > "1900-1-1") Then Exit For
If Day(reDate) > 15 Then
reDate = DateValue(Year(reDate) & "/" & Month(reDate) + 1 & "/" & 1)
Else
reDate = DateValue(Year(reDate) & "/" & Month(reDate) & "/" & 1)
End If
'取截止日期
curDate = DateValue(Year(Now) & "/" & Month(Now) & "/" & 1)
'计算间隔月份
DIF = DateDiff("m", reDate, curDate)
'判断是否超过1年
If DIF > 11 Then '超过1年
difYear = Int(DIF / 12) '取年数
difMonth = DIF Mod 12 '取月数
If difMonth = 0 Then
Sheet1.Cells(I, 2) = difYear & "年"
Else
Sheet1.Cells(I, 2) = difYear & "年" & difMonth & "个月"
End If
Else
Sheet1.Cells(I, 2) = DIF & "个月"
End If
Next I
End Sub
如果要让EXCEL一打开这工作簿即自行更新，可在ThisWorkBook中加入下列代码
Private Sub Workbook_Open()
Macro1
End Sub
年龄计算器软件叫什么
A1为入职日期
B1 输入
=INT(DAYS360(IF(DAY(A1)<16,DATE(YEAR(A1),MONTH(A1),1),DATE(YEAR(A1),MONTH(A1)+1,1)),DATE(YEAR(NOW()),MONTH(NOW()),1))/360)&"年"&MOD(DAYS360(IF(DAY(A1)<16,DATE(YEAR(A1),MONTH(A1),1),DATE(YEAR(A1),MONTH(A1)+1,1)),DATE(YEAR(NOW()),MONTH(NOW()),1))/30,12)&"月"
