(Visual Basic 6.0) Get Certificate Valid To/From Dates

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim cert As New ChilkatCert

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

' Get the certificate valid-from date/time
Dim ckdt As CkDateTime
Set ckdt = cert.GetValidFromDt()
' Get the local timestamp string.
Debug.Print "Valid from: " & ckdt.GetAsTimestamp(1)
' 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.
Dim dt As DtObj
Set dt = ckdt.GetDtObj(1)
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(1)
' Valid to: 2020-03-18T18:59:59-05:00
Set dt = ckdt.GetDtObj(1)
Debug.Print dt.Day & "/" & dt.Month & "/" & dt.Year & "  " & dt.Hour & ":" & dt.Minute