Visual Basic 6.0

Get Certificate Valid To/From Dates

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

Dim success As Long
success = 0

Dim cert As New ChilkatCert

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

' Get the certificate valid-from date/time
Dim ckdt As New CkDateTime
success = ckdt.SetFromRfc822(cert.ValidFromStr)

' 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 New DtObj
ckdt.ToDtObj 1,dt

Debug.Print dt.Day & "/" & dt.Month & "/" & dt.Year & "  " & dt.Hour & ":" & dt.Minute

' Get the certificate valid-to date/time
success = ckdt.SetFromRfc822(cert.ValidToStr)

Debug.Print "Valid to: " & ckdt.GetAsTimestamp(1)
' Valid to: 2020-03-18T18:59:59-05:00new DtObj dt;
ckdt.ToDtObj 1,dt

Debug.Print dt.Day & "/" & dt.Month & "/" & dt.Year & "  " & dt.Hour & ":" & dt.Minute