Solved

Help with custom vbscript - Get Time and Increment Time by 30

Posted on 2008-10-06
3
1,337 Views
Last Modified: 2012-06-27
Hello,

Can someone help with a custom vbs that:
1) Gets local time HH:MM format either via vbscript method, wmi or CMD (time /t)
2) Then increment it by 30 minutes and stores it in a variable.? in same format HH:MM
0
Comment
Question by:WinPE
3 Comments
 
LVL 38

Accepted Solution

by:
Shift-3 earned 250 total points
ID: 22654283
This should do it.

dtmTime = DateAdd("n", 30, Time)

strNewTime = Right("0" & Hour(dtmTime), 2) & ":" & Right("0" & Minute(dtmTime), 2)

Open in new window

0
 
LVL 10

Assisted Solution

by:c0ldfyr3
c0ldfyr3 earned 250 total points
ID: 22654670
Try this custom function from http://classicasp.aspfaq.com/date-time-routines-manipulation/can-i-make-vbscript-format-dates-for-me.html

Function Format(vExpression, sFormat) 

 

        set fmt = CreateObject("MSSTDFMT.StdDataFormat") 

        fmt.Format = sFormat 

 

        set rs = CreateObject("ADODB.Recordset") 

        rs.Fields.Append "fldExpression", 12 ' adVariant 

 

        rs.Open 

        rs.AddNew 

 

        set rs("fldExpression").DataFormat = fmt 

        rs("fldExpression").Value = vExpression 

 

        Format = rs("fldExpression").Value 

 

        rs.close: Set rs = Nothing: Set fmt = Nothing 

 

End Function 
 

Dim dTime
 

dTime = Format(CStr(DateAdd("n", 30, Time())),"hh:MM")
 

msgbox dTime

Open in new window

0
 

Author Closing Comment

by:WinPE
ID: 31503603
I liked both methods, thanks alot guys!
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now