Date Management

[edauthier]

Why doesn't this work?

Maybe a wish for wish for a datesub> command to retain the 0's in front of month and day for date management functions...

I am looking to subtract one day from script execution day and the receiving systems require the leading zeros on month and day.

I had trouble posting the example script correctly. ..

Code: Select all

GetDate>date
      sub>date,1
      Separate>date,/,field
            if>{(%field_1%<=9) and (%field_2%<=9)},add0monthday
      else
            if>{(%field_1%<=9) and (%field_2%=>10)},add0monthonly
      else
            if>{(%field_1%=>10) and (%field_2%<=9)},add0dayonly
      else
            if>{(%field_1%=>10) and (%field_2%=>10)},normal
      endif

label>add0monthday
        message>0%field_1%-0%field_2%-%field_3%
        goto>end
label>add0monthonly
        message>0%field_1% -%field_2%-%field_3%
        goto>end
label>add0dayonly
        message>%field_1% -0%field_2%-%field_3%
        goto>end
label>normal
       message>%field_1%-%field_2%-%field_3%
label>end

[Marcus Tettmar]

Sub>date,1 *does* retain zeros for me. It should return the date in your system's short date format. For me the format is not changed when I use Sub>date,1.

However, if you want more control, use VBScript's date functions. E.g. The following subtracts one from the current date and also formats the date in month/day/year format ensuring the month and day are zero prefixed:

Code: Select all

VBSTART
VBEND

VBEval>Right("0" & DatePart("m", Now()),2) & "/" & Right("0" & DatePart("d", Now()),2) & "/" & DatePart("yyyy",Now()),date

[edauthier]

Thanks very much. I am not sure why I do not have the leading zeros. This is on XP and Vista..

[Me_again]

Does the clock in the system tray have a leading zero? The format is set on Control Panel > Regional and Language > Customize > Time (unless you are using a third party clock utility).