{"id":235,"date":"2007-12-12T14:00:00","date_gmt":"2007-12-12T22:00:00","guid":{"rendered":"http:\/\/testblog.sapien.com\/index.php\/2007\/12\/12\/when-did-that-happen\/"},"modified":"2007-12-12T14:00:00","modified_gmt":"2007-12-12T22:00:00","slug":"when-did-that-happen","status":"publish","type":"post","link":"https:\/\/dev.sapien.com\/blog\/2007\/12\/12\/when-did-that-happen\/","title":{"rendered":"When Did That Happen?"},"content":{"rendered":"

VBScript has a useful function called DateDiff<\/strong> that will return a time interval between two dates.  You can specify whether want the interval in months, days, minutes among other things. <\/p>\n

d1=Now
<\/font>d2=CDate(“Jan 1, 2008 12:00AM”)
<\/font>WScript.Echo “Countdown to the New Year (” & d2 & “)”
<\/font>WScript.Echo ” Months: ” & DateDiff(“m”,d1,d2)
<\/font>WScript.Echo ” Weeks: ” & DateDiff(“w”,d1,d2)
<\/font>WScript.Echo ” Days: ” & DateDiff(“d”,d1,d2)
<\/font>WScript.Echo ” Hours: ” & DateDiff(“h”,d1,d2)
<\/font>WScript.Echo ” Minutes: ” & DateDiff(“n”,d1,d2)<\/font> <\/p>\n

My problem is that I can never remember what abbreviation to use for the interval. In PrimalScript 2007<\/a> this isn’t necessarily a big deal because I can use the help file from WSH and VBScript Core: TFM<\/a>. But maybe I can improve on this. How about a function that I can use in my script to return a date\/time interval that uses “real” English?<\/p>\n

Function GetDateDiff(dtOne,dtTwo,sInterval)
’ Valid interval values are:
’ Months,Days,Minutes,Hours,Seconds and they
’ are not case sensitive <\/font> <\/p>\n

    Select Case LCase(sInterval)
        Case “months”
            result = DateDiff(“M”,dtOne,dtNow) <\/font> <\/p>\n

        Case “days”
            result = DateDiff(“d”,dtOne,dtNow) <\/font> <\/p>\n

        Case “minutes”
            result = DateDiff(“n”,dtOne,dtNow) <\/font> <\/p>\n

        Case “hours”           
            result = DateDiff(“h”,dtOne,dtNow) <\/font> <\/p>\n

        Case “seconds”
             result = DateDiff(“s”,dtOne,dtNow)
        Case Else result=”Unknown interval” <\/font> <\/p>\n

    End Select
    GetDateDiff=result <\/font> <\/p>\n

End Function<\/font> <\/p>\n

This function allows me to specify a date interval using a meaningful word like months or days. Now I don’t have to remember that “n” means minutes. I mean, who’s going to make that association? Using a function like this allows me to write more meaningful VBScript code:<\/p>\n

dtThen=#11\/28\/2007  11:41 AM#
dtNow=Now <\/font> <\/p>\n

WScript.Echo dtThen & ” was: ”
WScript.Echo GetDateDiff(dtThen,dtNow,”months”) &_
” months ago from ” & dtNow
WScript.Echo GetDateDiff(dtThen,dtNow,”days”) &_
” days ago from ” & dtNow
WScript.Echo GetDateDiff(dtThen,dtNow,”hours”) &_
” hours ago from ” & dtNow
WScript.Echo GetDateDiff(dtThen,dtNow,”minutes”) &_
” minutes ago from ” & dtNow
WScript.Echo GetDateDiff(dtThen,dtNow,”seconds”) &_
” seconds ago from ” & dtNow<\/font> <\/p>\n

Now I don’t have to rely on middle-aged memory and the code is a little more meaningful. I haven’t wrapped all the functionality from DateDiff<\/strong> into my function so if there is something you need, you’ll need to modify it. But this should meet 95% or more of my needs.<\/p>\n

I’ve attached the function and sample code as a text file so you don’t have to try and copy\/paste from the blog entry.<\/p>\n

Technorati Tags: VBScript<\/a>, Scripting<\/a>, Functions<\/a><\/div>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"

VBScript has a useful function called DateDiff that will return a time interval between two dates. You can specify whether want the interval in months, days, minutes among other things. My problem is that I can never remember what abbreviation to use for the interval. In PrimalScript 2007 this isn’t necessarily a big deal because I can use the help file from WSH and VBScript Core: TFM. But maybe I can improve on this. How about a function that I can use in my script to return a date\/time interval that uses “real” English?<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[24],"tags":[],"class_list":["post-235","post","type-post","status-publish","format-standard","hentry","category-vbscript"],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/235","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/comments?post=235"}],"version-history":[{"count":0,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/235\/revisions"}],"wp:attachment":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/media?parent=235"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/categories?post=235"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/tags?post=235"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}