UGN Security Forums
My ProfileMember DirectoryLogin
Search our ForumsView our FAQView our Site Rules
View our CalendarView our Active TopicsGo to our Main Page

UGN Security Store
 

Network Sites UGN Security, The GoNix Initiative, Elite Web Gamers, Back of the Web, EveryDay Helper, VNC Web Design & Development
December
Su M Tu W Th F Sa
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31
Sponsored Links
Latest Postings
Latest Reviews
Topic Options
Rate This Topic
#17724 - 03/06/02 12:53 PM VB countdown timer
Geek_Goddess_IISis Offline
Junior Member

Registered: 03/04/02
Posts: 9
Loc: Ohio
OK, just wondering if someone had a snippit of vb code to do a countdown timer, to go from the current date, to a set date, that will display the number of Days, Hours, Minutes, and Seconds till the target date. I've just started playing with VB and would appreciate some guidance just for this issue. I'm sure in the future I'll be better able to sort these things when I am more familiar with VB's attitude and thought process.

Many thanks!
_________________________
-=[Do Not tap on the glass. Do Not feed the geeks. They are on a strict diet of caffeine and no sleep.]=-

Top
Sponsored Links
      
#17725 - 03/06/02 12:58 PM Re: VB countdown timer
Gremelin Offline

Community Owner
*****

Registered: 02/28/02
Posts: 7193
Loc: Portland, OR; USA
Check out http://www.planetsourcecode.com/vb/scrip...setAllVariables =TRUE&txtCriteria=countdown&optSort=Alphabetical

it'll have a grip of results, we use them at times to look through and view how diff things are done.
_________________________
Donate to UGN Security here.
UGN Security, Back of the Web, Elite Web Gamers & VNC Web Design Owner

Top
#17726 - 03/06/02 01:05 PM Re: VB countdown timer
Geek_Goddess_IISis Offline
Junior Member

Registered: 03/04/02
Posts: 9
Loc: Ohio
Many Thanks! Gismo, I saw a couple things that look like they will do the trick. Will let you know what my code diving adventures surface tonight.

_________________________
-=[Do Not tap on the glass. Do Not feed the geeks. They are on a strict diet of caffeine and no sleep.]=-

Top
#17727 - 03/06/02 01:08 PM Re: VB countdown timer
Gremelin Offline

Community Owner
*****

Registered: 02/28/02
Posts: 7193
Loc: Portland, OR; USA
lol glad i could be of service :).
_________________________
Donate to UGN Security here.
UGN Security, Back of the Web, Elite Web Gamers & VNC Web Design Owner

Top
#17728 - 03/06/02 07:37 PM Re: VB countdown timer
Geek_Goddess_IISis Offline
Junior Member

Registered: 03/04/02
Posts: 9
Loc: Ohio
I got it figured out, fyi :

Private Sub Timer1_Timer()
Dim MyDate, MyTime, MyHour, MyMinute, MySec
Dim TgtDate, TgtTime, TgtHour, TgtMinute, TgtSec

'Change TgtDate to whatever date you want to count down to.
TgtDate = #8/17/2002#
TgtHour = 24
TgtMinute = 60
TgtSec = 60

MyDate = DateDiff("d", Now() + 1, TgtDate)
MyHour = TgtHour - Format(Now(), "hh")
MyHour = Format(MyHour, "0#")
MyMinute = TgtMinute - Format(Now(), "nn")
MyMinute = Format(MyMinute, "0#")
MySec = TgtSec - Format(Now(), "ss")
MySec = Format(MySec, "0#")
label1 = MyDate & " Days " & MyHour & ":" & MyMinute & ":" & MySec
End Sub
_________________________
-=[Do Not tap on the glass. Do Not feed the geeks. They are on a strict diet of caffeine and no sleep.]=-

Top
#17729 - 03/06/02 07:50 PM Re: VB countdown timer
Gremelin Offline

Community Owner
*****

Registered: 02/28/02
Posts: 7193
Loc: Portland, OR; USA
woudlnt it be more practicle to use a dll and have it save a date/time to count down to?
_________________________
Donate to UGN Security here.
UGN Security, Back of the Web, Elite Web Gamers & VNC Web Design Owner

Top
#17730 - 03/06/02 07:54 PM Re: VB countdown timer
SilentRage Offline
DollarDNS Owner

Registered: 03/04/02
Posts: 1273
Loc: OH, USA
I'm really big on efficiency and accuracy, so here's my anal response. Your code is 1 hour and 1 minute off. To see for yourself, set the TgtDate to the next day and do a little math. Here's your corrected and much more efficient code:

Private Sub Timer1_Timer()
Dim TgtDate As Date

'Change TgtDate to whatever date you want to count down to.
TgtDate = #3/7/2002#

Label1 = DateDiff("d", Now() + 1, TgtDate) & " Days " & Format(TgtDate - Now(), "hh:nn:ss")
End Sub
_________________________
Domain Registration, Hosting, Management
http://www.dollardns.net

Top
#17731 - 03/06/02 08:05 PM Re: VB countdown timer
Gremelin Offline

Community Owner
*****

Registered: 02/28/02
Posts: 7193
Loc: Portland, OR; USA
see thats why i love him lol
_________________________
Donate to UGN Security here.
UGN Security, Back of the Web, Elite Web Gamers & VNC Web Design Owner

Top
#17732 - 03/06/02 08:57 PM Re: VB countdown timer
Geek_Goddess_IISis Offline
Junior Member

Registered: 03/04/02
Posts: 9
Loc: Ohio
I stand corrected, then.
Thank you very much.
Bear with me as I just started VB 3 days ago. :| I'm sure I'll have more "issues"

(just call me M$ Certified. Failure is not an option, it comes bundled with the software.)

Anywho.. onto more learning!
_________________________
-=[Do Not tap on the glass. Do Not feed the geeks. They are on a strict diet of caffeine and no sleep.]=-

Top
#17733 - 03/07/02 08:24 AM Re: VB countdown timer
Gremelin Offline

Community Owner
*****

Registered: 02/28/02
Posts: 7193
Loc: Portland, OR; USA
ms certifide 'eh? so you crash a lot?


heh my cusin wrote the Server 2 course book, beat that
_________________________
Donate to UGN Security here.
UGN Security, Back of the Web, Elite Web Gamers & VNC Web Design Owner

Top
#17734 - 03/07/02 08:43 PM Re: VB countdown timer
ninjaneo Offline
UGN Security Staff

Registered: 03/06/02
Posts: 256
Loc: CA, USA
'An improvment to sr's code.

TgtDate = #3/7/2002 6:35:00 PM#
Label1 = DateDiff("d", Now(), TgtDate) & " day(s) " & Format(TgtDate - Now(), "hh:nn:ss")
If GetPiece(Label1.Caption, " ", 1) = "0" Then
If Now() > Date & " " & Time Then
Exit Sub
End If
End If
Label1.Caption = Replace(Label1.Caption, "-", "Occured ") & " ago."

'Another function is used... here it is...

Function GetPiece(From As String, delim As String, index) As String
Dim temp$
Dim Count
Dim Where
'
temp$ = From & delim
Where = InStr(temp$, delim)
Count = 0
Do While (Where > 0)
Count = Count + 1
If (Count = index) Then
GetPiece = Left$(temp$, Where - 1)
Exit Function
End If
temp$ = Right$(temp$, Len(temp$) - Where)
Where = InStr(temp$, delim)
DoEvents
Loop
If (Count = 0) Then
GetPiece = From
Else
GetPiece = ""
End If
End Function

Im not sure if it is accurate or not. Brief testing proves it to be correct but I dont know you guys can check that out

Top
#17735 - 03/07/02 09:02 PM Re: VB countdown timer
SilentRage Offline
DollarDNS Owner

Registered: 03/04/02
Posts: 1273
Loc: OH, USA
/me points to neo's code

He's a commendable programmer, but HIS stuff IS along Microsoft quality.

Here's a minor fix. The days count was the only piece of the original code that I didn't modify - cause I thought it worked. But it didn't when I tested adding a time. So here's the fixed code:

Private Sub Timer1_Timer()
Dim TgtDate As Date

'Change TgtDate to whatever date you want to count down to.
TgtDate = #3/8/2002 12:00:00 PM#

Label1 = DateDiff("d", Now(), TgtDate) - 1 & " Days " & Format(TgtDate - Now(), "hh:nn:ss")
End Sub
_________________________
Domain Registration, Hosting, Management
http://www.dollardns.net

Top
#17736 - 03/08/02 09:28 AM Re: VB countdown timer
Geek_Goddess_IISis Offline
Junior Member

Registered: 03/04/02
Posts: 9
Loc: Ohio
Thanks Everyone, you've been a great help.
_________________________
-=[Do Not tap on the glass. Do Not feed the geeks. They are on a strict diet of caffeine and no sleep.]=-

Top

Featured Member
Registered: 10/28/14
Posts: 1
Forum Stats
2152 Members
46 Forums
36271 Topics
71441 Posts

Max Online: 1567 @ 04/25/10 05:20 AM
Top Posters
UGN Security 29432
Gremelin 7193
§intå× 3255
SilentRage 1273
Ice 1146
pergesu 1136
Infinite 1041
jonconley 955
Girlie 908
unreal 860
Newest Members
cdefgh368568, HushHush, golqm, Tim050, Gecko666
2151 Registered Users
Who's Online
0 registered (), 250 Guests and 366 Spiders online.
Key: Admin, Global Mod, Mod
Latest News


Donate
  Get Firefox!
Get FireFox!