라이센스 사용남은 시간 실시간으로 출력하기

Sub ShowCurrentTime()
Dim nextUpdate As Double
Dim licenseExpiry As Date
Dim remainingTime As String

' 직원 시트의 라이센스 만료 날짜를 가져옵니다
licenseExpiry = Worksheets("직원").Range("J5").value ' 직원 시트의 B2 셀에 라이센스 만료 날짜가 있다고 가정합니다.

' 남은 라이센스 사용 기간을 계산합니다
remainingTime = CalculateRemainingTime(licenseExpiry)

' 남은 시간을 "결제" 시트의 D2 셀에 표시합니다
Worksheets("결제").Range("D2").value = remainingTime

' 1초 후에 다시 업데이트
nextUpdate = Now + TimeValue("00:00:01")
Application.OnTime nextUpdate, "ShowCurrentTime"
End Sub

Function CalculateRemainingTime(expiryDate As Date) As String
Dim currentDate As Date
Dim diff As Double
Dim years As Integer
Dim days As Integer
Dim hours As Integer
Dim minutes As Integer
Dim seconds As Integer
Dim remainingTime As String

currentDate = Now
diff = expiryDate - currentDate

If diff <= 0 Then
CalculateRemainingTime = "라이센스 만료됨"
Exit Function
End If

years = Year(expiryDate - currentDate) - 1900
days = Int(diff)
hours = Hour(diff)
minutes = Minute(diff)
seconds = Second(diff)

remainingTime = years & "년 " & days & "일 " & hours & "시간 " & minutes & "분 " & seconds & "초"
CalculateRemainingTime = remainingTime
End Function

Sub StopUpdatingTime()
' 시간 업데이트 중지
On Error Resume Next
Application.OnTime nextUpdate, "ShowCurrentTime", , False
On Error GoTo 0
End Sub

j5 값을 로그인했을때 로그인한 회원의 라이센스 값위치를 적어주면 되겟네요 그런데 엑셀은 로그인 했을때 세션이 있는지 잘모르겟어요

공부해서 다시 올려볼게요^^

제 사이트 놀러오세요^^

vhost.kr

제프로그램 보내드려요^^