'=========================================================
'==            Visual Basic Sample Code From            ==
'==     Microsoft Excel/Visual Basic for Windows 95     ==
'==                  Programmer's Guide                 ==
'==                      Appendix A                     ==
'=========================================================

' DISCLAIMER OF WARRANTY

' THIS FILE CONTAINS UNDOCUMENTED SAMPLE CODE. THIS SAMPLE CODE IS 
' PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT FURTHER
' DISCLAIMS ALL IMPLIED WARRANTIES INCLUDING WITHOUT LIMITATION ANY
' IMPLIED WARRANTIES OF MERCHANTABILITY OR OF FITNESS FOR A PARTICULAR
' PURPOSE. THE ENTIRE RISK ARISING OUT OF THE USE OR PERFORMANCE OF THE
' SAMPLE CODE REMAINS WITH YOU.

' IN NO EVENT SHALL MICROSOFT OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES
' WHATSOEVER (INCLUDING, WITHOUT LIMITATION, DAMAGES FOR LOSS OF
' BUSINESS PROFITS, BUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION,
' OR OTHER PECUNIARY LOSS) ARISING OUT OF THE USE OF OR INABILITY TO USE
' THIS SAMPLE CODE, EVEN IF MICROSOFT HAS BEEN ADVISED OF THE POSSIBILITY
' OF SUCH DAMAGES. BECAUSE SOME STATES DO NOT ALLOW THE EXCLUSION OR
' LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES, THE
' ABOVE LIMITATION MAY NOT APPLY TO YOU.






'=========================================================
'==                    From Page 257                    ==
'=========================================================

ThisWorkBook.Worksheets ("Sheet1").Range("A1"). _
	Formula = "=SUM(A2:A3)"

'-------------------------------------------------

FormulaText = InputBox(EnterFormulaMessage)
ThisWorkbook.Worksheets("Sheet1").Range("A1") _
	.FormulaLocal = "=" & FormulaText

'-------------------------------------------------

Worksheets("Sheet1").Range("A17").NumberFormat = "General"

'-------------------------------------------------

Msgbox "The number format for cell A17 is " & _ 
	Worksheets("Sheet1").Range("A17").NumberFormatLocal




'=========================================================
'==                    From Page 258                    ==
'=========================================================

StartDate = "2/3/95"
NewDate = CDate(StartDate)

'-------------------------------------------------

StartDate = #2/3/95#
NewDate = CDate(StartDate)

'-------------------------------------------------

Money = "$1.22"
NewMoney = CCur(Money)




'=========================================================
'==                    From Page 259                    ==
'=========================================================

Money = 1.22
NewMoney = CCur(Money)

'-------------------------------------------------

MyDate = #January 27, 1994#
MyStr = Format(MyDate, "dd-mm-yy")	'Returns 01-27-94
MyStr = Format(MyDate, "Short Date")	'Returns a short date based on
							'the locale where the code is 
							'running
'=========================================================
'==                    From Page 261                    ==
'=========================================================

Public GlobalOffsetCode

Sub GetGlobalOffsetCode()
Select Case Application.International(xlCountryCode)
	Case 1:			'US English
		GlobalOffsetCode = 1
	Case 33:			'French
		GlobalOffsetCode = 2
	Case 49:			'German
		GlobalOffsetCode = 3
	Case Else:			'US English as the default language
		GlobalOffsetCode = 1
End Select
End Sub

'-------------------------------------------------

WelcomeMsg = ThisWorkbook.Worksheets("LocalizationTable").Range _
	("Welcome").Offset(0, GlobalOffsetCode).Value
MsgBox WelcomeMsg
