[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

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

Posted on 2008-10-06
3
Medium Priority
?
1,353 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 1000 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 1000 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

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
With User Account Control (UAC) enabled in Windows 7, one needs to open an elevated Command Prompt in order to run scripts under administrative privileges. Although the elevated Command Prompt accomplishes the task, the question How to run as script…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
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…
Suggested Courses
Course of the Month20 days, 8 hours left to enroll

868 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