Using MaskEdBox

[TheBao]

In MaskEdBox, I have the following code:

medDOB.Mask = "##/##/##"
medDOB.Text = Format(rstPlayer!sgcusbdate, "ddddd")

Now if the date part is less than 10, then it display only 1 integer, but the Mask expect 2 integer. So error occur.

How can I make sure that the datepart is always 2 integers? (Note: I must use dateformat "ddddd" ie. vbshortdate since this is an international app.)

Thanks.

[James Stanich]

Why not use a DTpicker? It will always give you a valid date...

[honeybee]

Originally posted by TheBao
In MaskEdBox, I have the following code:

medDOB.Mask = "##/##/##"
medDOB.Text = Format(rstPlayer!sgcusbdate, "ddddd")

Now if the date part is less than 10, then it display only 1 integer, but the Mask expect 2 integer. So error occur.

How can I make sure that the datepart is always 2 integers? (Note: I must use dateformat "ddddd" ie. vbshortdate since this is an international app.)

Thanks.

Here is how I use a MaskEdBox in code:

Dim tmpMask As String
tmpMask = MaskEdBox1.Mask
MaskEdBox1.Mask = ""
MaskEdBox1.Text = <Some value goes here>
MaskEdBox1.Mask = tmpMask

To put it simply, you extract the existing mask into a temporary variable, remove the mask, then set the text and reset the mask using the temporary variable. I am sure this will do the trick for you.

.

[TheBao]

Thank you. Actually, what I want is more than that.

I don't know before hand what the format of the date on the user machine is. So I end up have to get this from the regional setting, then convert this to the mask string for the MaskEdBox.

Thanks.

[honeybee]

Can you retrieve the format from the regional settings? Converting it to a Mask value is your problem? Or once the mask is set, displaying data in that format is a problem?

I guess you can use the "Short Date" in the Format() function to format the date as per the user's regional settings. If the problem is the second one, I can help.

.