Returns time information left in a specified time


‘Description: Returns time information left in a specified time

‘Place the following code in a Form_Load()

dim rightnow, daysleft, hoursleft, minutesleft
rightnow = now
daysleft = Int (dateserial (year (rightnow) + 1, 1, 1) – rightnow)
hoursleft = 24 – hour (rightnow)
minutesleft = 60 – minute (rightnow)

label1(1).caption = daysleft & ” days left in the year.”
label1(2).caption = hoursleft & ” hours left in the day.”
label1(3).caption = minutesleft & ” minutes left in the hour.”

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s