|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
=Format([월별급여]-DateSerial(IIf(Mid([주민등록번호],7,1)<3,"19" & Left([주민등록번호],2),"20" & Left([주민등록번호],2)),Mid([주민등록번호],3,2),Mid([주민등록번호],5,2)-1),"yy")
위수식은 정확하지가 않은거 같아요 ㅠ
*고용일 대신해서 주민등록번호(470201-1234556)가 있으면 앞부분(1947/02/01)만 발췌해서 만나이 구하는게 가능할까요?
아무리 생각해봐도 잘 안되네요 ㅠ
Public Function Serviceyear(고용일 As Date, 월별급여 As Date) As Variant
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim n As Integer
i = DateDiff("m", 고용일, 월별급여) - 1
If Right(고용일, 2) - Right(월별급여, 2) - 1 < 0 Then j =1 Else
j = 0
End If
k = i + j
l = Int(k / 12)
m = k - l * 12
n = DateDiff("d", DateAdd("m", k, 고용일), 월별급여)
Serviceyear = Format(l, "00") & "y" & Format(m, "00") & "m" & Format(n, "00") & "d"
End Function
|
|