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

작성자
토지투자전문가
작성일
2024-07-01 14:40
조회
157

 

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

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

 

 

신고
스크랩
공유
회원등급 : 5레벨
포인트 : 263 EP
전체 1

  • 2024-07-07 07:48

    @토지투자전문가 님 좋은 정보 감사드립니다🙇‍♂️


전체 125
번호 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (290)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 844344
오빠두엑셀 2022.02.03 554 844344
74491
New 이름관리 엑셀 업그레이드 버전 입니다. 첨부파일 (2)
박정호 | 2024.10.28 | 추천 0 | 조회 45
박정호 2024.10.28 - 45
74354
월드컵 랭킹 계산(ELO 점수 계산) 첨부파일 (4)
박정호 | 2024.10.22 | 추천 0 | 조회 54
박정호 2024.10.22 - 54
74269
엑셀2021이하에서 CHOOSECOLS, CHOOSEROWS 처럼 동작시키기 첨부파일 (13)
마법의손 | 2024.10.18 | 추천 2 | 조회 107
마법의손 2024.10.18 2 107
74204
이름관리 엑셀입니다.(모듈) 첨부파일 (6)
박정호 | 2024.10.15 | 추천 0 | 조회 136
박정호 2024.10.15 - 136
74028
로또번호2(반자동 기능 업데이트) 첨부파일 (4)
박정호 | 2024.10.05 | 추천 1 | 조회 130
박정호 2024.10.05 1 130
74012
매장 근태관리시트 공유 첨부파일 (3)
체리로그 | 2024.10.03 | 추천 1 | 조회 125
체리로그 2024.10.03 1 125
73964
[파워쿼리] 여러열 열분할하기 첨부파일 (4)
마법의손 | 2024.10.01 | 추천 1 | 조회 103
마법의손 2024.10.01 1 103
73915
M365 GroupBy, PivotBy 함수 공식 배포 (6)
원조백수 | 2024.09.27 | 추천 2 | 조회 138
원조백수 2024.09.27 2 138
73485
m365 신규함수(베타) : TRIMRANGE (7)
더블유에이 | 2024.09.04 | 추천 1 | 조회 206
더블유에이 2024.09.04 1 206
73454
고등학교 선택과목 편성 방법 (4)
toug**** | 2024.09.03 | 추천 0 | 조회 120
toug**** 2024.09.03 - 120
73241
로또 번호 엑셀입니다. 첨부파일 (9)
박정호 | 2024.08.24 | 추천 1 | 조회 276
박정호 2024.08.24 1 276
73096
그룹별 데이터 나누기 [가로정렬] 첨부파일 (7)
마법의손 | 2024.08.20 | 추천 2 | 조회 200
마법의손 2024.08.20 2 200
73093
ppt에 둥근 표 삽입하기 (4)
강민준🤗 | 2024.08.20 | 추천 1 | 조회 174
강민준🤗 2024.08.20 1 174
73029
XLOOKUP, XMATCH 함수에 새로운 Match_mode로 RegEx 추가 (2)
원조백수 | 2024.08.16 | 추천 3 | 조회 208
원조백수 2024.08.16 3 208
72413
아웃룩에 개빡쳐서 만든 ThunderBird로 수신자 별 대량 메일 발송 VBA 매크로 공유합니다.(업무자동화) 첨부파일 (4)
알파고 | 2024.07.22 | 추천 1 | 조회 494
알파고 2024.07.22 1 494
72045
조합짜주는 엑셀(20명까지) 출력은 1만항까지 첨부파일 (13)
박정호 | 2024.07.10 | 추천 1 | 조회 367
박정호 2024.07.10 1 367
71965
서양달력 업데이트 입니다. 첨부파일 (14)
박정호 | 2024.07.07 | 추천 0 | 조회 223
박정호 2024.07.07 - 223
71902
Excel에서 ImportRange, ImportHTML 함수 사용하기 (4)
원조백수 | 2024.07.05 | 추천 0 | 조회 167
원조백수 2024.07.05 - 167
71838
Microsoft 365 신규 번역 함수 (8)
원조백수 | 2024.07.02 | 추천 2 | 조회 385
원조백수 2024.07.02 2 385
71804
음력->양력->서양달력 변환 첨부파일 (2)
박정호 | 2024.07.01 | 추천 0 | 조회 230
박정호 2024.07.01 - 230