problem with adding duration to time

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 427,376 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,989 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums

Thread Tools Display Modes

Views: 323 | Replies: 1

•

Join Date: Jun 2007

Location: india /bangalore

Posts: 18

Reputation: ITech is an unknown quantity at this point

Rep Power: 2

Solved Threads: 0

ITech

Offline

Newbie Poster

problem with adding duration to time

Apr 3rd, 2008

hello

i am doing a project in vb n ms access, i have an issue..its simple i think but i dont no..
in my form i have intime text box which has the computer time,and there is a duration textbox where i have to type in a number..and one more text box is there timeout,,which's value shud be intime + duration, duration is entered in minutes

eg: suppose
intime = 3.00
duration in mins = 90
then out time shud be = 4.30
can any one tell me how to do for dates its easy n i know we have to use dateadd funcion...can anyone tell me for time.is there any function or so ...

•

Join Date: Nov 2006

Posts: 712

Reputation: QVeen72 is an unknown quantity at this point

Rep Power: 3

Solved Threads: 97

QVeen72

Offline

Master Poster

Re: problem with adding duration to time

Apr 3rd, 2008

Hi,

Check this code:

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Dim InDate As Date
Dim NewDate As Date
InDate = Format(txtIn, "hh:mm:ss")
NewDate = DateAdd("n", Val(txtDur), InDate)
txtOutTime = Format(NewDate, "hh:mm")
Dim InDate As Date
Dim NewDate As Date
InDate = Format(txtIn, "hh:mm:ss")
NewDate = DateAdd("n", Val(txtDur), InDate)
txtOutTime = Format(NewDate, "hh:mm")