CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede angelenglen Nybegynder
27. november 2014 - 09:36 Der er 14 kommentarer og
1 løsning

Oversæt lille C# funktion til VB.Net

Jeg har brug for nedenstående C# funktion i VB.Net, men det er ikke lykkedes mig at oversætte den selv.

Nogen der er frisk på at hjælpe? :-)

        /// <summary>
        /// Checks the check digits of a Danish VAT number.
        /// </summary>
        /// <param name="vat">The vat.</param>
        /// <returns></returns>
        private static bool ValidateVAT_DK(String vat)
        {
            var i = 0;
            var total = new[] { 2, 7, 6, 5, 4, 3, 2, 1 }.Sum(m => GetInt(vat[i++]) * m);

            // The remainder should be 0 for it to be valid..
            return total % 11 == 0;
        }
Avatar billede arne_v Ekspert
27. november 2014 - 14:47 #1
http://www.developerfusion.com/tools/convert/csharp-to-vb/ giver:

Private Shared Function ValidateVAT_DK(vat As [String]) As Boolean
    Dim i = 0
    Dim total = New () {2, 7, 6, 5, 4, 3, _
        2, 1}.Sum(Function(m) GetInt(vat(System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1))) * m)

    ' The remainder should be 0 for it to be valid..
    Return total Mod 11 Is 0
End Function

som man saa kan pynte til:

Private Shared Function ValidateVAT_DK(vat As String) As Boolean
    Dim i = 0
    Dim total = New () {2, 7, 6, 5, 4, 3, 2, 1}.Sum(Function(m) GetInt(vat(i)) * m)
        i = i + 1
    ' The remainder should be 0 for it to be valid..
    Return total Mod 11 Is 0
End Function

Utestet!!
Avatar billede angelenglen Nybegynder
27. november 2014 - 15:02 #2
Det har jeg prøvet, det virker desværre ikke :-(

Overraskende, for den plejer at være god.

I linje 3 brokker den sig over "New ()", siger "Type expected".

Hvis jeg ændrer det til "New Integer()", får jeg næste fejl:
"GetInt(vat(i))" - GetInt is not declared.

Den brokker sig desuden i sidste linje over "11 is 0", som dog let er fixet med "11 = 0".

Dvs. følgende kode:
    Private Shared Function ValidateVAT_DK(vat As String) As Boolean
        Dim i = 0
        Dim total = New Integer() {2, 7, 6, 5, 4, 3, 2, 1}.Sum(Function(m) GetInt(vat(i)) * m)
        i = i + 1
        ' The remainder should be 0 for it to be valid..
        Return total Mod 11 = 0
    End Function


Men stadig problem med GetInt, der åbenbart ikke kendes af VB.Net?
Avatar billede angelenglen Nybegynder
27. november 2014 - 15:03 #3
PS. beklager at jeg ikke inkluderede mit eget fejlede forsøg i selve spørgsmålet, det burde jeg have gjort :-(
Avatar billede arne_v Ekspert
27. november 2014 - 15:17 #4
proev med Integer.Parse
Avatar billede angelenglen Nybegynder
27. november 2014 - 15:39 #5
Om det er Integer.Parse der er et forkert valg, eller om det er den funktion der var kilde for oversættelsen der fejler, ved jeg ikke helt, men det går ikke super godt :-(

Den skulle validere CVR numre, men den fejler gyldige numre.
Jeg tog nogle tilfældige numre fra CVR.dk og lavede en lille konsol applikation, men samtlige numre fejler.

Jeg lavede en kopi, der returnerer tallet, frem for blot Boolean værdien for om det er lig med 0.

Det er baseret på information fra følgende side:
http://erhvervsstyrelsen.dk/modulus_11

Hvor mon det går galt?

Output:
13453845:
False
8

29813124:
False
5

32310370:
False
2

27842453:
False
5

28948980:
False
5

29664218:
False
5

11111111:
False
8


Kode:
Module Module1

    Sub Main()
        Dim numbers() As String = New String() {"13453845", "29813124", "32310370", "27842453", "28948980", "29664218, "11111111""}
        For Each number As String In numbers
            Console.WriteLine(number & ":")
            Console.WriteLine(ValidateVAT_DK(number))
            Console.WriteLine(ValidateVAT_DK2(number))
            Console.WriteLine()
        Next
        Console.ReadLine()
    End Sub

    Public Function ValidateVAT_DK(vat As String) As Boolean
        Dim i = 0
        Dim total = New Integer() {2, 7, 6, 5, 4, 3, 2, 1}.Sum(Function(m) Integer.Parse(vat(i)) * m)
        i = i + 1
        ' The remainder should be 0 for it to be valid..
        Return total Mod 11 = 0
    End Function

    Public Function ValidateVAT_DK2(vat As String) As Integer
        Dim i = 0
        Dim total = New Integer() {2, 7, 6, 5, 4, 3, 2, 1}.Sum(Function(m) Integer.Parse(vat(i)) * m)
        i = i + 1
        ' The remainder should be 0 for it to be valid..
        Return total Mod 11
    End Function

End Module
Avatar billede angelenglen Nybegynder
27. november 2014 - 15:43 #6
Jeg lagde lige mærke til at array'et nok burde være:
{2, 7, 6, 5, 4, 3, 2}


frem for:
{2, 7, 6, 5, 4, 3, 2, 1}


Men jeg prøvede at ændre, og det løste ikke problemet.
De er stadig False alle sammen.
Værdierne fra ValidateVAT_DK2 er dog selvfølgelig anderledes, men ikke 0 som de burde være.

Kode:
Module Module1

    Sub Main()
        Dim numbers() As String = New String() {"13453845", "29813124", "32310370", "27842453", "28948980", "29664218", "11111111"}
        For Each number As String In numbers
            Console.WriteLine(number & ":")
            Console.WriteLine(ValidateVAT_DK(number))
            Console.WriteLine(ValidateVAT_DK2(number))
            Console.WriteLine()
        Next
        Console.ReadLine()
    End Sub

    Public Function ValidateVAT_DK(vat As String) As Boolean
        Dim i = 0
        Dim total = New Integer() {2, 7, 6, 5, 4, 3, 2}.Sum(Function(m) Integer.Parse(vat(i)) * m)
        i = i + 1
        ' The remainder should be 0 for it to be valid..
        Return total Mod 11 = 0
    End Function

    Public Function ValidateVAT_DK2(vat As String) As Integer
        Dim i = 0
        Dim total = New Integer() {2, 7, 6, 5, 4, 3, 2}.Sum(Function(m) Integer.Parse(vat(i)) * m)
        i = i + 1
        ' The remainder should be 0 for it to be valid..
        Return total Mod 11
    End Function

End Module
Avatar billede angelenglen Nybegynder
27. november 2014 - 15:45 #7
Glemte output:
13453845:
False
7

29813124:
False
3

32310370:
False
10

27842453:
False
3

28948980:
False
3

29664218:
False
3

11111111:
False
7
Avatar billede angelenglen Nybegynder
27. november 2014 - 15:46 #8
Hmm jeg ser nu desuden at der burde være 1 med til sidst i array'et, så se venligst bort fra det :-)
Avatar billede angelenglen Nybegynder
27. november 2014 - 16:00 #9
Jeg endte med at skrive det om.
Måske ikke den kønneste kode i verden, men det virker :-)

Kode:
Public Function ValidateVAT_DK(vat As String) As Boolean
        Try
            Dim vaegt() As Integer = New Integer() {2, 7, 6, 5, 4, 3, 2, 1}
            Dim vatnr(vat.Length) As Integer
            Dim total As Integer = 0

            For i As Integer = 0 To vat.Length - 1
                vatnr(i) = vat.Substring(i, 1)
            Next i

            For i As Integer = 0 To 7
                total = total + vatnr(i) * vaegt(i)
            Next

            Return total Mod 11 = 0

        Catch

            Return False

        End Try
    End Function
Avatar billede angelenglen Nybegynder
27. november 2014 - 16:00 #10
Din Integer.Parse fik mig dog på rette spor, så jeg vil gerne give dig points alligevel, hvis du lægger et svar :-)
Avatar billede angelenglen Nybegynder
27. november 2014 - 16:17 #11
Udvidede den til at kunne validere P-numre også, nu jeg var i gang.

Kode:
    Public Function ValidateVAT_DK(vat As String, Optional CheckPNumber As Boolean = False) As Boolean
        Try
            Dim vaegt() As Integer
            If Not CheckPNumber Then
                ' vaegt er altid den samme ved CVR numre: (http://erhvervsstyrelsen.dk/modulus_11)
                vaegt = New Integer() {2, 7, 6, 5, 4, 3, 2, 1}
            Else
                ' vaegt kan variere ved P-numre, eftersom numre lavere end 1.006.959.421 er oprettet med forkert vaegt.
                If IsNumeric(vat) AndAlso Integer.Parse(vat) <= 1006959421 Then
                    vaegt = New Integer() {1, 5, 6, 7, 3, 6, 4, 8, 9, 1}
                Else
                    vaegt = New Integer() {4, 3, 2, 7, 6, 5, 4, 3, 2, 1}
                End If
            End If

            Dim vatnr(vat.Length) As Integer
            For i As Integer = 0 To vat.Length - 1
                vatnr(i) = Integer.Parse(vat.Substring(i, 1))
            Next i

            Dim total As Integer = 0
            For i As Integer = 0 To vaegt.Length - 1
                total = total + vatnr(i) * vaegt(i)
            Next
            Return total Mod 11 = 0

        Catch
            Return False
        End Try
    End Function
Avatar billede arne_v Ekspert
28. november 2014 - 01:23 #12
i = i + 1

er anbragt forkert.

    Public Function ValidateVAT_DK(vat As String) As Boolean
        Dim i = 0
        Dim total = New Integer() {2, 7, 6, 5, 4, 3, 2, 1}.Sum(Function(m)
                                                                  Dim res As Integer = Integer.Parse(vat(i)) * m
                                                                  i = i + 1
                                                                  Return res
                                                              End Function)
        ' The remainder should be 0 for it to be valid..
        Return total Mod 11 = 0
    End Function
Avatar billede arne_v Ekspert
28. november 2014 - 01:24 #13

Imports System.Linq

Module Program
    Sub Main()
        Dim numbers() As String = New String() {"13453845", "29813124", "32310370", "27842453", "28948980", "29664218", "11111111"}
        For Each number As String In numbers
            Console.WriteLine(number & ":")
            Console.WriteLine(ValidateVAT_DK(number))
            Console.WriteLine(ValidateVAT_DK_Base(number))
            Console.WriteLine()
        Next
        Console.ReadLine()
    End Sub

    Public Function ValidateVAT_DK(vat As String) As Boolean
        Dim i = 0
        Dim total = New Integer() {2, 7, 6, 5, 4, 3, 2, 1}.Sum(Function(m)
                                                                  Dim res As Integer = Integer.Parse(vat(i)) * m
                                                                  i = i + 1
                                                                  Return res
                                                              End Function)
        ' The remainder should be 0 for it to be valid..
        Return total Mod 11 = 0
    End Function

 
    Public Function ValidateVAT_DK_Base(vat As String) As Boolean
        Try
            Dim vaegt() As Integer = New Integer() {2, 7, 6, 5, 4, 3, 2, 1}
            Dim vatnr(vat.Length) As Integer
            Dim total As Integer = 0

            For i As Integer = 0 To vat.Length - 1
                vatnr(i) = vat.Substring(i, 1)
            Next i

            For i As Integer = 0 To 7
                total = total + vatnr(i) * vaegt(i)
            Next

            Return total Mod 11 = 0

        Catch

            Return False

        End Try
    End Function   
End Module
Avatar billede arne_v Ekspert
28. november 2014 - 01:24 #14
og et svar
Avatar billede angelenglen Nybegynder
28. november 2014 - 08:28 #15
Ah det giver god mening med den i = i + 1 inde i funktionen.

Jeg har dog valgt at pakke funktionaliteten ind i en try/catch, så den returnerer fejl hvis eksempelvis der sendes et for kort tal, eller der sendes ren tekst der ikke kan parses til integer osv.

Jeg kopierede den desuden til en P-nummer validator.

System.Linq er ikke nødvendig at include.

    ''' <summary>Foretager modulus 11 tjek af nummeret, for at se om det er et gyldigt CVR-nummer.</summary>
    ''' <param name="vat">Værdien der skal tjekkes.</param>
    Public Function ValidateVAT_DK(vat As String) As Boolean
        Try
            Dim i = 0
            Dim total = New Integer() {2, 7, 6, 5, 4, 3, 2, 1}.Sum(Function(m)
                                                                       Dim res As Integer = Integer.Parse(vat(i)) * m
                                                                       i = i + 1
                                                                       Return res
                                                                   End Function)
            ' The remainder should be 0 for it to be valid.
            Return total Mod 11 = 0
        Catch ex As Exception
            Return False
        End Try
    End Function

    ''' <summary>Foretager modulus 11 tjek af nummeret, for at se om det er et gyldigt P-nummer.</summary>
    ''' <param name="pnr">Værdien der skal tjekkes.</param>
    Public Function ValidateP_DK(pnr As String) As Boolean
        Try
            Dim i = 0
            Dim vaegt() As Integer = New Integer() {4, 3, 2, 7, 6, 5, 4, 3, 2, 1}
            If Integer.Parse(pnr) <= 1006959421 Then vaegt = {1, 5, 6, 7, 3, 6, 4, 8, 9, 1}
            Dim total = vaegt.Sum(Function(m)
                                      Dim res As Integer = Integer.Parse(pnr(i)) * m
                                      i = i + 1
                                      Return res
                                  End Function)
            ' The remainder should be 0 for it to be valid.
            Return total Mod 11 = 0
        Catch ex As Exception
            Return False
        End Try
    End Function


Mange tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra ASP.NET kategorien

Titel Indlæg Oprettet Seneste aktivitet
valgte i checkboks og comboboks opdater gui og backend Af keepy i ASP.NET 0 01/10/202318:39 -
Webservice Af SommerFyr i ASP.NET 19 11/05/202313:43 31/05/202315:08
ASP:Image og JPG/PDF Af TV47 i ASP.NET 4 25/03/202318:49 31/03/202310:24
www til non-www og HTTPS Af KOH i ASP.NET 2 16/03/202312:31 22/03/202310:19
Window.Open og passing af parameter Af TV47 i ASP.NET 1 14/07/202215:22 20/08/202213:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
21/1222:16 Er "OneDrive" et "Must" ? Koster det penge ? Af Ikke-ekspert i Windows
21/1216:42 Windows Media Player - Hvilken version (Versioner) er gode til at afspille og kopiere ? Af Ikke-ekspert i Musik & videoafspillere
21/1212:54 Fejlfinding: Årsag til blank skærm og ingen BIOS fra Lenovo 90BH Af Mads i PC
21/1209:42 Outlook - kan ikke kopiere opgaver Af barth i Office & Kontorpakker
21/1200:26 Genhøre telefonsamtale Af anonym24 i Chat & Messaging
White papers
Flere white papers »


Premium
Teaser billede
Omsætning er steget med 100 millioner kroner på to år: Microsoft danske udviklingscenter har udbetalt milliarder i udbytte
Læs mere »
CISO Sarah Aalborg forlader Tivoli: Her er hendes planer for fremtiden
Sådan vil Domstolsstyrelsen nedbringe legacy og teknisk gæld: Her er den nye plan
Amerikansk spil-firma skal levere eSim-program til Forsvaret: Soldater skal lære at håndtere kampvogne på computer
Se alle »
Computerworld
Teaser billede
Dansk verdenshit fra 1992 bliver til ny international tv-serie
Læs mere »
Mord på it-profil truer San Franciscos status som tech-mekka: Byen er forvandlet til en zombie-by
Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed
Din MitID-app er netop blevet opdateret - her er de nye sikkerhedstiltag
Se alle »
CIO
Teaser billede
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Læs mere »
Software-selskabernes prisstigninger får nu danske virksomheder til at søge mod open source
AI er et falmende buzzword: Lad mig fluks dele en god og en dårlig nyhed
Region Sjælland vil skrive evighedskontrakt med Oracle-specialister: Står klar med 150 millioner kroner
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
Managed Detection & Response: Forsvar din virksomhed mod cybertrusler døgnet rundt
Læs mere »
Cyberangreb bliver mere kostbare: Er du forberedt?
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Derfor kræver AI, cloud og sikkerhed et stærkere netværk
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »