WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Time UDFs

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

udfStrpTime Converts Human Readable Date

 Keywords: udfStrpTime Converts Human Readable Date YYYY MM DD MM/DD/YYYY 

#DefineFunction udfStrpTime(date)
   ; Converts human readable date to MM/DD/YYYY format
   ErrorMode(@OFF)
   date=ObjectType("DATE",date)
   ErrorMode(@CANCEL)
   If LastError() == 1703
      Pause('Error','Invalid Date.')
      Return 0
   EndIf
   date=ItemExtract(2,date,":"):"/":ItemExtract(3,date,":"):"/":ItemExtract(1,date,":")
   Return date
#EndFunction

; Test 1
d = "Jan 01 2011"
result = udfStrpTime(d)
Message(d,result)

; Test 2
d = "January 01 2011"
result = udfStrpTime(d)
Message(d,result)

; Test 3
d = "Feb 30 2011" ; invalid date
result = udfStrpTime(d)
Message(d,result)
Exit

Article ID:   W18408
Filename:   udfStrpTime Converts Human Readable Date.txt
File Created: 2011:03:24:10:31:46
Last Updated: 2011:03:24:10:31:46