_DateTimeFormat not working on specific system

[Ganesh2VL]

Dears,

The below code is working(20170314) in my UAT system but the same not working (-1-1-1) on production system.

Please note  "_NowCalc()" returning correct date time on all machine/systems.

What could be the issue? Please help.

Func GetDateYYYYMMDD()
   Local $aMyDate, $aMyTime
_DateTimeSplit(_DateTimeFormat(_NowCalc(), 1), $aMyDate, $aMyTime)
Local $iLenDay = StringLen($aMyDate[1])
Local $iLenMon = StringLen($aMyDate[2])
if $iLenDay = 1 Then
   $aMyDate[1] = "0"&$aMyDate[1]
EndIf

if $iLenMon = 1 Then
   $aMyDate[2] = "0"&$aMyDate[2]
EndIf
   Local $newDateFormat = $aMyDate[3] & $aMyDate[2] & $aMyDate[1]

MsgBox($MB_SYSTEMMODAL, "", "New Date " &  $newDateFormat )
Return $newDateFormat
EndFunc

Edited March 14, 2017 by Ganesh2VL

[jchd]

You're making your life much harder than needed.

_DateTimeFormat(_NowCalc(), 1) is a long format, e.g. "Tuesday 14 March 2017" but _DateTimeSplit expects "2017/03/14 10:15:36"

If you just need YYYMMDD, this should do:

Func GetDateYYYYMMDD()
    Return StringReplace(_NowCalcDate(), '/', '')
EndFunc

Making this one-liner a function is probably overkill.

[Ganesh2VL]

THANKS jchd. 

 

Edited March 15, 2017 by Ganesh2VL