Graymalkin

Valeu Anderson! Ótimas referências! Abraços, Graymalkin

Como o "número" inicialmente vai ser uma string, basta você trocar a "," pelo "." e depois utilizar a função atof() para converter (ela faz parte da stdlib.h). Abraços, Graymalkin

Aí vai um exemplo com TimeSpan que simula aquele primeiro caso que você apresentou: Dim t1 As New TimeSpan(7, 0, 0) 'O cara entrou as 7h Dim t2 As New TimeSpan(10, 32, 0) 'O cara saiu as 10h32min Dim diferença1 As TimeSpan = t2.Subtract(t1) 'Subtrai Dim t3 As New TimeSpan(12, 0, 0) 'Entra novamente as 12h Dim t4 As New TimeSpan(14, 50, 0) 'Sai as 14h50min Dim diferença2 As TimeSpan = t4.Subtract(t3) 'Subtrai Dim t5 As New TimeSpan(16, 12, 0) 'Entra novamente as 16h12min Dim t6 As New TimeSpan(19, 52, 0) 'Sai novamente as 19h52min Dim diferença3 As TimeSpan = t6.Subtract(t5) 'Subtrai Dim t7 As New TimeSpan(21, 0, 0) 'Entra novamente as 21h Dim t8 As New TimeSpan(23, 48, 0) 'Sai as 23h48min Dim diferença4 As TimeSpan = t8.Subtract(t7) 'Subtrai MessageBox.Show(diferença1.ToString()) MessageBox.Show(diferença2.ToString()) MessageBox.Show(diferença3.ToString()) MessageBox.Show(diferença4.ToString()) Dim soma As TimeSpan = diferença1.Add(diferença2.Add(diferença3.Add(diferença4))) 'Total de horas trabalhadas Dim máximo As New TimeSpan(8, 0, 0) 'Máximo são 8 horas If soma.CompareTo(máximo) > 0 Then 'Se a soma for maior do que 8 horas MessageBox.Show(máximo.ToString()) Else MessageBox.Show(soma.ToString()) End If No caso, como a soma dá 12h50min, você verá o 8h (por causa do If que testa isso). Certo? Graymalkin

Exatamente, uma lista cujos elementos são vetores de objects. Hehehe... não vou não... tenho que adiantar o projeto aqui! Até, Grraymalkin

Por que você não faz as contas utilizando os métodos de DateTime (aliás, por que você não utiliza objetos DateTime aí?)? Abraços, Graymalkin

Pô cara, eu é que estou quase desistindo desse projeto... hehehehe (brincadeira). Em relação ao seu problema, acho que você está precisando de uma ArrayList: Dim matrizParams As New ArrayList matrizParams.Add(New Object() {"strValor1", intValor2, sqldbtypeValor3, parameterDirectionValor4}) matrizParams.Add(New Object() {"strValor1", intValor2, sqldbtypeValor3, parameterDirectionValor4}) MessageBox.Show(matrizParams(0)(0)) 'strValor1 (0) do primeiro item (0) MessageBox.Show(matrizParams(1)(1)) 'intValor2 (1) do segundo item (1) MessageBox.Show(matrizParams(1)(2)) 'sqldbtypeValor3 (2) do segundo item (1) E você também poderia criar uma função com quantidade de parâmetros variável para poder preencher a ArrayList: Public Function Preenche(ByRef mP As ArrayList, ByVal ParamArray objetos() As Object) mP.Add(objetos) End Function Depois bastaria utilizá-la assim: Dim matrizParams As New ArrayList Preenche(matrizParams, "strValor1", intValor2, sqldbtypeValor3, parameterDirectionValor4) Preenche(matrizParams, "strValor2", intValor2, sqldbtypeValor3, parameterDirectionValor4) MessageBox.Show(matrizParams(0)(0)) 'strValor1 (0) do primeiro item (0) MessageBox.Show(matrizParams(1)(1)) 'intValor2 (1) do segundo item (1) MessageBox.Show(matrizParams(1)(2)) 'sqldbtypeValor3 (2) do segundo item (1) Seria isso? Abraços, Graymalkin

Claro que consegue. Querer é poder e o problema aqui é que você não quer (não quer se dar ao trabalho de *aprender*, como você bem disse em outro tópico). Abraços, Graymalkin

Troque a abertura do banco de dados e da tabela para ADO. Como eu disse antes, aqui no fórum você encontra exemplos destas coisas. Abraços, Graymalkin

Sim, tem. Por que, ao invés de perguntar, você não simplesmente verificou isso por si mesmo utilizando a "Pesquisa" do fórum??? Abraços, Graymalkin

IsNull() retorna um boolean indicando se o campo é nulo (True) ou não (False). Ou seja, você vai ter que testar se o campo é nulo e se ele for você deverá imprimir algo em seu lugar (ou não, dependendo do que você quer). Iif() é bastante útil nesse caso. Abraços, Graymalkin

Não adianta que vai ser extremamente improvável você conseguir fazer isso na base do "tá quente, tá frio" (ou seja, no chute). Pesquise sobre como utilizar o método PSet e lembre-se das aulas de Matemática sobre "Plano Cartesiano" (pergunte àquele-que-sabe-tudo, ao supra-sumo do conhecimento humano, ao conhecedor de todos os segredos: o Google). Abraços, Graymalkin

Sim, você pode fazer isso com o Winsock. Dê uma lida neste tutorial: http://www.desenvolvedores.net/modules.php...=article&sid=27 Abraços, Graymalkin

Os dados da DataGrid vêm de algum lugar? Se for de um banco de dados, você não poderia utilizar uma SQL para obter essa soma? Abraços, Graymalkin

Meio contraditório, não? Já fiz um exemplo aqui para comprovar se o que eu disse realmente era válido, e realmente é, portanto você tem a dica aí. Basta agora pesquisar sobre o que eu falei e descobrir como fazer. Parece crueldade, mas só se dá valor àquilo que aprendemos por nós mesmos. Abraços, Graymalkin

Em VB.NET não deu erro. Creio que você esteja utilizando o Delphi 2005, certo? Abraços, Graymalkin

Não entendi... sua consulta abrindo um recordset não está ágil? Se você estiver utilizando DAO, pode utilizar a rotina CompactDatabase(). Abraços, Grgaymalkin

Existem vários tópicos aqui com exemplos disso. Dê uma procurada. Abraços, Graymalkin

Só a dica mesmo? Bom, você pode utilizar os eventos MouseDown e MouseUp para pegar as posições X e Y iniciais e X e Y finais, respectivamente. Depois você pode utilizar o método PSet da Picture para pintar os pontos que formarão o quadrado (mais provavelmente um retângulo, já que acredito ser difícil que alguém vá conseguir fazer um quadrado com o mouse). Abraços, Graymalkin

Concordo com o armagedon (sobre precisar de uma apostila)! Quanto ao código, dê uma olhada na minha assinatura. Abraços, Graymalkin

Não sei se entendi bem o que você "precisa abstrair" nesse caso. O que, exatamente, você quer diminuir (ou tornar mais prático) no código acima? Abraços, Graymalkin

Ambas as tabelas são iguais? Se quiser, pode passar para o meu e-mail: wap@openlink.com.br Abraços, Graymalkin

Ok, agora não tem mais desculpa: todos os meus 4011 posts têm o código. Abraços, Graymalkin

Eu já passei, é só você procurar! Abraços, Graymalkin

Está logo ali em cima e tem ele em um post da primeira página deste tópico. Bom, vou dormir porque eu só estava esperando acabar de gravar um DVD aqui. Abraços, Graymalkin

Não estou te xingando, mas sim te dando um conselho. Além disso, já passei o código no outro post. Abraços, Graymalkin