Search Tools Links Login

Current Date & Time


This script will get the system format date/time and display the results in an easy to read format. All elements of the date/time have been broken out into individual customizable pieces so it's very easy to adapt to your needs. Unlike my usual code, this has been highly commented!

Original Author: Scott Tyree

API Declarations

Please feel free to change the code however you see fit.

Code

<%
' Define variable names
Dim vMonth
Dim vDay
Dim vYear
Dim vTime
Dim vHour
Dim vMinute
Dim v0Min
Dim vDate
Dim vWeekday
Dim vFinal
Dim vAMPM
Dim vExt
Dim vSec
' Changes the numeric month to text
If Month(Now())=1 Then
vMonth="Jan"
ElseIf Month(Now())=2 Then
vMonth="Feb"
ElseIf Month(Now())=3 Then
vMonth="Mar"
ElseIf Month(Now())=4 Then
vMonth="Apr"
ElseIf Month(Now())=5 Then
vMonth="May"
ElseIf Month(Now())=6 Then
vMonth="Jun"
ElseIf Month(Now())=7 Then
vMonth="Jul"
ElseIf Month(Now())=8 Then
vMonth="Aug"
ElseIf Month(Now())=9 Then
vMonth="Sep"
ElseIf Month(Now())=10 Then
vMonth="Oct"
ElseIf Month(Now())=11 Then
vMonth="Nov"
ElseIf Month(Now())=12 Then
vMonth="Dec"
End If
' Adds the leading 0 to the minutes if less than 10
If Minute(Now())<=09 Then
vMin="0" & Minute(Now())
ElseIf Minute(Now())>09 Then
vMin= Minute(Now())
End If
' Adds the leading 0 to the seconds if less than 10
If Second(Now())<=09 Then
vSec="0" & Second(Now())
ElseIf Second(Now())>09 Then
vSec= Second(Now())
End If
' Sets AM/PM based on hour
If Hour(Now())<12 Then
vAMPM="am"
ElseIf Hour(Now())>11 Then
vAMPM="pm"
ElseIf Hour(Now())=24 Then
vAMPM="am"
End If
' Makes the 24 server clock show like a 12 hour clock
If Hour(Now())=00 Then
vHour="1"
ElseIf Hour(Now())<=12 Then
vHour=Hour(Now())
ElseIf Hour(Now())=13 Then
vHour="1"
ElseIf Hour(Now())=14 Then
vHour="2"
ElseIf Hour(Now())=15 Then
vHour="3"
ElseIf Hour(Now())=16 Then
vHour="4"
ElseIf Hour(Now())=17 Then
vHour="5"
ElseIf Hour(Now())=18 Then
vHour="6"
ElseIf Hour(Now())=19 Then
vHour="7"
ElseIf Hour(Now())=20 Then
vHour="8"
ElseIf Hour(Now())=21 Then
vHour="9"
ElseIf Hour(Now())=22 Then
vHour="10"
ElseIf Hour(Now())=23 Then
vHour="11"
ElseIf Hour(Now())=24 Then
vHour="12"
End If
' Changes the numeric weekday to text
If Weekday(Now())=1 Then
vWeekday="Sun"
ElseIf Weekday(Now())=2 Then
vWeekday="Mon"
ElseIf Weekday(Now())=3 Then
vWeekday="Tue"
ElseIf Weekday(Now())=4 Then
vWeekday="Wed"
ElseIf Weekday(Now())=5 Then
vWeekday="Thu"
ElseIf Weekday(Now())=6 Then
vWeekday="Fri"
ElseIf Weekday(Now())=7 Then
vWeekday="Sat"
End If
' Pulls the day of the week
vDay=Day(Now())
' Adds the st, nd, rd, th extention to the date
If vDay=1 Or vDay=21 Or vDay=31 Then
vExt="st"
ElseIf vDay=2 Or vDay=22 Then
vExt="nd"
ElseIf vDay=3 Or vDay=23 Then
vExt="rd"
ElseIf vDay=4 Or vDay=5 Or vDay=6 Or vDay=7 Or vDay=8 Or vDay=9 Or vDay=10 Or vDay=11 Or vDay=12 Or vDay=13 Or vDay=14 Or vDay=15 Or vDay=16 Or vDay=17 Or vDay=18 Or vDay=19 Or vDay=20 Or vDay=24 Or vDay=25 Or vDay=26 Or vDay=27 Or vDay=28 Or vDay=29 Or vDay=30 Then
vExt="th"
End If
' Pulls the seconds
vSecond = vSec
' Pulls the current year
vYear = Year(Now())
' Combines all the related elements to create the time module
vTime = vHour & ":" & vMin & ":" & vSecond
' Combines all the related elements to create the day/date module
vDate = vWeekday & ", " & vMonth & " " & vDay & "" & vExt & " " & vYear
' Brings it all together
vFinal = vTime & "" & vAMPM & " - " & vDate
%>
The current time And Date Is: <%= vFinal %>

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 89 times

Categories

ASP/ HTML

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.