none
Ordenar Contenido de TextBox RRS feed

  • Pregunta

  • Hola, en un Textbox tengo el siguiente texto que voy agregando de un DTpicker:

    Lo que quierio es ordenar segun el dia de la seman, lunes, martes, miercoles, jueves etc

    martes, 9 de julio de 2013 18:55

Todas las respuestas

  • Puedes usar esta función:

    Function Ordenar(Dias as string) as string

    Dim aDias() as String
    DIm nDia as Integer, n as Integer

    aDias = split(Dias, ",")

    For n = 1 to 7
        For nDia = LBound(aDias) to UBound(aDias)
              If DiaNumero(Left(aDias(nDia),3)) = n Then
                   Ordenar = Ordenar & aDias(MinPos) & ", "
              End If
        Next nDia
    Next  n

    End Function

    Function DiaNumero(Dia as string) as Integer
       Select case Dia
            Case "lun" : DiaNumero = 1
            Case "mar" : DiaNumero = 2
            Case "mie" : DiaNumero = 3
            Case "jue" : DiaNumero = 4
            Case "vie" : DiaNumero = 5
            Case "sab" : DiaNumero = 6
            Case "dom" : DiaNumero = 7
       End Select
    End Function

    Como ves, la función Ordenar recibe la cadena de texto con todos los días separados por comas y la devuelve ordenada por días.


    Saludos, Javier J

    • Propuesto como respuesta Pedro Ávila jueves, 11 de julio de 2013 4:47
    miércoles, 10 de julio de 2013 7:44