VBA/Excel/Access/Word/Language Basics/Conditional Compilation

Using Conditional Compilation

   <source lang="vb">

1. Const verSpanish = True

Sub WhatDay()

   Dim dayNr As Integer
   #If verSpanish = True Then
       dayNr = Weekday(InputBox("Entre la fecha, por ejemplo 01/01/2001"))
       MsgBox "Sera " & DayOfWeek(dayNr) & "."
   #Else
       WeekdayName
   #End If

End Sub Function DayOfWeek(dayNr As Integer) As String

   DayOfWeek = Choose(dayNr, "Domingo", "Lunes", "Martes", _
       "Miercoles", "Jueves", "Viernes", "Sabado")

End Function Function WeekdayName() As String

   Select Case Weekday(InputBox("Enter date, e.g., 01/01/2000"))
       Case 1
           WeekdayName = "Sunday"
       Case 2
           WeekdayName = "Monday"
       Case 3
           WeekdayName = "Tuesday"
       Case 4
           WeekdayName = "Wednesday"
       Case 5
           WeekdayName = "Thursday"
       Case 6
           WeekdayName = "Friday"
       Case 7
           WeekdayName = "Saturday"
   End Select
   MsgBox "It will be " & WeekdayName & "."

End Function

Option Compare Database Sub getCurrentPath() MsgBox CurrentProject.Path End Sub

</source>