(Visual FoxPro) 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

LOCAL loCert
LOCAL lnSuccess
LOCAL loCkdt
LOCAL loDt

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')

lnSuccess = loCert.LoadFromFile("qa_data/certs/testCert.cer")
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

* Get the certificate valid-from date/time
loCkdt = loCert.GetValidFromDt()
* Get the local timestamp string.
? "Valid from: " + loCkdt.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.
loDt = loCkdt.GetDtObj(1)
? STR(loDt.Day) + "/" + STR(loDt.Month) + "/" + STR(loDt.Year) + "  " + STR(loDt.Hour) + ":" + STR(loDt.Minute)
RELEASE loDt
RELEASE loCkdt

* Get the certificate valid-to date/time
loCkdt = loCert.GetValidToDt()
? "Valid to: " + loCkdt.GetAsTimestamp(1)
* Valid to: 2020-03-18T18:59:59-05:00
loDt = loCkdt.GetDtObj(1)
? STR(loDt.Day) + "/" + STR(loDt.Month) + "/" + STR(loDt.Year) + "  " + STR(loDt.Hour) + ":" + STR(loDt.Minute)
RELEASE loDt
RELEASE loCkdt

RELEASE loCert