Textbox and Date formatting

[Lbob]

Hi

Can anyone help me.....I've got a textbox where a user can enter a date. I want to reformat it to "dd-MMM-yyyy" when the user clicks on a button. I can't seem to get this to work. I've tried Textbox.text = format(Textbox.text, "{0:dd-MMM-yyyy]") which didn't work.

Please help!
Cheers
Lbob

 

[Tarwn]

Wait, you want to do this in the browser? Ie, before it sent to the server? That would be client-side scripting, you may wnt to try the VBScript or Javascript forums:
VBScript: forum329
Javascript: forum216

-T

 

[vbkris]

and why MMM???

Known is handfull, Unknown is worldfull

 

[FesterSXS]

I assume Lbob means like 12-Jun-2004

Tony
________________________________________________________________________________

http://www.SpiraxSarco.com

 

[Tarwn]

If you did want to do this server-side, ie on the page processing your form, you could do something like:

Dim enteredDate, formattedDate
enteredDate = Request.Form("yourTextInputName")
If isDate(enteredDate) Then
   enteredDate = cDate(enteredDate)
Else
   Response.Write "Error - Not A Date"
End If

If Day(enteredDate) < 10 Then
   formattedDate = "0" & Day(enteredDate)
Else
   formattedDate = Day(enteredDate)
End If

formattedDate = formattedDate & "-" & Left(MonthName(Month(enteredDate)),3) & "-" & Year(enteredDate)

This could easily be built as a function, like so:

Function FormatMyDate(aDate)
   If Day(aDate) < 10 Then
      FormatMyDate= "0" & Day(aDate)
   Else
      FormatMyDate= Day(aDate)
   End If

   FormatMyDate= formattedDate & "-" & Left(MonthName(Month(aDate)),3) & "-" & Year(aDate)
End Function

'then to call it
If isDate(Request.Form("YourTextInput")) Then
   Response.Write FormatMyDate(cDate(Request.Form("YourTextInput")))
Else
   Response.Write "That Was Not A Date!"
End if

As I said earlier though, it sounds like you want to do this client-side, which means you will need to use client-side scripting like VBScript or javascript to get the job done.

-T