Something worth in spare time :)

[Stormseed]

oh ok...cool, I got it Dom.

But still I am unable to understand what "justme" is trying to say here

 

[gwkenny]

My first thought is Love of the Devil is much > Love of God.

Does that mean humans are SOL (exhibit for those that don't specifically believe in a god in which case, it's all moot).

If human's have gods, what about ****roaches? What does the god of ****roaches preach? Be forgiving of stomping humans cause you were here before, and you will be here when they are gone? That's a pretty strong ****roach message if you ask me!

Maybe we should all be looking to be reincarnated as ****roaches!!!

Yah, that's it!!!

 

[Cbrine]

I was going to see how much procrastination is worth, but I don't have time right now....

Stormseed,
It's a play on words and a little bit ironic.

Justme is saying:
I would see how much procrastination is worth, but I'm going to procrastinate on actually doing it.

HTH
Cal

 

[al_b_cnu]

Well I've been looking for words using this function:

Function GetPercentage(ByVal Stringx As String) As Single
Dim iPtr As Integer

GetPercentage = 0
For iPtr = 1 To Len(Stringx)
    GetPercentage = GetPercentage + (InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Mid$(UCase$(Stringx), iPtr, 1)) / 100)
Next iPtr
End Function

The best I came up with were:
Drink Coffee - 96%
Watch TV - 97%
Play games - 99%
Whiskey - 100%

 

[dave3009]

English does have some right odd words

Take abbreviation for example, is it any wonder the Americans miss out half the letters in some words

 

[HarryS]

More nice mathematics Try it it is good

take any sheet add four spinners in c1,c2,c3,c4
linked to b1,b2,b3,b4
label them in a1,a2,a3,a4 as<TABLE style="WIDTH: 46pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=61 border=0 x:str><COLGROUP><COL style="WIDTH: 46pt; mso-width-source: userset; mso-width-alt: 2230" width=61><TBODY><TR style="HEIGHT: 14.1pt; mso-height-source: userset" height=18><TD style="BORDER-RIGHT: #c0c0c0; BORDER-TOP: #c0c0c0; BORDER-LEFT: #c0c0c0; WIDTH: 46pt; BORDER-BOTTOM: #c0c0c0; HEIGHT: 14.1pt; BACKGROUND-COLOR: transparent" width=61 height=18>No From</TD></TR><TR style="HEIGHT: 14.1pt; mso-height-source: userset" height=18><TD style="BORDER-RIGHT: #c0c0c0; BORDER-TOP: #c0c0c0; BORDER-LEFT: #c0c0c0; BORDER-BOTTOM: #c0c0c0; HEIGHT: 14.1pt; BACKGROUND-COLOR: transparent" height=18>Mid Div</TD></TR><TR style="HEIGHT: 14.1pt; mso-height-source: userset" height=18><TD style="BORDER-RIGHT: #c0c0c0; BORDER-TOP: #c0c0c0; BORDER-LEFT: #c0c0c0; BORDER-BOTTOM: #c0c0c0; HEIGHT: 14.1pt; BACKGROUND-COLOR: transparent" height=18>Color Start</TD></TR><TR style="HEIGHT: 14.1pt; mso-height-source: userset" height=18><TD style="BORDER-RIGHT: #c0c0c0; BORDER-TOP: #c0c0c0; BORDER-LEFT: #c0c0c0; BORDER-BOTTOM: #c0c0c0; HEIGHT: 14.1pt; BACKGROUND-COLOR: transparent" height=18>BackGround</TD></TR></TBODY></TABLE>

put max =49 min =2 for spin buttons

and a checkbox1
and the code

Dim Nmax As Integer ' max rows
Dim ModDivide As Long   ' The divisor to  return  nCr mod
Dim ColorOffset As Integer
Dim ColorBackground As Integer
Dim NcCol As Integer  ' N umber of c entral Col umn
Dim Coli  As Integer   ' the current color index
Sub TidyIt()
'Get Values
' put in four spin buttons  max 49  min 2
'link these to cells  b1,b2,b3,b4
' have a  checkbox1 as triangle or square

    Nmax = Cells(1, 2)    ' max from   <50
    ModDivide = Cells(2, 2)  ' to modular divide nCr
    ColorOffset = Cells(3, 2)  ' Color index start
    ColorBackground = Cells(4, 2)    ' background color
    NoClear = Range("a1:b20")
    Cells.Clear
    Range("a1:b20") = NoClear
    Columns.ColumnWidth = 30 / Nmax
    Rows.RowHeight = 240 / Nmax
    Columns("a:c").ColumnWidth = 8
    Rows("1:4").RowHeight = 14
    Range(Cells(4, 4), Cells(4 + 2 * Nmax, 4 + 2 * Nmax)) _
            .Interior.ColorIndex = ColorBackground
End Sub
Sub ColMod()
    Dim kk As Currency    ' more accurate but still suspect nMax >45
    Dim DivRem As Integer  ' remainder after division
    TidyIt
    If CheckBox1.Value Then  ' triangle or square
        NcRow = 4
    Else
        NcRow = 4 + Nmax
    End If
    NcCol = Nmax + 4  ' num of column working about
    For n = 1 To Nmax     ' loop the number from -> rows
        For m = -n + 2 To n - 2 Step 2
            r = (m + n) / 2  'loop the  size of group - > columns
            kk = Application.WorksheetFunction.Combin(n, r)
            DivRem = Round(kk - Int(kk / ModDivide) * ModDivide)
            If DivRem > ModDivide Then DivRem = 0
            '  errors where n >45   and nCr very big
            ' non pattern colored cells in central columns
            Coli = (DivRem + ColorOffset) Mod 55 + 1
            Cells(NcRow + n - 1, NcCol + m).Interior.ColorIndex = Coli    'bot
            If Not CheckBox1.Value Then  ' place copies of triangle
                Cells(NcCol + m, NcRow + n - 1).Interior.ColorIndex = Coli    'left
                Cells(NcRow - n + 1, NcCol + m).Interior.ColorIndex = Coli    'top
                Cells(NcRow + m, NcCol - n + 1).Interior.ColorIndex = Coli    'right
            End If
        Next m
    Next n
End Sub
Private Sub SpinButton1_Change()
    ColMod
End Sub
Private Sub SpinButton2_Change()
    ColMod
End Sub
Private Sub SpinButton3_Change()
    ColMod
End Sub
Private Sub SpinButton4_Change()
    ColMod
End Sub

 

[Joe4]

Stormseed,

Just came across this post today. Being a bit of a math geek myself, I enjoyed it, especially all the formulas at the beginning.

Numbers have always spoke to me, and I am fascinated by them. I was the only kid in the neighborhood to buy baseball cards for the statistics on the back instead of the pictures on the front. To me, the statistics "tell a story".

 

[Oorang]

I appreciate the intent... And it was interesting and fun But good principles don't need justification from bad math