员工工龄统计表

WIANS

1、   编写程序，根据参加工作时间，自动实现计算工龄的功能（实例53\最终文件）

知识点：相关系统时间函数的使用；循环语句；

提示：1）若当前月份小于工作的起始月份，要向年借一位。2）将工龄转换成汉字时要考虑：员工工龄是否满一年及员工工龄是否满一月的情况

lyf7276

你看是这样的吗，我把结果放在“G，H，I”列。另外你的结果可能是以5月为准算的，算在是6月了，所以我的结果比你的结果大一个月。

WIANS

lyf7276 发表于 2013-6-13 16:27
你看是这样的吗，我把结果放在“G，H，I”列。另外你的结果可能是以5月为准算的，算在是6月了，所以我的结果 ...

求代码。我需要自己操作的

WIANS

lyf7276 发表于 2013-6-13 12:42
你看是这样的吗，我把结果放在“G，H，I”列。另外你的结果可能是以5月为准算的，算在是6月了，所以我的结果 ...

感恩的心，感谢有你

lyf7276

Sub 工龄()

m = Cells.Find("*", , , , , xlPrevious).Row
For i = 3 To m
If Range("b" & i) Like "*年*" Then
mmy = InStr(Range("b" & i), "年") + 1
mmw = InStr(Range("b" & i), "月")
n = Mid(Range("b" & i), mmy, mmw - mmy)
arr = Array("一", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二")

nn = Application.Match(n, arr, 0)
mm = Left(Range("b" & i), 4)
hi = VBA.DateSerial(mm, nn, 1)
mw = VBA.DateDiff("m", hi, Date)
my = Int(mw / 12)
zz = mw Mod 12
Range("h" & i) = zz
Range("g" & i) = my
If zz = 0 Then
Range("i" & i) = my & "年整"
Else
Range("i" & i) = my & "年零" & zz & "个月"
End If

Else
mw = VBA.DateDiff("m", Range("b" & i), Date)
my = Int(mw / 12)
zz = mw Mod 12
Range("h" & i) = zz
Range("g" & i) = my
If zz = 0 Then
Range("i" & i) = my & "年整"
Else
Range("i" & i) = my & "年零" & zz & "个月"
End If
End If
Next
End Sub

ykfexcel

学习下下，{:251:}

htqccw

学习一下