Please, can anyone convert the following dot net snippet to pascal

[karmalax]

public static string Somme(string T)

{

string text1 = "";

double num5 = Strings.Len(T) + 1;

int num3 = 7;

int num6 = Strings.Len(T);

int num1 = 1;

while (num1 <= num6)

{

double num4 = Strings.Asc(Str ings.Mid(T, num1, 1)) + (num3
- num1);

int num2 = (int) Math.Round((dou ble) ((num4 % 10) + 1));

if (num2 == 0)

{

num2 = 1;

}

num3 = num2 + 5;

num4 = ((long) Math.Round((dou ble) (num4 * num2))) /
((long) (num2 * 2));

num5 = ((long) Math.Round((dou ble) (num5 * num4))) /
((long) num2);

if (num4 < 1)

{

num4 = 4;

}

if (num5 900000)

{

num5 = ((long) Math.Round(num5 )) / ((long)
Math.Round(num4 ));

}

num1++;

}

text1 = Strings.Left(St rings.LTrim(Con version.Str(num 5)) +
"12345678", 8);

text1 = Strings.Right(t ext1, 4) + Strings.Left(te xt1, 4);

num1 = (int) Math.Round((dou ble) (8 -
Conversion.Val( Strings.Mid(T, 1, 1))));

if (num1 < 0)

{

num1 += 9;

}

StringType.MidS tmtStr(ref text1, 1, 1,
Strings.Trim(Co nversion.Str(nu m1)));

num1 = (int) Math.Round((dou ble) (5 -
Conversion.Val( Strings.Mid(T, 6, 1))));

if (num1 < 0)

{

num1 += 9;

}

StringType.MidS tmtStr(ref text1, 6, 1,
Strings.Trim(Co nversion.Str(nu m1)));

num1 = (int) Math.Round((dou ble) (9 -
Conversion.Val( Strings.Mid(tex t1, 2, 1))));

if (num1 < 0)

{

num1 += 9;

}

StringType.MidS tmtStr(ref text1, 4, 1,
Strings.Trim(Co nversion.Str(nu m1)));

num1 = (int) Math.Round((dou ble) (7 -
Conversion.Val( Strings.Mid(tex t1, 3, 1))));

if (num1 < 0)

{

num1 += 9;

}

StringType.MidS tmtStr(ref text1, 8, 1,
Strings.Trim(Co nversion.Str(nu m1)));

num1 = (int) Math.Round((dou ble) (5 -
Conversion.Val( Strings.Mid(tex t1, 5, 1))));

if (num1 < 0)

{

num1 += 9;

}

StringType.MidS tmtStr(ref text1, 7, 1,
Strings.Trim(Co nversion.Str(nu m1)));

return text1;

}

Thanks

[Cor Ligthert [MVP]]

Karmalax,

You have sent this completely to the wrong newsgroup.

Although it are also not the right ones can you have a change in a VBS
newsgroup or a VB classic one as

microsoft.publi c.VB.generaldis cussions

I hope you have success

Cor

<ka******@gmail .comschreef in bericht
news:11******** *************@h 48g2000cwc.goog legroups.com...

public static string Somme(string T)

{

string text1 = "";

double num5 = Strings.Len(T) + 1;

int num3 = 7;

int num6 = Strings.Len(T);

int num1 = 1;

while (num1 <= num6)

{

double num4 = Strings.Asc(Str ings.Mid(T, num1, 1)) + (num3
- num1);

int num2 = (int) Math.Round((dou ble) ((num4 % 10) + 1));

if (num2 == 0)

{

num2 = 1;

}

num3 = num2 + 5;

num4 = ((long) Math.Round((dou ble) (num4 * num2))) /
((long) (num2 * 2));

num5 = ((long) Math.Round((dou ble) (num5 * num4))) /
((long) num2);

if (num4 < 1)

{

num4 = 4;

}

if (num5 900000)

{

num5 = ((long) Math.Round(num5 )) / ((long)
Math.Round(num4 ));

}

num1++;

}

text1 = Strings.Left(St rings.LTrim(Con version.Str(num 5)) +
"12345678", 8);

text1 = Strings.Right(t ext1, 4) + Strings.Left(te xt1, 4);

num1 = (int) Math.Round((dou ble) (8 -
Conversion.Val( Strings.Mid(T, 1, 1))));

if (num1 < 0)

{

num1 += 9;

}

StringType.MidS tmtStr(ref text1, 1, 1,
Strings.Trim(Co nversion.Str(nu m1)));

num1 = (int) Math.Round((dou ble) (5 -
Conversion.Val( Strings.Mid(T, 6, 1))));

if (num1 < 0)

{

num1 += 9;

}

StringType.MidS tmtStr(ref text1, 6, 1,
Strings.Trim(Co nversion.Str(nu m1)));

num1 = (int) Math.Round((dou ble) (9 -
Conversion.Val( Strings.Mid(tex t1, 2, 1))));

if (num1 < 0)

{

num1 += 9;

}

StringType.MidS tmtStr(ref text1, 4, 1,
Strings.Trim(Co nversion.Str(nu m1)));

num1 = (int) Math.Round((dou ble) (7 -
Conversion.Val( Strings.Mid(tex t1, 3, 1))));

if (num1 < 0)

{

num1 += 9;

}

StringType.MidS tmtStr(ref text1, 8, 1,
Strings.Trim(Co nversion.Str(nu m1)));

num1 = (int) Math.Round((dou ble) (5 -
Conversion.Val( Strings.Mid(tex t1, 5, 1))));

if (num1 < 0)

{

num1 += 9;

}

StringType.MidS tmtStr(ref text1, 7, 1,
Strings.Trim(Co nversion.Str(nu m1)));

return text1;

}

Thanks

[karmalax]

Please accept my apologies.
Thank you
Cor Ligthert [MVP] ha scritto:

Karmalax,

You have sent this completely to the wrong newsgroup.

Although it are also not the right ones can you have a change in a VBS
newsgroup or a VB classic one as

microsoft.publi c.VB.generaldis cussions

I hope you have success

Cor

s

[Cor Ligthert [MVP]]

Karmalax,

Please accept my apologies.
Thank you

Not any need for, it was just to help you to find your solution, which
should not be given here because of your question. It is like to go to a
grocery shop to change a million Dollars to Euros.

It can be done, however in my country the grocery guy can wait that he be
arrested because he probably is helping whitewashing. I don't know the name
in English for that.

Cor

>

Cor Ligthert [MVP] ha scritto:

>Karmalax,

You have sent this completely to the wrong newsgroup.

Although it are also not the right ones can you have a change in a VBS
newsgroup or a VB classic one as

microsoft.publ ic.VB.generaldi scussions

I hope you have success

Cor

s

>

[_AnonCoward]

"Cor Ligthert [MVP]" <no************ @planet.nlwrote in message
news:eg******** ******@TK2MSFTN GP06.phx.gbl...
: Karmalax,
:
: Please accept my apologies.
: Thank you
:
: Not any need for, it was just to help you to find your solution, which
: should not be given here because of your question. It is like to go to
: a grocery shop to change a million Dollars to Euros.
:
: It can be done, however in my country the grocery guy can wait that he be
: arrested because he probably is helping whitewashing. I don't know the
: name in English for that.
"Money Laundering"

[Cor Ligthert [MVP]]

Anon,

Thanx, so obvious.

:-)

Cor

"_AnonCowar d" <ab****@uvwxyz. comschreef in bericht
news:Si******** *********@torna do.southeast.rr .com...

>
"Cor Ligthert [MVP]" <no************ @planet.nlwrote in message
news:eg******** ******@TK2MSFTN GP06.phx.gbl...
: Karmalax,
:
: Please accept my apologies.
: Thank you
:
: Not any need for, it was just to help you to find your solution, which
: should not be given here because of your question. It is like to go to
: a grocery shop to change a million Dollars to Euros.
:
: It can be done, however in my country the grocery guy can wait that he
be
: arrested because he probably is helping whitewashing. I don't know the
: name in English for that.
"Money Laundering"