Aflæsning af Windows decimaltegn

Jeg ved desværre ikke, hvordan man kan aflæse denne opsætning direlte,men du kan jo afgøre det således:

Hvis VB er sat op til decimalkomma så er round(1,2)=1 og
round(1.2)=1
Hvis VB er til decimalpunktum går det omvendt.

Jeg kludrede: decimalkomma:  Round(1.2)=12 Round(1,2)=1
              decimalpunktum:Round(1.2)=1  Round(1,2)=12

kan du ikke bare soerge for at brugeren ikke maa skrive , eller . i din form?

qooky> Nu kan det jo være, at man skal hente et decimaltal fra brugeren, og så skal der jo være harmoni mellem program og bruger mht notation.

Maaske er det mig der har misforstaaet det, men han har et indtastningsfelt hvori der skal skrives et tal. Han kan i det soerge for, at hvis brugeren skriver ,(eller . hvis det er det han vaelger), saa kan han advare om at tal skrives med .(eller ,) Paa den maade kommer der vel fin "harmoni" mellem bruger/program.

Det kan være han ikke ved hvordan den maskine hans program ender med at køre i vil fortolke tallet 1,2.
I England vil dette tal nok opfattes som 12.
Hán kunne selvfølgelig selv foretage omdannelsen af et "tekst-tal" til et tal, men det ville jo være rart at slippe for.

Ahh ja, det er mig der er soevnig her. Jeg forstaar problemstillingen nu.

Når jeg bruger Round(1,2) tolker VB ',' til Round(1, 2) - altså '1' afrundet til 2 decimaler, så den virker ikke umiddelbart anvendelig?

Jeg tror at have fundet en brugbar - omend ikke elegant - variant:

Opret Text1 på hovedformen og giv den værdien '1.2' og tjek udtrykket Round(Text1) = 1. Hvis dette er sandt (1=1), anvender maskinen '.' som decimaladskiller og hvis det er falsk (12=1), anvender maskinen ',' som adskiller. Feltet skjules med Text1.Visible = False.

Her er en anden variant, der benytter konvertering til typen Single:
udsagnet CSng("1,2") < 2 er sandt med  decimalkomma og falsk, hvis der benyttes decimalpunktum.
Du behøver vel ikke at have et særligt skjult felt. Kan du ikke blot have en globalvariabel DecimalKomma af typen boolean, der initialiseres til at have værdien
CSng("1,2") < 2 ?

men tak for point.

Du har helt ret - det skjulte felt er helt overflødigt!! Tak for løsningen - jeg har bakset utrolig meget med at afdække en brugers evt. brug af forkert decimaladskiller, da man jo kan komme til at gemme helt vilde værdier, hvis man bruger '.' og flere decimaler.