View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.programming
tkraju via OfficeKB.com tkraju via OfficeKB.com is offline
external usenet poster
 
Posts: 109
Default date entry in userform textbox

Thank you Joel,code a bit too long.using Cdate can you make it?

Joel wrote:
It is much easier to wrok with Textboxes when using Dates because they are
text strings and not a serial date which can change with regional settings.
Try this code

StrDate = Textbox1.text
'get the 1 or 2 digits before 1st slash and convert to number
DayNum = Val(StrDate,Instr(StrDate,"/")-1)
'get the string after the 1st slash
StrDate = mid(StrDate,Instr(StrDate)+1)
'get the month number before the slash and convert to number
MonthNum = Val(StrDate,Instr(StrDate,"/")-1)

'get the year after the slash
YearNum = val(mid(StrDate,Instr(StrDate)+1))
'add 2000 to year number
YearNum = YearNum + 2000
'convert date to serial format
SerDate=dateserial(YearNum,MonthNum,DayNum)
'Print the Date in required format
Textbox1.text = format(SerDate,"dd-mmm-yy")

Hello,VBA experts
how to validate date entries in TextBoxes (on Userform),user wants to enter
date values in dd/mm/yy format,entry is must in textbox,after entry and
exiting from textbox the textbox
entry be displayed in dd-mmm-yy format.(without changing computer's Regional
and language settings).


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200806/1