[Resolvido]Ordernar Coluna do ListView do Tipo hora "hh:mm"

Boa tarde.

Alguem sabe como ordenar uma coluna do listview que esta no formato "00:00" ?

Estou a utilizar o exemplo do Criquio
http://maximoaccess.forumeiros.com/t9843-resolvidoclassificando-colunas-listview

as outras colunas do tipo string e Number funcionar beleza mas a hora esta ordenando da seguinte forma
1:00
11:30
12:00
2:00
3:00
...
ao inves de
1:00
2:00
3:00
11:30
12:00

Ja tentei como string,number,date e nada
LstView_HrExtraRelatorio.ColumnHeaders.Add(, , "Folgaveis", 1100, lvwColumnCenter).Tag = "String"
LstView_HrExtraRelatorio.ColumnHeaders.Add(, , "Folgaveis", 1100, lvwColumnCenter).Tag = "Date"
LstView_HrExtraRelatorio.ColumnHeaders.Add(, , "Folgaveis", 1100, lvwColumnCenter).Tag = "Number"


A coluna da consulta que me retorna em horas é a seguinte
Int(Sum(DateDiff('n',0,Hrx_Folgaveis))/60) & ':' & Format(Sum(DateDiff('n',0,Hrx_Folgaveis)) Mod 60,'00') AS Hrx_Folg

Saudações.

Boa noite, Rafael
Ordene pela parte antes dos dois pontos e pela parte após os dois pontos, ou pelo valor sem dois pontos

Boa tarde Alenxandre!
teria como me dar uma dica de como ficaria ?
Se eu conseguir ordenar somente a primeira parte antes dos : já seria útil pra mim


Obrigado

Indique o código utilizado

Assim que chegar em casa posto o código


Obrigado !

Segue em exemplo que elaborei baseado no meu problema
As tres primeira colunas (do tipo string) ordena beleza mas nao consigo ordenar as colunas do tipo horas(HH:MM)

https://dl.dropbox.com/u/19875180/ListView.rar

Saudacoes

Boa noite,
Dá erro ao abrir. Coloque tudo na mesma bd e teste antes de disponibilizar

Boa noite Alexandre!

Aqui nao havia apresentado erro
mas de qualquer forma segue o arquivo somente em um.

https://dl.dropbox.com/u/19875180/Ordenar_LstVw_Horas.accdb

Obrigado

Veja o erro apresentado, mesmo agora

Tente agora
https://dl.dropbox.com/u/19875180/Ordenar_LstVw_Horas.accdb

saudacoes!

dá erro porque não o commom controls 6.0
mas explique onde tem o código para ordenação

Carrego a List

Código:


    Set lvxObj = Me.LstView_HrExtraRelatorio.Object
    LstView_HrExtraRelatorio.ColumnHeaders.Clear 'limpa as colunas
    LstView_HrExtraRelatorio.ListItems.Clear 'limpa os items das ListView

'adiciona as colunas
  LstView_HrExtraRelatorio.ColumnHeaders.Add , , "ID", 0, lvwColumnLeft 'texto da coluna, medida da coluna, alinhamento à esquerda
    LstView_HrExtraRelatorio.ColumnHeaders.Add(, , "Supervisão", 1850, lvwColumnLeft).Tag = "String"
    LstView_HrExtraRelatorio.ColumnHeaders.Add(, , "Funcionario", 3000, lvwColumnLeft).Tag = "String"
    LstView_HrExtraRelatorio.ColumnHeaders.Add(, , "Função", 2000, lvwColumnCenter).Tag = "String"
    LstView_HrExtraRelatorio.ColumnHeaders.Add(, , "Folgaveis", 1100, lvwColumnCenter).Tag = "Date"
    LstView_HrExtraRelatorio.ColumnHeaders.Add(, , "Não Folgaveis", 1200, lvwColumnCenter).Tag = "Date"
    LstView_HrExtraRelatorio.ColumnHeaders.Add(, , "Total Hrs Extra", 1250, lvwColumnCenter).Tag = "Date"
    LstView_HrExtraRelatorio.ColumnHeaders.Add(, , "Compensadas", 1200, lvwColumnCenter).Tag = "Date"
    LstView_HrExtraRelatorio.ColumnHeaders.Add(, , "Saldo", 1100, lvwColumnCenter).Tag = "Date"
    LstView_HrExtraRelatorio.View = lvwReport

E Ordeno...

Código:

On Error GoTo err_handle

    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    'Variáveis
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Dim i As Integer
        i = ColumnHeader.Index - 1
       
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ' Inicializa o controle de imagens (Este controle está no form e permite icones em BMP
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        lvxObj.ColumnHeaderIcons = Nothing
        lvxObj.ColumnHeaderIcons = Me.axImageList.Object
   
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ' Ativa  classificação no cabeçalho da coluna
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        lvxObj.Sorted = True
        lvxObj.SortKey = i
       
        'executar a classificação e atribuir os ícones
        If lvxObj.SortOrder = lvwAscending Then
            lvxObj.SortOrder = lvwDescending
            ColumnHeader.Icon = "Sort_ZA"  'aplica o ícone ao cabeçalho da coluna
        ElseIf lvxObj.SortOrder = lvwDescending Then
            lvxObj.SortOrder = lvwAscending
            ColumnHeader.Icon = "Sort_AZ"  'aplica o ícone ao cabeçalho da coluna
        End If
        'Atualiza
        lvxObj.Refresh
   
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ' Tratamento de Erro
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
err_handle:
    Select Case Err.Number
        Case 0
        'ignora, não e um erro
        Case Else
    MsgBox "Err: LstView_HrExtraRelatorio" & vbCrLf & Err.Description, vbCritical, Err.Number
    End Select


tente carregar sem separador na hora
Comando = "SELECT Tbl_Hora_Extra.Hrx_Supervisao, Tbl_Funcionarios.NOME, Tbl_Funcionarios.ID_FUNCIONARIO, Tbl_Hora_Extra.Hrx_funcao, " _
& "Int(Sum(DateDiff('n',0,Hrx_Folgaveis))/60) & Format(Sum(DateDiff('n',0,Hrx_Folgaveis)) Mod 60,'00') AS Hrx_Folg, " _
& "Int(Sum(DateDiff('n',0,[Hrx_110_120]))/60) & Format(Sum(DateDiff('n',0,[Hrx_110_120])) Mod 60,'00') AS Hrx_NaoFolg," _
& "Int(((Sum(DateDiff('n',0,Hrx_Folgaveis)))+ Sum(DateDiff('n',0,[Hrx_110_120])))/60) & Format(((Sum(DateDiff('n',0,Hrx_Folgaveis)))+ Sum(DateDiff('n',0,[Hrx_110_120]))) Mod 60,'00') as Total_Hrs_Extra," _
& "a.Hrs_Compesadas, Int((((Sum(DateDiff('n',0,Hrx_Folgaveis)))+(Sum(DateDiff('n',0,[Hrx_110_120]))))-Compensadas_Minutos)/60)" _
& "& Format((((Sum(DateDiff('n',0,Hrx_Folgaveis)))+Int(Sum(DateDiff('n',0,[Hrx_110_120]))))-Compensadas_Minutos) Mod 60,'00') AS Saldo, " _
& "a.Compensadas_Minutos FROM (Tbl_Funcionarios LEFT JOIN (SELECT a.Hrx_ID_Funcionario, Int(Sum(DateDiff('n',0,[Hrx_Comp_Tempo]))/60)" _
& "& Format(Sum(DateDiff('n',0,[Hrx_Comp_Tempo]))Mod 60,'00') AS Hrs_Compesadas,Int(Sum(DateDiff('n',0,[Hrx_Comp_Tempo])) )as Compensadas_Minutos " _
& " FROM Tbl_Hrx_Compensadas AS a WHERE (Format(a.Hrx_Comp_Data,'mmmm')='" & CBox_Mes & "') GROUP BY a.Hrx_ID_Funcionario) AS a ON Tbl_Funcionarios.ID_FUNCIONARIO = a.Hrx_ID_Funcionario) INNER JOIN Tbl_Hora_Extra ON Tbl_Funcionarios.ID_FUNCIONARIO = Tbl_Hora_Extra.Hrx_ID_Funcionario WHERE (((Tbl_Hora_Extra.HrExtra_ID) > 0))"

Infelizmente nao deu,

Tentei sem os ":" , tentei ao inves disso colocar somente "," tentei sem virgula tipo ao inves de 6:00 na list apareceu 600 mas mesmo assim nao ordenou correto.


Saudacoes !

Alexandre nen acredito que era tao simples (risos)


mas resolvi da seguinte forma

Hrx_Folg = Format((CDate(rst.Fields("Hrx_Folg").Value)), "hh:nn")


Convert o meu tipo de dados de string para data e funcionou


Muitissimo obrigado pela sua paciencia e ajuda

Contei vitoria antes da horas (Risos)

Mas estou tendo o seguinte problema...

Quando a hora é maior ou igual a 24:00 da erro tipos incompatives por eu estar usando CDate.


Alguem tem alguma sugestao ?

Hrx_Folg = rst.Fields("Hrx_Folg")

If (Hrx_Folg) = ":" Then
li.SubItems(4) = ""
Else
li.SubItems(4) = Format(CDate(Hrx_Folg), "hh:nn")
li.ListSubItems.Item(4).ForeColor = vbRed
li.ListSubItems.Item(4).Bold = True
End If

Ops Desculpa mas ja resolvi(A Principio)
Tirei o CDate e so formatei no formato "hh:nn"

Hrx_Folg = rst.Fields("Hrx_Folg")

If (Hrx_Folg) = ":" Then
li.SubItems(4) = ""
Else
li.SubItems(4) = Format((Hrx_Folg), "hh:nn")
li.ListSubItems.Item(4).ForeColor = vbRed
li.ListSubItems.Item(4).Bold = True
End If


Saudacoes !