(view source code of yesterday.vbs as plain text)
' Yesterday.vbs, Version 1.01 for Windows Script Host 2.00
' Display today's and yesterday's date in two formats
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com
' Specify header
strHead = "Format: YYYYMMDD (DD/MM/YYYY)" & Chr(13) & Chr(10) & _
"==================================" & Chr(13) & Chr(10)
' Get current year
strYear = DatePart("yyyy",Date)
' Get current month, add leading zero if necessary
If DatePart("m",Date) < 10 Then
strMonth = 0 & DatePart("m",Date)
Else
strMonth = DatePart("m",Date)
End If
' Get current day, add leading zero if necessary
If DatePart("d",Date) < 10 Then
strDay = 0 & DatePart("d",Date)
Else
strDay = DatePart("d",Date)
End If
' Format output for today
strToday = "Today: " & strYear & strMonth & strDay & " (" & _
strDay & "/" & strMonth & "/" & strYear & ")" & Chr(13) & Chr(10)
' Calculate yesterday's date
dtmYesterday = DateAdd("d",-1,Date)
' Get yesterday's year
strYear = DatePart("yyyy",dtmYesterday)
' Get yesterday's month, add leading zero if necessary
If DatePart("m",dtmYesterday) < 10 Then
strMonth = 0 & DatePart("m",dtmYesterday)
Else
strMonth = DatePart("m",dtmYesterday)
End If
' Get yesterday's day, add leading zero if necessary
If DatePart("d",dtmYesterday) < 10 Then
strDay = 0 & DatePart("d",dtmYesterday)
Else
strDay = DatePart("d",dtmYesterday)
End If
' Format output for yesterday
strYest = "Yesterday: " & strYear & strMonth & strDay & " (" & _
strDay & "/" & strMonth & "/" & strYear & ")"
' Display the result
Wscript.Echo( strHead & strToday & strYest )
page last modified: 2024-04-16; loaded in 0.0076 seconds