(Xojo Plugin) Get Certificate Valid To/From Dates

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

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim success As Boolean
success = False

Dim cert As New Chilkat.Cert

success = cert.LoadFromFile("qa_data/certs/testCert.cer")
If (success = False) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

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

// Get the local timestamp string.
System.DebugLog("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.
Dim dt As New Chilkat.DtObj
ckdt.ToDtObj True,dt

System.DebugLog(Str(dt.Day) + "/" + Str(dt.Month) + "/" + Str(dt.Year) + "  " + Str(dt.Hour) + ":" + Str(dt.Minute))

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

System.DebugLog("Valid to: " + ckdt.GetAsTimestamp(True))
// Valid to: 2020-03-18T18:59:59-05:00new DtObj dt;
ckdt.ToDtObj True,dt

System.DebugLog(Str(dt.Day) + "/" + Str(dt.Month) + "/" + Str(dt.Year) + "  " + Str(dt.Hour) + ":" + Str(dt.Minute))