[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1355
  • Last Modified:

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

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
WinPE
Asked:
WinPE
2 Solutions
 
Shift-3Commented:
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
 
c0ldfyr3Commented:
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
 
WinPEAuthor Commented:
I liked both methods, thanks alot guys!
0

Featured Post

Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now