Posts on Twitter:

- Nous recrutons actuellement pour 2 CDI H/F ! Les postes ⤵️ ➡️ ➡️ système et réseaux Dans les villes de et .







Is your important data in a spreadsheet? Co-Development for spreadsheet-to-database conversions, #C# Call 0800 246 566




For Professional, affordable software development or modifications from the experts #C# Call 0800 246 566




Lost or fallen out with your original developer, need your software upgrading #C# Call 0800 246 566




Data stuck in a spreadsheet? Co-Development for spreadsheet-to-database conversions, #C# Call 0800 246 566




Professional, affordable software development or modifications from the experts #C# Call 0800 246 566







Professional, affordable software development or modifications from the experts #C# Call 0800 246 566







Lost or fallen out with your original developer, need your software upgrading #C# Call 0800 246 566







Is your important data in a spreadsheet? Co-Development for spreadsheet-to-database conversions, #C# Call 0800 246 566




For Professional, affordable software development or modifications from the experts #C# Call 0800 246 566




Data stuck in a spreadsheet? Co-Development for spreadsheet-to-database conversions, #C# Call 0800 246 566




Professional, affordable software development or modifications from the experts #C# Call 0800 246 566







Lost or fallen out with your original developer, need your software upgrading #C# Call 0800 246 566







For Professional, affordable software development or modifications from the experts #C# Call 0800 246 566



Posts on Tumblr:

Sac de noeud avant le weekend
Private Function getTypeComptageEtVersionUtilisationFromTableName(tableName As String) As TypeVersionUtilisationTypeComptage
    Dim separator() As String = {" "}
    Dim vUetTc() As String = tableName.Split(separator, StringSplitOptions.RemoveEmptyEntries)

    'TypeComptageManager.Current.GetTypeComptages()
    Dim entVersionUtil As IList(Of TypeVersionUtilisation) = TypeVersionUtilisationManager.Current.GetTypeVersionUtilisations()
    Dim entVUTC As IList(Of TypeVersionUtilisationTypeComptage) = TypeVersionUtilisationTypeComptageManager.Current.GetTypeVersionUtilisationTypeComptages()
    Dim index As Integer = vUetTc.Length - 1
    Dim selectedVUTC As IList(Of TypeVersionUtilisationTypeComptage) = entVUTC

    Dim temp As String = String.Empty
    For i As Integer = index To 0 Step -1
        temp = vUetTc(i) + temp
        Dim vu As TypeVersionUtilisation = entVersionUtil.Where(Function(k) k.Libelle = temp).FirstOrDefault()
        If vu IsNot Nothing Then
            selectedVUTC = entVUTC.Where(Function(k) k.TypeVersionUtilisationCode = vu.Code.Trim).ToList
            index = i - 1
            Exit For
        End If
    Next

    Dim tempTypeComptage As String = String.Empty
    For j As Integer = index To 0 Step -1
        tempTypeComptage = vUetTc(j) + separator(0) + tempTypeComptage
    Next

    Dim tmp As TypeVersionUtilisationTypeComptage = selectedVUTC.Where(Function(vutc) vutc.TypeComptage.LibelleFichier.ToUpper = tempTypeComptage.Trim.ToUpper).FirstOrDefault()
    Return tmp

    Throw New NotImplementedException
End Function

Envoyé par Mermich.

Le dev poli du vendredi !
#Region " Méthodes privées "
    Public Function GetSomethingForTest(ByVal test As String) As String
        Return "Va te faire foutre"
    End Function
#End Region

Envoyé par Mermich.

Generate random number based on start integer and end integer and number or digits (includes trailing zeros)

    Public Function GenerateRandomNumber(ByVal startInt As Integer, ByVal endInt As Integer, ByVal digits As Integer) As String

        Dim rn As New Random

        Dim a As New StringBuilder

        Dim number As Integer = rn.Next(startInt, endInt)

        If digits > 0 Then

            For i As Integer = 0 To digits - 1

                a.Append(“0”)

            Next

        End If

        Return number.ToString(a.ToString)

    End Function