(Excel) Get Certificate Valid To/From Dates

Demonstrates how to get the certificate "valid from" and "valid to" dates.

Download Excel Class Modules Chilkat Excel Class Modules

Dim cert As Chilkat.Cert
Set cert = Chilkat.NewCert


success = cert.LoadFromFile("qa_data/certs/testCert.cer")
If (success <> True) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

' Get the certificate valid-from date/time

Set ckdt = cert.GetValidFromDt()
' Get the local timestamp string.
Debug.Print "Valid from: "; ckdt.GetAsTimestamp(True)
' Valid from: 2017-03-17T19:00:00-05:00

' Now get the date/time as another object where we can get the individual numeric date parts.

Set dt = ckdt.GetDtObj(True)
Debug.Print dt.Day; "/"; dt.Month; "/"; dt.Year; "  "; dt.Hour; ":"; dt.Minute

' Get the certificate valid-to date/time
Set ckdt = cert.GetValidToDt()
Debug.Print "Valid to: "; ckdt.GetAsTimestamp(True)
' Valid to: 2020-03-18T18:59:59-05:00
Set dt = ckdt.GetDtObj(True)
Debug.Print dt.Day; "/"; dt.Month; "/"; dt.Year; "  "; dt.Hour; ":"; dt.Minute