Format month\day to include 0 if less than 10

[mdav2]

I am trying to format the day\month of the date to include the "0" if it is less than 10. I thought that I might be able to use a simple function to do this in VFP, like FORMAT in VBA. It needs to be returned as a string.

I couldn't find a similar so I've had to use the PADL command to achieve this (see below). Just out of interest is there an equivalent of the VBA FORMAT command in VFP?

x = PADL(ALLTRIM(STR(MONTH(DATETIME()))),2,'0')

Mark Davies
Warwickshire County Council

 

[MarciaAkins]

I am trying to format the day\month of the date to include the "0" if it is less than 10. I thought that I might be able to use a simple

You were close:

x = PADL( MONTH( DATE() ), 2, '0' )

Marcia G. Akins

http://www.TightlineComputers.com

 

[alvechurchdata]

Just out of interest is there an equivalent of the VBA FORMAT command in VFP?

Take a look at TRANSFORM(). It's not exact but I think it's as close as you'll get.

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[SGLong]

I've created a little function that works quite well.

**********************
FUNCTION func_nicedate
**********************
** Author:  Steve Long
** Purpose: Takes a date value, converts it to a text string using MDY and removes any leading zero for the day, returning the new string 
**				(i.e. {06/09/2004} = 'June 9, 2004')
**			Including the second optional parameter as a .T. will prefix the return value with the day of the week
**				(i.e. {06/09/2004} = 'Wednesday, June 9, 2004')
** Note:  The return value is a String, not a Date
LPARAMETERS tdDateIn, tlIncludeDOW
IF tlincludeDOW
	RETURN CDOW(tdDateIn) + ", " + STRTRAN(MDY(tdDateIn)," 0"," ")
ELSE
	RETURN STRTRAN(MDY(tdDateIn)," 0"," ")
ENDIF

Steve

 

[mdav2]

Thanks for the replys as always. I was surprised that you wouldn't have to alltrim and str the month value because it's numeric. Will make the SQL easier to ready.

Mark Davies
Warwickshire County Council

 

[mkrausnick]

If you need the whole date with leading zeroes:

cDate = DTOS(DATE(2006,2,4))
* For U.S. format:
? SUBSTR(cDate,5,2)+'/'+RIGHT(cDate,2)+'/'+LEFT(cDate,4)
* For European format:
? RIGHT(cDate,2)+'/'+SUBSTR(cDate,5,2)+'/'+LEFT(cDate,4)

Mike Krausnick
Dublin, California