Function to build timebuckets

[emailswe]

Hi

I would like to get som help with a function that I wrote, I would like the function to give me timebuckets from a string. This is were I am @ the moment:

Function Test(Period As Double) As Double

Dim M As String
Dim Y As String

M = Right(Period, 2)
Y = Left(Period, 4)

If M = "05" Then
Test = "Q1"
Else


End If


End Function

The "Period" could look like '2008 05'

Could any helpful soul out there help me plz
//Emil

 

[PHV]

And the problem is ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[MarkWalsh]

'2008 05' is not a valid double

 

[Golom]

You seem to be working with strings ... not doubles.

Function Test(Period As [red]String[/red]) As [red]String[/red]

 

[Rofeu]

From your example, it looks like you are trying to put the months into quarters according to a fiscal calendar.

I'm quite sure you not even need to go VBA for that, but if you want to I strongly suggest to convert the strings to actual dates.


If you post what your input looks like and what exactly it is that you're trying to achieve, you'll enable us to help you better.

Cheers,

Roel

 

[SkipVought]

I'd srongly suggest using REAL DATES for time buckets. You can FORMAT to appear as you want, but STRINGS are almost useless.

REAL DATES can be grouped many different ways.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}