Beginning and End of Month Functions 3

[gguerra3]

I am needing some UDF's that will return the 1st and last day of the month for a given month.

I had some written in FP2.x but they no longer function correctly in VFP9, I think since dates are handled differently. I could rewrite them, but I thought someone may have already done this or maybe theres something already in VFP.

I need BOMONTH(). i.e. BOMONTH(2) returns '02/01/2006'
and EOMONTH() i.e. EOMONTH(2) returns '02/28/2006'

Is there something out there already??

Thanks

 

[bborissov]

FUNCTION BOMONTH(lnMonth, lnYear)
IF VARTYPE(lnYear) $ [N]
   m.lnYear = YEAR(DATE())
ENDIF

IF VARTYPE(lnMonth) $ [N]
   m.lnYear = MONTH(DATE())
ENDIF

IF NOT BETWEEN(lnMonth, 1, 12)
  RETURN {}
ENDIF

RETURN DATE(m.lnYear, m.lnMonth, 1)



FUNCTION EOMONTH(lnMonth, lnYear)
LOCAL ldRetVal
m.ldRetVal = BOMONTH(lnMonth, lnYear)
IF EMPTY(m.ldRetVal0
   RETURN {}
ENDIF
RETURN GOMONTH(m.ldRetVal,1)-DAY(m.ldRetVal)

Borislav Borissov

 

[gguerra3]

Thanks BB

A star goes your way

GG

 

[bborissov]

O God,
I have 3 typos
In BOMONTH()

IF VARTYPE(lnMonth) $ [N]
   m.lnYear = MONTH(DATE())
ENDIF

IF VARTYPE(lnMonth) $ [N]
   m.lnYear = MONTH(DATE())
ENDIF

must be:

IF VARTYPE(lnMonth) # [N]
   m.lnYear = MONTH(DATE())
ENDIF

IF VARTYPE(lnMonth) # [N]
   m.lnYear = MONTH(DATE())
ENDIF

In EOMOTNH()

IF EMPTY(m.ldRetVal0
   RETURN {}
ENDIF

must be

IF EMPTY(m.ldRetVal)
   RETURN {}
ENDIF

Borislav Borissov

 

[gguerra3]

Oh, How do you call the functions??

I tried BOMONTH(2,2006) got an error??

 

[bborissov]

Strange, I got a result:

? BOMONTH(2,2006)
? EOMONTH(2,2006)


FUNCTION BOMONTH(lnMonth, lnYear)
IF VARTYPE(lnYear) # [N]
   m.lnYear = YEAR(DATE())
ENDIF

IF VARTYPE(lnMonth) # [N]
   m.lnYear = MONTH(DATE())
ENDIF

IF NOT BETWEEN(lnMonth, 1, 12)
  RETURN {}
ENDIF

RETURN DATE(m.lnYear, m.lnMonth, 1)



FUNCTION EOMONTH(lnMonth, lnYear)
LOCAL ldRetVal
m.ldRetVal = BOMONTH(lnMonth, lnYear)
IF EMPTY(m.ldRetVal)
   RETURN {}
ENDIF
RETURN GOMONTH(m.ldRetVal,1)-DAY(m.ldRetVal)

Borislav Borissov

 

[gguerra3]

Got it to work,
Thanks again BB