% Function PCase(sValue) iPos = 1 Do While InStr(iPos, sValue, " ", 1) <> 0 iSpace = InStr(iPos, sValue, " ", 1) sTemp = sTemp & UCase(Mid(sValue, iPos, 1)) sTemp = sTemp & LCase(Mid(sValue, iPos + 1, _ iSpace - iPos)) iPos = iSpace + 1 Loop sTemp = sTemp & UCase(Mid(sValue, iPos, 1)) sTemp = sTemp & LCase(Mid(sValue, iPos + 1)) PCase = sTemp End Function %>
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |
|
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
![]() |
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |
Site Design by CGS infotech Ltd, | |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Home | About Us | Contact Us | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||