Ola galera eu uso esse codigo para saber quantos dias tem cada dia da semana num determinado periodo. Eu exibo os dados de cadastro de funcionarios num listview que contem um campo com o dia da semana tipo DIA_FOLGA = Segunda como é que eu faço para colocar o resultado de segunda  num campo do listview tipo segunda = 4, como exibir esse resultado assim que eu carregar o formulário ?

 

Public Sub datas()
    Dim Domingo As Integer
    Dim Segunda As Integer
    Dim Terça As Integer
    Dim Quarta As Integer
    Dim Quinta As Integer
    Dim Sexta As Integer
    Dim Sabado As Integer
    Dim I As Integer
    Dim dias As Integer
    Dim Dia_da_Semana As Integer
   
    Dim Data_Inicial As Date
    Dim Data_Final As Date
   
    Data_Inicial = Txtdata_inicial.text
    Data_Final = txtdata_final.text
    
    dias = DateDiff("d", Data_Inicial, Data_Final) + 1
    For I = 1 To dias
        Dia_da_Semana = Weekday(Data_Inicial)
        If Dia_da_Semana = 1 Then
            Domingo = Domingo + 1
        Else
            If Dia_da_Semana = 2 Then
                Segunda = Segunda + 1
            Else
                If Dia_da_Semana = 3 Then
                    Terça = Terça + 1
                Else
                    If Dia_da_Semana = 4 Then
                        Quarta = Quarta + 1
                    Else
                        If Dia_da_Semana = 5 Then
                            Quinta = Quinta + 1
                        Else
                            If Dia_da_Semana = 6 Then
                                Sexta = Sexta + 1
                            Else
                                If Dia_da_Semana = 7 Then
                                    Sabado = Sabado + 1
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
        Data_Inicial = DateAdd("d", Data_Inicial, 1)
    Next I
  

Desde ja agradeço

Um listview tem a APARÊNCIA de um FlexGrid, mas funciona de maneira bem diferente. Primeiro, temos o listitems que é a primeira coluna (mais ou menos como a coluna 0 de um flexgrid) as outras colunas são SubItems.

 

Listview1.Listitems.Add , , "Texto na primeira coluna"

Desculpe Kerplunk eu não expliquei direito exibir os dados no listview eu sei o problema é como é que eu faço para o programa ir a cada registro e identificar no campo DIA_FOLGA qual dia que se é sexta se é sabado e assim por diante e fazer a camparação no codigo que postei para ver qual que se identifica com ele tipo:

se DIA_FOLGA = quarta "Da sub data" ele faça algo no casa exibir no campo do listview o quantidade de quarta feira.

Espero que eu tenha conseguido explicar

Fico muito grato