[higgmeister]

All of this hype about AI is just that.   AI will be a thing eventually but all; of these current attempts are dumber than parrots.

Even if an AI was able to pass the Turing Test, it would be a subjective determination.   Create a computer that could be as stupid as humanity and then I'll believe it.   But wait, I'm sure I'll be dead by then.

[RoosterRedux]

You haven't been using ChatGPT have you?

I just asked ChatGPT the following question and it gave me the answer below. It's pretty mind-blowing. I found a few small errors, but they can be easily seen and fixed.

THE QUESTION: Can you write me a routine in VBA for excel that replicates the irs form "qualified dividends and long term capital gains worksheet"?

THE ANSWER:

Yes, I can provide you with a VBA routine that replicates the IRS Form "Qualified Dividends and Long-Term Capital Gains Worksheet" in Excel. However, please note that this routine is for educational purposes only and should not be used as a substitute for professional tax advice.

Here is the VBA code:

Option Explicit

Sub QD_LTCG_Worksheet()

'Declare variables

Dim TotalTaxableIncome As Double

Dim QualifiedDividends As Double

Dim NetCapitalGain As Double

Dim TaxableIncome As Double

Dim MaxTaxableIncome As Double

Dim MaxTaxRate As Double

Dim QualifiedDividendTax As Double

Dim NetCapitalGainTax As Double

'Get user inputs

TotalTaxableIncome = InputBox("Enter your total taxable income:")

QualifiedDividends = InputBox("Enter your qualified dividends:")

NetCapitalGain = InputBox("Enter your net capital gain:")

'Calculate taxable income

TaxableIncome = TotalTaxableIncome - QualifiedDividends

'Determine maximum tax rate

If TaxableIncome <= 0 Then

MaxTaxRate = 0

ElseIf TaxableIncome < 40000 Then

MaxTaxRate = 0.15

ElseIf TaxableIncome < 445850 Then

MaxTaxRate = 0.20

ElseIf TaxableIncome < 500000 Then

MaxTaxRate = 0.23

ElseIf TaxableIncome >= 500000 Then

MaxTaxRate = 0.28

End If

'Determine maximum taxable income

MaxTaxableIncome = TotalTaxableIncome - (MaxTaxRate * NetCapitalGain)

'Determine taxable income subject to lower rate

If TaxableIncome < MaxTaxableIncome Then

QualifiedDividendTax = QualifiedDividends * 0.15

NetCapitalGainTax = NetCapitalGain * 0.15

Else

QualifiedDividendTax = (MaxTaxableIncome - TaxableIncome) * 0.15 + (QualifiedDividends - (MaxTaxableIncome - TaxableIncome)) * 0.20

NetCapitalGainTax = (MaxTaxableIncome - TaxableIncome) * 0.15 + (NetCapitalGain - (MaxTaxableIncome - TaxableIncome)) * 0.20

End If

'Display results

MsgBox "Qualified Dividend Tax: $" & Format(QualifiedDividendTax, "0.00") & vbNewLine & "Net Capital Gain Tax: $" & Format(NetCapitalGainTax, "0.00"), vbInformation, "Qualified Dividends and Long-Term Capital Gains Worksheet" End Sub