RSS: Site FeedDate Time Functions In Visual Basic
Level:
Written By TheVBProgramer.
NOTE: This tutorial uses The VB Test Harness. If you have not already created this test harness please do so first. It will make this tutorial a lot easier to follow.
Recall the VB keywords that reference the current date and/or time:
Now Returns the current date and time together
Date Returns the current date
Time Returns the current time
For the examples that follow, assume that the current Date/Time (Now) is Friday, August 31, 2001 at 9:15:20 PM.
The following functions isolate the date portion and time portion, respectively, of a Date/Time value:
Function |
Description |
DateValue |
Returns the date portion of a Date/Time value, with the time portion "zeroed out". (Note: When the time portion of a date/time variable is "zeroed out", the time would be interpreted as 12:00 AM.)
Example:
Dim dtmTest As Date dtmTest = DateValue(Now)
At this point, the date portion of dtmTest is 8/31/2001, with a time portion of 0 (12:00 AM midnight).
|
TimeValue |
Returns the time portion of a Date/Time value, with the date portion "zeroed out". (Note: When a date/time variable is "zeroed out", the date will actually be interpreted as December 30, 1899.)
Example:
Dim dtmTest As Date dtmTest = TimeValue(Now)
At this point, the time portion of dtmTest is 9:15:20 PM, with a date portion of 0 (12/30/1899).
|
The following functions are used to isolate a particular part of a date:
Function |
Description |
Weekday |
Returns a number from 1 to 7 indicating the day of the week for a given date, where 1 is Sunday and 7 is Saturday.
Example: intDOW = Weekday(Now) ' intDOW = 6
Note: When necessary to refer to a day of the week in code, VB has a set of built-in constants that can be used instead of the hard-coded values 1 thru 7: Constant Value vbSunday 1 vbMonday 2 vbTuesday 3 vbWednesday 4 vbThursday 5 vbFriday 6 vbSaturday 7
|
Function |
Description |
WeekdayName |
Returns a string containing the weekday name ("Sunday" thru "Saturday"), given a numeric argument with the value 1 through 7.
Example: strDOW = WeekdayName(6) ' strDOW = "Friday"
The WeekdayName function takes an optional, second argument (Boolean) indicating whether or not to abbreviate the weekday name. By default, the second argument is False, meaning do not abbreviate and return the full name. If True, the first three letters of the weekday name will be returned:
Example: strDOW = WeekdayName(6, True) ' strDOW = "Fri"
You can nest the Weekday function within the WeekdayName function to get the weekday name for a given date:
Example: strDOW = WeekdayName(Weekday(Now)) ' strDOW = "Friday"
|
Month |
Returns a number from 1 to 12 indicating the month portion of a given date.
Example: intMonth = Month(Now) ' intMonth = 8
|
MonthName |
Returns a string containing the month name ("January" thru "December"), given a numeric argument with the value 1 through 12.
Example: strMoName = MonthName(8) ' strMoName = "August"
The MonthName function takes an optional, second argument (Boolean) indicating whether or not to abbreviate the month name. By default, the second argument is False, meaning do not abbreviate and return the full name. If True, the first three letters of the month name will be returned:
Example: strMoName = MonthName(8, True) ' strMoName = "Aug"
You can nest the Month function within the MonthName function to get the month name for a given date:
Example: strMoName = MonthName(Month(Now)) ' strMoName = "August"
|
Day |
Returns a number from 1 to 31 indicating the day portion of a given date.
Example: intDay = Day(Now) ' intDay = 31
|
Year |
Returns a number from 100 to 9999 indicating the year portion of a given date.
Example: intYear = Year(Now) ' intYear = 2001
|
The following functions are used to isolate a particular part of a time:
Function |
Description |
Hour |
Returns an integer specifying a whole number between 0 and 23 representing the hour of the day.
Example: intHour = Hour(Now) ' intHour = 21 (for 9 PM)
|
Minute |
Returns an integer specifying a whole number between 0 and 59 representing the minute of the hour.
Example: intMinute = Minute(Now) ' intMinute = 15
|
Second |
Returns an integer specifying a whole number between 0 and 59 representing the second of the minute.
Example: intSecond = Second(Now) ' intSecond = 20
|
To demonstrate the date functions shown thus far, set up a "Try It" project, and place the following code in the cmdTryIt_Click event:
Private Sub cmdTryIt_Click()
Print "Now:"; Tab(30); Now
Print "Using DateValue:"; Tab(30); DateValue(Now)
Print "Using TimeValue:"; Tab(30); TimeValue(Now)
Print "Using Weekday:"; Tab(30); Weekday(Now)
Print "Using WeekdayName:"; Tab(30); WeekdayName(Weekday(Now))
Print "Using WeekdayName (abbrev.):"; Tab(30); WeekdayName(Weekday(Now), True)
Print "Using Month:"; Tab(30); Month(Now)
Print "Using MonthName:"; Tab(30); MonthName(Month(Now))
Print "Using MonthName (abbrev.):"; Tab(30); MonthName(Month(Now), True)
Print "Using Day:"; Tab(30); Day(Now)
Print "Using Year:"; Tab(30); Year(Now)
Print "Using Hour:"; Tab(30); Hour(Now)
Print "Using Minute:"; Tab(30); Minute(Now)
Print "Using Second:"; Tab(30); Second(Now)
End Sub
Run the project and click the "Try It" button. The output should look similar to the following:
Download the VB project code for the example above here.
The DatePart Function
The generic DatePart function returns an Integer containing the specified part of a given date/time value. Thus, it incorporates the functionality of the Weekday, Month, Day, Year, Hour, Minute, and Second functions. In addition, it can used to get the quarter of a given date (1 through 4) , the "Julian" date (the day of the year from 1 to 366), and the week number (1 through 53).
Syntax:
DatePart(interval, date[,firstdayofweek[, firstweekofyear]])
The DatePart function syntax has these parts:
Part |
Description |
|||||||||||||||||||||||||||||||||
interval |
Required. String expression that is the interval of time you want to return.
The string expression can be any of the following:
|
|||||||||||||||||||||||||||||||||
date |
Required. Date value that you want to evaluate.
|
|||||||||||||||||||||||||||||||||
firstdayofweek |
Optional. A constant that specifies the first day of the week. If not specified, Sunday is assumed.
|
|||||||||||||||||||||||||||||||||
firstweekofyear |
Optional. A constant that specifies the first week of the year. If not specified, the first week is assumed to be the week in which January 1 occurs.
|
To demonstrate DatePart, set up a "Try It" project, and place the following code in the cmdTryIt_Click event:
Private Sub cmdTryIt_Click()
Print "Current date/time is: "; _
Format$(Now, "Long Date"); _
Spc(1); _
Format$(Now, "Long Time")
Print "*** DatePart Function Examples ***"
Print "Using 'yyyy':"; Tab(20); DatePart("yyyy", Now)
Print "Using 'q':"; Tab(20); DatePart("q", Now)
Print "Using 'm':"; Tab(20); DatePart("m", Now)
Print "Using 'y':"; Tab(20); DatePart("y", Now)
Print "Using 'd':"; Tab(20); DatePart("d", Now)
Print "Using 'w':"; Tab(20); DatePart("w", Now)
Print "Using 'ww':"; Tab(20); DatePart("ww", Now)
Print "Using 'h':"; Tab(20); DatePart("h", Now)
Print "Using 'n':"; Tab(20); DatePart("n", Now)
Print "Using 's':"; Tab(20); DatePart("s", Now)
End Sub
Run the project and click the "Try It" button. The output should look similar to the following:
Download the VB project code for the example above here.
Piecing Separate Numbers Together to Form a Date or Time Value
In the previous examples, we saw ways to isolate parts of a date/time value. What if you need to go the "other way"? If you have the separate parts of a date/time value in different variables and want to piece them together to formulate a date or time, there are two functions you can use to do this: DateSerial and TimeSerial.
The DateSerial takes
three numeric arguments: year, month, and day respectively. It returns a date
based on those values.
Example:
Dim intYear As Integer
Dim intMonth As Integer
Dim intDay As Integer
Dim dtmNewDate As Date
intYear = 2001
intMonth = 9
intDay = 2
dtmNewDate = DateSerial(intYear, intMonth, intDay)
' returns 9/2/2001
The TimeSerial takes
three numeric arguments: hour, minute, and second respectively. It returns a
time based on those values.
Example:
Dim intHour As Integer
Dim intMinute As Integer
Dim intSecond As Integer
Dim dtmNewTime As Date
intHour = 11
intMinute = 34
intSecond = 44
dtmNewTime = TimeSerial(intHour, intMinute, intSecond)
'returns 11:34:44 (AM)
- Printer Friendly
- 211187 reads
Comments
time in time out
to whome it may concern,
Can you help me build a simple time in time out program?
thanks
NEED SOME HELP COMPARING DATES
So what I'm working on is a inventory system and I would like to have the user fill in a database and after its filled I would like to notify the user if an item is expired. Basically compare today's date with the inputed date, and if the expired date is earlier than today's date then the product is expired, else it's not expired.
Any help is greatly appreciated.
using Date time
I have too many questions in vb 6.
and will ask one by one
how to make condition on time .
Q.. I am developing a program for library. and I faced problem in date function. I want to provide extra fees when a student gives or return the book after given return date. for eg: his/her return date for book is 28/2/10 . but he/she return the book after that. so how to solve this . plz make it clear..
error 3251
I am getting error 3251
error text as :"current record set does not support updating. This may be limitation of provider or the selected lock type;
code in module
public adodbcon as new adodb.connection
public adors as new adodb.recordset
code for opening connection
public sub aopnadoconnection()
If adodbcon.State = adStateOpen Then
adodbcon.Close
End If
adodbcon.Provider = "Microsoft.Jet.OLEDB.3.51"
adodbcon.Mode = adModeReadWrite
adodbcon.CursorLocation = adUseClient
adodbcon.Open App.Path & "\db3.mdb"
If adodbcon.State = adStateClosed Then
adodbcon.Open
End If
end sub
;------------------------------------------------------
code for opening record set
public sub openadorecordest()
If adors.State = adStateOpen Then
adors.Close
End If
adors.CursorType = adOpenKeyset
adors.LockType = adLockOptimistic
adors.CursorLocation = adUseClient
Set adors = adodbcon.Execute(SOURCE)
code for adding new record
OPENRECORDSET "SELECT * FROM MODEL WHERE MODEL='" & CBOMODEL & "'"
If adors.RecordCount Then
'MsgBox "MODEL ALREADY EXISTS"
'Exit Sub
adors.MoveFirst
End If
With adors
.AddNew "txtmodel", TXTMODEL
.Fields("MODEL") = TXTMODEL
.Update
End With
end sub
time difference
hi guys
how to solve the time difference in hours and minutes using sql...?
example given
time_in = 07:30 AM
time_out = 5:02 PM
thank you..!!!
Adding long integer
Hello Guys,
Please help me...
I want to add the long integers with decimal points including the negative integers.
I want to display the result on the database using cyrstal report. please help.
example:
188,159,159.58 (this is day 1)
189,156,123.23 (day 2)
156.23 (day 3)
-158,123,898.02 (day 4)
- 156,589.23 (day 5)
Thanks!
\(
thanks
thanks
thank you very much
thank you very much
Change PM or AM
Dear All,.
How change PM or AM??
Please Help Me.....
Thank's
how can i get the dayt
how can i get the dayt instead of 1 2 3 4 5 6 7 8 9 it will give me 01 02 03 04 05 06... etc.. thanks in advance
-josh
time display
sir,
how can i add current running time and date on my vb 6 application GUI. Please help me.
re
if you want to display a time on a label,,,,
first you need to insert a timer on you form..
set the timer interval to 1000....
then, on the code..
timer1_timer()
label1.caption = time
end sub
as simple as that
hahaha
how can i get the PM AM
how can i get the PM Or Am of the time
timer....
i want to display time in 00:00 mode.....how to do that......
formatdatetime(time,vbshortti
formatdatetime(time,vbshorttime)
Last Friday
Last Friday in 12 DTpickers Code
Question
i need the code for using the date and time of system and by using these time and date i want to control the payroll application.....
VB Now function
I've tried to put a limit on my trial program using
If Now > "8/31/2009 00:00:00 AM" Then ---
It returns FALSE, because Now is 8/27/2009. However, when I set the date
If Now > "10/31/2009 00:00:00 AM" , it returns True even that date is 2 months away.
Why is that? Thanks.
Use Date function instead
Use Date function instead Now could get around it.
Ask for code
Sir, Thansks for help.!!!!!!!!!!!!
ELAPSED TIME
How do I calculate elapsed time
Time Calculations
Time Calculation
If you have two text boxes with times in them
Dim d1, d2 as string
Dim hourz, minz, secz as Integer
d1=trim(Text1.text)
d1=trim(Text2.text)
' Find Hour Difference
hourz = DateDiff("h", d1, d2)
' Find Minutes Difference
minz = DateDiff("n", d1, d2)
'Find Seconds Difference
secz = DateDiff("s", d1, d2)
Debug.Print hourz
Debug.Print minz
Debug.Print secz
about your code
thanks, but it's not working properly
How to display the execution time?
Hello Frnds ,
Thanks a lot ... i have learned a lot from this page ....
How can i display the execution time of my tool? ...
i mean if my tool runs for 30 seconds .. at the end it should display 30 sec ... if it runs for 2 mins it should display 2 mins ....
i guess .. i am clear enough.
please have a look into it and reply me back..it is very urgent for my project.
Thanks in advance.
Display execution time
1. Put a timer object in the form tool.
2. Set the timer 'interval to 1000'(Clock rate is 1 sec ) and 'enable to false' in its properties.
3.In the Form_load of the form of the tool you want to monitor the time. Set the 'timer.enable=true' .
4. Increment inside the timer.
Dim intholdTime as integer
Private Sub Timer_Timer()
intholdTim=intholdTim+1
End Sub
5. When the tool is done loading, in the first form that will appear next to form tool, In it's Form_load stop the timer in looping.
'Timer.enable=false
6. Then get the time value in the variable ' intholdTime'.
Thats it...hope it will help you...
How to display the execution time?
any updates??
How do I secure my system Screen
I wrote a cafee clock program to cover my system screen that, if someone want to browse my system he/she will collect ticket from me and when the time fineshes the program will block the screen again, the problem now IS HOW (code) TO DISABLE THE WINDOW KEY BUTTON ON KEYBOARD, THE Ctrl+Alt+Delete and SOME OTHER SPECIAL KEYS ON KEYBOARD SO THAT WHEN THE FORM LOAD THOSE KEYS WILL NOT FUNCTION TILL THE USER LOGIN PROPERLY, SO THAT WHEN THE FORM UNLOADS, IT WILL FUNCTION AGAIN. to prevent an unauthorize person to login through pressing of window key button or Ctrl+Alt+Delete to terminate.
Obiekezie
Private Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
if keycode = 17 or keycode = 18 or keycode = 46 then
keycode = 0
end if
End Sub
2 dtpicker set to first and last day of the current month
Private Sub Form_Load()
DTPicker1.Value = DateAdd("d", -(Day(Date) - 1), Date)
DTPicker2.Value = DateAdd("d", (getNumberOfDays - 1), DTPicker1.Value)
End Sub
'Get the number of days each month is having
Public Function getNumberOfDays() As Integer
Select Case DateTime.Month(Date)
Case 1, 3, 5, 7, 8, 10, 12
getNumberOfDays = 31
Case 4, 6, 9, 11
getNumberOfDays = 30
Case 2
'logic for checking leap years
If (Year(Date) Mod 4) = 0 Then
If (Year(Date) Mod 100) = 0 Then
If (Year(Date) Mod 400) = 0 Then
getNumberOfDays = 29
Else
getNumberOfDays = 28
End If
Else
getNumberOfDays = 29
End If
Else
getNumberOfDays = 28
End If
End Select
End Function
expiration date and time for 24 hours in vb 6.0
hi,,,plz help me up!//.
how to code date and time expiration.
for example
you are currently register on 01/01/2009 at 09:00 am then
you will expire on 01/02/2009 at 09:00am
display "you are expired"
How do I secure my system Screen
I wrote a cafee clock program to cover my system screen that, if someone want to browse my system he/she will collect ticket from me and when the time fineshes the program will block the screen again, the problem now IS HOW (code) TO DISABLE THE WINDOW KEY BUTTON ON KEYBOARD, THE Ctrl+Alt+Delete and SOME OTHER SPECIAL KEYS ON KEYBOARD SO THAT WHEN THE FORM LOAD THOSE KEYS WILL NOT FUNCTION TILL THE USER LOGIN PROPERLY, SO THAT WHEN THE FORM UNLOADS, IT WILL FUNCTION AGAIN. to prevent an unauthorize person to login through pressing of window key button or Ctrl+Alt+Delete to terminate.
How do I secure my system Screen
I wrote a cafee clock program to cover my system screen that, if someone want to browse my system he/she will collect ticket from me and when the time fineshes the program will block the screen again, the problem now IS HOW (code) TO DISABLE THE WINDOW KEY BUTTON ON KEYBOARD, THE Ctrl+Alt+Delete and SOME OTHER SPECIAL KEYS ON KEYBOARD SO THAT WHEN THE FORM LOAD THOSE KEYS WILL NOT FUNCTION TILL THE USER LOGIN PROPERLY, SO THAT WHEN THE FORM UNLOADS, IT WILL FUNCTION AGAIN. to prevent an unauthorize person to login through pressing of window key button or Ctrl+Alt+Delete to terminate.
Finding the last sunday 00:00AM
Hey guys,
I'm trying to set an integer/date to the last Sunday at midnight that went by. So no matter when in the week the program is run it will find the variable will be set to the last Sunday @ 00:00 that went by.
any easy way to do this besides a lot of if statements?
Thanks in advance for your help!
Date Range in VB 6.0 to retreive records from Access
Hi guys. I am trying to retrieve records from MS Access Database at a certain Date Range such as Date Range between 01/01/2009 to 03/01/2009. Depends on the date range, I should get those records and populate them in a grid or something. I have done the following code but cannot continue. Also there could be multiple entries for the same date, example
Invoice # Price Qty Date Total
454633 $12.00 3 01/01/2009 $36.00
454634 $02.00 7 01/01/2009 $14.00
454635 $72.00 3 01/01/2009 $216.00
454636 $30.00 3 01/02/2009 $60.00
454637 $10.00 4 01/03/2009 $40.00
454638 $25.00 2 01/03/2009 $50.00
454639 $25.00 2 01/04/2009 $50.00
Private Sub Command2_Click()
FromDate = DTPicker1.Value ' Assume 01/01/2009
ToDate = DTPicker2.Value ' Assume 01/03/2009
If FromDate = "" Or ToDate = "" Then
MsgBox "Please Select Dates FROM and TO to show more details of the Invoices.", vbCritical
Else
NumberOfDays = DateDiff("d", FromDate , ToDate) ' Rsult is 89 days
.
.
.
End If
End Sub
Help
hi guys I want your help in this:
I have 3 Textbox:
the first to show the current date
the second to type a number ,
the third to show the Result from calculate the Current date and the number that I entered
example:
current date:4/21/2008
number: 3
End Date: 4/24/2008
THxxx
question to print
how do i print data based by date on vb6
thanks for the help PROFIT!!
thanks for the help
PROFIT!!
Re : Date and Time on Label
Option 1 for VB 2008
Put this in the form_load event
Label1.Text = "Date : " + WeekdayName(Weekday(Now)) + " " + DateValue(Now)
Label2.Text = "Time : " + TimeValue(Now)
Put this in the timer1_tick event
Label1.Text = "Date : " + WeekdayName(Weekday(Now)) + " " + DateValue(Now)
Label2.Text = "Time : " + TimeValue(Now)
Option 2 for VB 2008
Put this in the form_load event
Label1.Text = "Date : " + WeekdayName(Weekday(Now)) + " " + DateValue(Now) + " " + "Time : " + TimeValue(Now)
Put this in the timer1_tick event
Label1.Text = "Date : " + WeekdayName(Weekday(Now)) + " " + DateValue(Now) + " " + "Time : " + TimeValue(Now)
Option 1 for VB 6
Put this in the form_load event
Label1.Caption = "Date : " + WeekdayName(Weekday(Now)) + " " + DateValue(Now)
Label2.Caption = "Time : " + TimeValue(Now)
Put this in the timer1_timer event
Label1.Caption = "Date : " + WeekdayName(Weekday(Now)) + " " + DateValue(Now)
Label2.Caption = "Time : " + TimeValue(Now)
Option 2 for VB 6
Put this in the form_load event
Label1.Caption = "Date : " + WeekdayName(Weekday(Now)) + " " + DateValue(Now) + " " + "Time : " + TimeValue(Now)
Put this in the timer1_timer event
Label1.Caption = "Date : " + WeekdayName(Weekday(Now)) + " " + DateValue(Now) + " " + "Time : " + TimeValue(Now)
Thanks.
date and time on label
How can I place the date and time on a label??
Good Luck
example: lblLabel.Caption = Now
how to declare monthname(i) in visual basic 5.0?
i am getting the error "Compile error: Sub or function not defined" in this code. I checked the references needed for this code. Every references are checked. But still it's showing the same error. It's showing the error in the monthname area. Can someone help me to get rid of this problem. The code is given below.
Private Sub FillMonths(cboMonths As ComboBox)Dim i As Integer
Dim strMonth As String
With cboMonths
For i = 1 To 12
strMonth = monthname(i)
.AddItem strMonth
.ItemData(cboMonths.NewIndex) = i
Next i
End With
End Sub
date
HAI
How to find days between two dates in vb 6.0(dates from dtpicker)
Scheduling programs to run at given time on given day
I wonder if you are able to help please?
I am considering writing a VB6 program to sync and/or backup folders/files selected as a way of learning more about VB6.
I'm not sure how to schedule the program to start at the scheduled time and day from within the coding.
With thanks for any help you may be able to give me to get started.
Trevor
how do you calculate the
how do you calculate the date of easter
searching the database
how to search the database in visual basic 6?
date/time picker
how will i compute age when i use the date/time picker? thanks....
Storing Server's Date in Database
Please tell me how to store servers date in oracle database using visual basic 6.0 code.
VB Mondays Dates between a range into Access table
Hi,
I am trying to populate an access database table named DateList that will be used to populate dropdown lists. I want to write code that, from a web page form, will take a "from" date and a "through" date and populate the table's (only) field Date with dates between and including from and through.
I only want the date of MONDAY of each week between the two dates.
This is for an online task management tool that I am creating for my department at work.
The reason I need to code this is that other depts will use this as well and each year we want to clear and repopulate the dates and I have written the code to clear the table but now need to repopulate it.l
One of my main concerns here is how to determine how to count the days so that I get Monday's date and increment so that
I do not get say May 35th. Is there a function that keeps track of the actual date so that once I determine the first Monday in the range I can use something like Date() + 7?
Thanks
W.
question
i am using a db with my vb6 project.
how do i search for records stored on db by searching by date on vb6??
db... VB6.. searching by date
try this:
Dim sql As String
sql = "SELECT vData1, vData2, dDate FROM table WHERE Day(dDate) = " & Day(TDBDate.Value) & " AND Month(dDate) = " & Month(TDBDate.Value) & " AND Year(dDate) = " & Year(TDBDate.Value) Order By dDate"
Set rs = New ADODB.Recordset
rs.CursorLocation = 3
rs.LockType = 1
rs.CacheSize = 1
rs.CursorType = 3
rs.Open sql, ConexionString, , , 1
-------------------
DataCombo1.Text = rs("vData1").Value
TextBox1.Text = rs("vData2").Value
ConexionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=USERDB;Initial Catalog=DataBase;Data Source=Server;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=PC;Use Encryption for Data=False;Tag with column collat"
---I hope clarified your question-----
Viewed and thanks
Thanks very much for this page and helped and saved lot of time of me in finding some solutions
biometric code in vb
good day please help me how to do a system payroll when the in and out of employee is come in biometric what code can i put???????????????........................the name of biometric i use is ACROPRINT TIME qPLUS BIOMETRIC >>> THANKS>>>>>>>>>>>>>>>>>>
How do I increase a date in
How do I increase a date in cell E3 (excel) by one week using VB
thank you...
thank you....
Solving time and date
I can't see the answer please post it the exact answer for example I want to add 1 hr. in current time how can i do that
dim currenttime as
dim currenttime as string
currenttime = dateadd("h",1,now)
Solving time and date
in solving date I use "dateadd("d",30,date) or datediff("d",30,date)" but how to solve the time??? please help me e-mail for information tnx lenard2500@yahoo.com
try this....date and time for 24hours and 12hours....
http://www.vb6.us/tutorials/date-time-functions-visual-basic
Post new comment