Contar carácter Visual Base 6

Estava procurando uma forma de contar a quantidade de um determinado caracter no Visual Base, e não achei uma função interna no VB6 que fazia isso.

Então essa função faz isso muito fácil.

Private Function ContaCaracter(wString As String, wCaracter As String) As Integer

Dim I As Integer, wQtd As Integer
For I = 1 To Len(wString)
If Mid(wString, I, 1) = wCaracter Then
wQtd = wQtd + 1
End If
Next
ContaCaracter = wQtd
End Function

Exemplo que como chamar ela.

Dim dtTeste As String
Dim intgbs As Integer
dtTeste = “01/02/2012″

intgbs = ContaCaracter(dtTeste, “/”)

no final a variável “intgbs” ficara preenchido com “2″.

Ideia para entrega de produto…

Depois desta conversa abaixo com uma atentente de uma loja Varejista, que vendo produtos online, tive uma ideia, ou seja, todos os produtos comprado na internet deveria vir com a data prevista para entrega estampado bem grande, para que as empresas transportadora não fiquem com o produto acumulados por muito tempo em seu estoque, e não deixar o cliente na mão. Poderia ate organiza-los por data de entrega para saber o quanto de entrega tem de ser realizado em um determinado dia.

20:06:35 LUANA_GOMES diz:
Olá, Gilmar Borges. Por favor, anote o número do protocolo deste atendimento: 7432xxxxx. Como posso ajudá-lo(a)?

20:06:44 LUANA_GOMES diz:
Boa noite.
Em que posso ajuda-lo ?

20:07:05 Gilmar Borges diz:
Ola, é a respeito da entrega do meu produto que ate hoje nao chegou.

20:07:49 Gilmar Borges diz:
primeira mensaguem que recebi do ponto frio “Você receberá seu(s) produto(s) até o dia 09/11/2011.”

20:07:58 LUANA_GOMES diz:
nforme o CPF cadastrado ou pedido, por favor

20:08:20 Gilmar Borges diz:
12345678900

20:08:55 LUANA_GOMES diz:
Por favor, aguarde um momento enquanto verifico.

20:12:51 LUANA_GOMES diz:
Agradeço por ter aguardado e desculpe a demora

20:13:18 LUANA_GOMES diz:
Referente a sua entrega foi encaminhado para o setor responsavel para ser verificado e entrarão em contato em até 2 dias úteis

20:13:55 Gilmar Borges diz:
isso foi dito no dia 11/11/2011

20:14:31 Gilmar Borges diz:
ou segunda feira e hoje não é contado como dia util?

20:15:59 Gilmar Borges diz:
esse 2 dias uteis vai ser contado a partir de que data, amanha 17 e 18?

20:16:40 LUANA_GOMES diz:
Entendo senhor Gilmar referente a sua entrega o setor responsavel verificará e entrará em contato com o senhor

20:16:55 LUANA_GOMES diz:
Posso ajudá-lo em algo mais?

20:17:53 Gilmar Borges diz:
não chegou à ajudar muito não, ou seja o que vou ter de fazer e so esperar mesmo.

20:18:38 Gilmar Borges diz:
eu gostaria que você pegasse um pouco mais firme com as empresa que presta serviço de entrega, para você a trabalharem um pouco melhor.

20:18:53 LUANA_GOMES diz:
Entrarão em contato com o senhor

20:19:33 LUANA_GOMES diz:
Será verificado juntamente com a transportadora para que a sua entrega seja finalizada o mais breve possivel

20:19:40 Gilmar Borges diz:
e outra ideia… vocês colocar a data prevista para ser entregue escrita bem grande na embalaguem para que eles possam ver ate que dia deve ser entregue.

20:21:04 Gilmar Borges diz:
ta ok, muito obrigado.

20:21:19 LUANA_GOMES diz:
Peço desculpas em nome do PontoFrio.com pelo transtorno causado, o setor responsavel vericará e entrará em contato com o senhor

20:21:23 LUANA_GOMES diz:
Algo mais ?

20:22:11 LUANA_GOMES diz:
Por falta de comunicação encerramos o contato

20:22:13 LUANA_GOMES diz:
O Pontofrio.com agradece o contato, tenha uma boa noite!

20:22:15 LUANA_GOMES diz:
Conversa encerrada.
Gilmar Borges, agradecemos seu contato.

20:22:19 Gilmar Borges diz:
Sua mensagem não pode ser enviada.

Programador?

Fim do 13° Salário, Sera?

APROVADO O FIM DO 13° SALÁRIO

So estou Repassando um email que recebi  de um tal diney_caracas@hotmail.com

BOMBA!!!

Aprovado fim 13º salário

Fim do 13º já foi aprovado na Câmara – falta o Senado

 Enquanto a gente se distrai com Olimpíadas e Copa do Mundo, o Congresso continua votando outros assuntos de nosso interesse e a gente nem percebe….. vejam essa: Fim do 13º já foi aprovado na Câmara (PFL, PMDB, PPB, PPS, PSDB ) Para conhecimento, O fim do 13º salário já foi aprovado na Câmara para alteração do art. 618 da CLT. Já foi aprovado na Câmara e encaminhado para o Senado. Provavelmente será votado após as eleições, é claro…. A maioria dos deputados federais que estão neste momento tentando aprovar no Senado o Fim do 13º salário, inclusive da  Licença de Férias (pagas em 10 vezes) são do PFL e PSDB. As próprias mordomias e as vergonhosas ajudas de custo de todo tipo que recebem, eles não cortam. Conheça a cara dos safados que votaram a favor deste Projeto em todo Brasil. Por favor, repassem para o maior número de pessoas possíveis, afinal eles são candidatos fortes nas próximas eleições:
01- INOCÊNCIO OLIVEIRA – PFL
02- JOEL DE HOLLANDA – PFL
03- JOSÉ MENDONÇA BEZERRA – PFL

04- OSVALDO COELHO – PFL

06- SALATIEL CARVALHO – PMDB

07- PEDRO CORRÊA – PPB

08- RICARDO FIÚZA – PPB

09- SEVERINO CAVALCANTE – PPB

10- CLEMENTINO COELHO – PPS

11- CARLOS BATATA – PSDB

12- JOÃO COLAÇO – PSDB

13- JOSÉ MÚCIO MONTEIRO – PSDB

DIVULGUEM!!! Agora, enquanto isso, eles distraem a gente com referendos ridículos!!!! ! E, nas votações que realmente importam, não nos cabe participar?? ?? Cadê os caras pintadas???? Povo que derruba presidente?? ???? Gente é hora de acordar antes que seja tarde d+!!!!!!!!!!
NINGUÉM É TÃO FORTE QUANTO TODOS NÓS JUNTOS!!!!!! !!
Divulguem!!! E não fique só reclamando do nosso país!!!! .eu acho.

Novo firmware 6.60 PRO-B8 para PSP

Mais um novidado PRO. O qual é uma excelente custom firmware para o PSP. Abaixo você pode conferir o changelog.

Para instalar, basta copiar para seu PSP e rodar via XMB.

Download firmware 6.60 PRO-B8 para PSP site oficial.

Net Movies Irresponsabilidade

Comprei uma tv com NetCast da LG, achei uma ótima idéia a poder alugar os filme online através da Tv. O que fiz foi assinar logo a Net Movies, ai minha surpresa, a minha cidade não e atendida pelo servido de entrega de mídia, por mim tudo bem eu só quero ver os filmes online mesmo. Só que tem um porem, os filme são todos antigos, e não tem tantos filme assim. no maximo 1000 filmes online.

Depois disso, o que fiz?

Cancelei uai.

Mas não foi cancelado, recebi uma notificação que foi cobrado 9.99 do meu cartão de credito.

Que coisa feia, por favor alguém seja responsável e cancele minha assinatura, ja se passaram 11 dias apos eu solicitar o cancelamento da minha assinatura, e não aconteceu nada.

seja responsavel NetMovies.

Yahoo mail beta

Nova cara, yahoo mail está rapido e não poderia deixar de faltar e integração com redes sociais como o Twitter e o Facebook.

Assinar com iTunes podcast para ouvir

Abra o Itunes, vá no Menu Avançado e depois clique em Assinar Podcast… :

Na janela a seguir, adicione os link abaixo um de cada vez, dê um OK:

Cafe brasil podCast http://podcast.lucianopires.com.br/feed/

Guanabara Cast http://www.guanabara.info/guanacast-aac.xml

Jovem Nerd http://feed.nerdcast.com.br/

LagCast http://lagcast.com.br/podcast

MRG http://feeds.feedburner.com/matandorobosgigantes

Meia LuaX http://meialuax.com/feed

MonaLisa de Pijamas http://www.monalisadepijamas.com.br/?feed=podcast

Nerdrops http://www.nerdrops.com/category/podcast/nerdrops/feed/rss/

OrionCast http://www.oriongames.com.br/xml/orioncast.rss

Papo de Gordo http://feeds.feedburner.com/papodegordo

NewsInside http://feeds.feedburner.com/podcastni

Radio Fobia http://feeds.feedburner.com/radiofobia_itunes

Rapadura Cast http://www.cinemacomrapadura.com.br/rapaduracast/rapaduracast.xml

Tosco Chanchada http://feeds2.feedburner.com/toscochanchada

Wergeeks http://feeds.feedburner.com/wergeeks/podcast

De Volta para o Futuro game, referencia de Livro.

Referencia ao livro 1984 – George Orwell, de explodir a cabeça.

 

Comprei o jogo, depois de uns 20 minutos de jogo me deparo com essa perola.

De Volta para o Futuro game, Promoção Blu-Ray

Noticia bombástica, no dia 26 Outubro será lançado a nova Box em Blu-Ray de De Volta para o Futuro Trilogia, e para quem comprar esta box, adivinha o que vai ganhar, alem de um dos melhores filmes Nerd da atualizada, vai poder fazer Download do primeiro capitulo do Jogo “De Volta para o Futuro“, de Grátis, e sem paga nada. Só para lembrar, o jogo terá 5 capítulos.

A promoção consiste em divulgar o novo Blu-ray do Filme, e terá um código especial, para ter acesso ao download do primeiro capitulo do jogo.

 

Eu quero jogar, olha so as imagens.

Aproveitando o Gancho, Michael J. Fox refez o traler de De Volta para o Futuro.

http://www.youtube.com/watch?v=uM6Ms621898

.

E olha só, ficou igualzinho ao traler de 1985.

Site official http://www.bttfmovie.com/ de comemoraçao as 25 anos.

Por JiraspioM.