Date Format 2

[Phil Thoms]

Is there a quick way or a function in VFP 6 which displays dates in the following format:- 19JAN2014

Thanks for your help.

 

[EzLogic]

?MyDate( date() )
? MyDate( SomeDateField )

Function MyDate(tdDate)
return trans(day(tDate)) + upper(substr(cMonth(tDate),1,3)) + transform(year(tDate))
Endfunc

Not Tested.


Ez Logic
Michigan

 

[EzLogic]

^^ that should be:

Function MyDate([highlight #CC0000]tDate[/highlight])

Ez Logic
Michigan

 

[EzLogic]

Also, for the day, if you want to display "01JAN2014',

YOU have to PADL() the Day with '0' and make sure your Set Century is on.

like this:

Function MyDate(tDate)
local lcOCentury, lcRetDate
lcOCentury = Set('century')
set century on
lcRetDate = PADL( TRANS( DAY(tDate) ),2,'0') + UPPER(SUBSTR(CMONTH(tDate),1,3)) + TRANSFORM(YEAR(tDate))
Set century &lcOCentury
return lcRetDate


Ez Logic
Michigan

 

[Mike Lewis]

A very small improvement to EZ's comprehensive answer ....

Instead of [tt]PADL( TRANS( DAY(tDate) ),2,'0')[/tt], how about:

[tt]TRANSFORM(DAY(tDate), "@L 99")[/tt]

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads

 

[EzLogic]

^ Mike, Beautiful, i never used Transform like that in conjuction with padl()

Beautiful!

Ez Logic
Michigan

 

[Phil Thoms]

Thanks for all your help.