I'm curious what is causing this to not work in 4.61. The DateDiff function works, but DateAdd and DatePart don't return any result. Maybe I'm doing something wrong?

 Code:
Function DateDiff($unit, $date1, $date2)
    Dim $sc, $result
    $sc = CreateObject("ScriptControl")
    $sc.Language = "vbscript"
    $result = $sc.Eval("DateDiff("+Chr(34)+$unit+Chr(34)+", "+Chr(34)+$date1+Chr(34)+", "+Chr(34)+$date2+Chr(34)+")")
    $sc = 0
    $DateDiff = $result
EndFunction

Function DateAdd($unit, $incr, $date)
    Dim $sc, $result
    $sc = CreateObject("ScriptControl")
    $sc.Language = "vbscript"
    $result = $sc.Eval("DateAdd("+Chr(34)+$unit+Chr(34) + ", " + $incr + ", " + Chr(34)+$date+Chr(34)+")")
    $sc = 0
    $DateAdd = $result
EndFunction

Function DatePart($unit, $date)
    Dim $sc, $result
    $sc = CreateObject("ScriptControl")
    $sc.Language = "vbscript"
    $result = $sc.Eval("DatePart("+Chr(34)+$unit+Chr(34)+", "+Chr(34)+$date+Chr(34)+")")
    $sc = 0
    $DatePart = $result
EndFunction

$testvalue = '2009/11/03 12:34:56'

$test1 = FormatDateTime($testvalue, 'vbShortDate')
$test2 = FormatDateTime($testvalue, 'vbLongDate')
$test3 = FormatDateTime($testvalue, 'vbLongTime')
$test4 = DateDiff('d', '7/19/2009', $testvalue)
$test5 = DateAdd('m', 1, $testvalue)
$test6 = DatePart('m', $testvalue)

? "shortdate...: $test1"
? "longdate....: $test2"
? "longtime....: $test3"
? "datediff....: $test4"
? "dateadd.....: $test5"
? "datepart....: $test6"

when I run this, variables $test5 and $test6 contain no value. My computer is running Windows XP Pro SP3, using KiXtart 4.61 final release.

Edited by Skatterbrainz (2009-11-19 02:08 PM)
_________________________
silence is golden, but duct tape is silver