Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and beginning April 20th, 2021 (Eastern Time) the Yahoo Answers website will be in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.
Trending News
For Programmers! Are there any better way to figure out final destination?
Option Explicit
Dim HowManyToWorship As Integer
Dim Bible As Variant
Dim OldTestement As Constant
Dim NewTestement As Variant
Dim Hell As Permanent
Dim Heaven As Variant
Dim FinalDestination As Variant
Dim FirstCommandment As Constant
Dim Purgatory As Constant
Dim GloryOfGod As AmbientProperties
Dim Truth As Variant
Private Sub LifeStarted()
ReadBible = True
Call BibleProposition
End Sub
Sub BibleProposition()
Dim tempTruth As String
If Bible = True Then
tempTruth = "Bible should say so"
Call PerfectMath
ElseIf Bible = False Then
Call ReadBible
End If
End Sub
Sub ReadBible()
Dim i As Long
Dim Revelation As Long
Dim tempTruth As String
For i = "Genesis" To Revelation
If tempTruth = "Bible says it's true" Then
Bible = True
Call PerfectMath
End If
Next i
If tempTruth = Not "Bible says it's true" Then
ReadBible
End If
End Sub
Sub PerfectMath()
If 3 < 4 And 3 > 2 And 3 = 1 Then
Truth = 1 > 2 = True
Truth = 1 < 4 = True
Call Worship(1)
ElseIf 3 < 4 And 3 > 2 And 3 <> 1 Then
Truth = 1 < 2 = True
Truth = 1 < 4 = True
Truth(1 = 3) = False
Call Worship(3)
End If
End Sub
Function Worship(NumberOfIdols As Long)
If Bible = True And FirstCommandment = True And NumberOfIdols = 1 Then
HowManyToWorship = 1
Call HellHeavenDestination(1)
ElseIf Not Bible = True Or FirstCommandment = False Then
HowManyToWorship = 3
Call HellHeavenDestination(3)
End If
End Function
Sub HellHeavenDestination(NumberOfIdols As Long)
If NumberOfIdols <> 1 And OldTestement = True Then
Call FinalCleaningProcess
FinalDestination = Hell
ElseIf NumberOfIdols <> 1 And NewTestement = True Then
Call FinalCleaningProcess
FinalDestination = Purgatory
ElseIf NumberOfIdols = 1 And OldTestement = True And NewTestement = False Then
Call FinalCleaningProcess
FinalDestination = GloryOfGod
ElseIf NumberOfIdols = 1 And NewTestement = True And OldTestement = False Then
Call FinalCleaningProcess
FinalDestination = Heaven
End If
End IF
Sub FinalCleaningProcess()
Dim Evolution As Boolean
Dim Creation As Boolean
Dim InitialState As String
If Evolution = True Then
InitialState = "LifeForm"
Terminate LifeStarted()
ElseIf Evolution = False And Creation = True Then
MsgBox ("Genesis 2:7 And the LORD God formed man of the dust of the ground...")
InitialState = "Dust"
MsgBox ("Please use Vacuum Cleaner or Broom to complete the process")
End If
End Sub
Damn , formatting got screwed....
