工龄计算器软件叫什么

淄博知识产权律师2022-09-15 19:58:48

导读: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)&"月"

声明:《工龄计算器软件叫什么》一文由51律师(m.lvshiweituo.com)注册用户淄博知识产权律师自主发布上传,不代表本站观点,版权归原作者本人所有,转载请注明出处,如有侵权、虚假信息、错误信息或任何问题,可发邮件到81156344@qq.com处理!

标签: 淄博知识产权律师

相关推荐

最新推荐

最近更新

一周热门

推荐专题