Classic ASP

Date/Time Expires Within N Seconds/Minutes/Hours/Days

Demonstrates the how to tell if a date/time is within N seconds, minutes, hours, or days of the current system time.

Chilkat Classic ASP Downloads

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set dt = Server.CreateObject("Chilkat.CkDateTime")

' Set to the current system date/time.
success = dt.SetFromCurrentSystemTime()
Response.Write "<pre>" & Server.HTMLEncode( "Now: " & dt.GetAsTimestamp(1)) & "</pre>"

' Add 10 minutes, making the date 10 minutes in the future.
success = dt.AddSeconds(600)
Response.Write "<pre>" & Server.HTMLEncode( "10 minutes from now: " & dt.GetAsTimestamp(1)) & "</pre>"

' Is the date/time within 10 seconds of expiration (i.e. within 10 seconds of now)?
b = dt.ExpiresWithin(10,"seconds")
Response.Write "<pre>" & Server.HTMLEncode( "Expires within 10 seconds: " & b) & "</pre>"

' Does the date/time expire within 5 minutes?
b = dt.ExpiresWithin(5,"minutes")
Response.Write "<pre>" & Server.HTMLEncode( "Expires within 5 minutes: " & b) & "</pre>"

' Does the date/time expire within 15 minutes?
b = dt.ExpiresWithin(15,"minutes")
Response.Write "<pre>" & Server.HTMLEncode( "Expires within 15 minutes: " & b) & "</pre>"

' Does the date/time expire within 1 hour?
b = dt.ExpiresWithin(1,"hour")
Response.Write "<pre>" & Server.HTMLEncode( "Expires within 1 hour: " & b) & "</pre>"

' Does the date/time expire within 1 day?
b = dt.ExpiresWithin(1,"day")
Response.Write "<pre>" & Server.HTMLEncode( "Expires within 1 day: " & b) & "</pre>"

' Output:

' 	Now: 2017-05-05T23:48:00-0500
' 	10 minutes from now: 2017-05-05T23:58:00-0500
' 	Expires within 10 seconds: False
' 	Expires within 5 minutes: False
' 	Expires within 15 minutes: True
' 	Expires within 1 hour: True
' 	Expires within 1 day: True

%>
</body>
</html>