Pegar a string "/" na função MID

[LeoAmorim]

Bom primeiramente queria já dar meus parabéns ao site que está ajudando muito nessa minha iniciação !

Começando:

Estou no primeiro módulo de um curso técnico de informática, portanto não sei muito de programação, e a nota de AC(Aplicativos Computacionais) desse primeiro módulo é fazer um projeto em Excel que utiliza VBA.

Não vou explicar o problema todo senão acho que irá ficar cansativo e acho que não vem ao caso, resumindo eu preciso que uma variável minha(no caso abaixo "b") inicie na data 01/01(primeiro de janeiro) do ano que a pessoa ta usando o programa.

Meu primeiro problema:

Declarei a váriavel e tentei atribuir a data a ela:

Dim b as Date

b = 1 / 1 / 2009

mas desse jeito o sistema pega um horário, e fica assim na váriavel b quando colocado mouse por cima b=00:00:43 então eu pensei, bom vou ter que fazer de um jeito mais dificil... Vou pegar a data do sistema, usar a função Mid e ir reduzindo a data até ser 1 e 1 o mid do dia e do mês respectivamente, só que nesse código que eu fiz, eu necessito que a função MID pegue a "/" pois o local é diferente dependendo da data ( Exemplo:"1/2/2009" e "10/10/2009"). E a função Mid quando deveria retornar "/" , ela retorna 0, vou postar o código:

Dim ajuda(1 To 8) As String
Dim posicao As Integer
Dim k, k2 As String
Dim f As String
Dim b As Date
Dim x, z As Integer

b = Date

Do While k <> "1" Or k2 <> "1"

z = 1
x = 1
Do While f <> "/"
f = Val(Mid$(b, x, 1))

If f <> "/" Then
ajuda(z) = f
z = z + 1
End If

If f = "/" Then
posicao = x
teste = x
End If

x = x + 1
Loop

posicao = posicao + 1

Do While g <> "/"
g = Val(Mid$(b, posicao, 1))

If g <> "/" Then
ajuda(z) = g
z = z + 1
End If

If g = "/" Then
teste2 = posicao
End If

posicao = posicao + 1

Loop

If teste = 3 Then
k = ajuda(1) & ajuda(2)
End If

If teste = 2 Then
k = ajuda(1)
End If

If teste2 = 4 Then
k2 = ajuda(2)
End If

If teste2 = 5 And teste = 2 Then
k2 = ajuda(2) & ajuda(3)
End If

If teste2 = 5 And teste = 3 Then
k2 = ajuda(3)
End If

If teste2 = 6 Then
k2 = ajuda(5)
End If

b = b - 1
Loop

Obs: Sou iniciante em programação e em vba. E esse código ta dentro de uma Sub que tem mais códigos que eu acho que não interessariam em nada, pois esse é o primeiro código e o erro acontece no "ajuda(z)=f" porque a função Mid não ta retornando "/" e sim 0, dai nunca termina o "Do While".

Bom, alguma dúvida sobre o código pergunte que eu venho esclarecer.... se puderem me ajudar arrumando meu código ou dando uma sugestão de como eu resolvo esse problema, ficaria grato.

Abraços.

Editado Julho 6, 2009 por Jonathan Queiroz
Adcionar tag's (Jonathan)

[Jonathan Queiroz]

Tente assim:

Dim b as Date

b = #1/1/2009#