[Resolvido]Trasformar código em Função

Gostaria de transfomar este código em uma função pública, é possivel?




Dim DifFuso As Double, DifFusoX As Date
Dim DifFusoINI As Double, DifFusoINIx As Date
DifFuso = HrDbl("9:00")
DifFusoX = HrStr(DifFuso)

DifFusoINI = HrDbl(Format([txtTimeGMT], "hh:mm"))
DifFusoINIx = HrStr(DifFusoINI)

DifFusoINIx = FormatInterval(DifFusoINIx, "H:MM")
DifFusoX = FormatInterval(DifFusoX, "H:MM")

Dim X As String
Dim Y As String
Dim StrResult As String
X = Left(DifFusoINIx, 5)
Y = Left(DifFusoX, 5)
X = HrDbl(X)
Y = HrDbl(Y)

StrResult = (X - Y)

If Left(StrResult, 1) = "-" Then
StrResult = HrStr(24 + (X - Y))
Me.txtTimeZone = Date - 1 & " " & StrResult
Else:
StrResult = HrStr(X - Y)
Me.txtTimeZone = Date & " " & StrResult

Me.txtDifFusoGMT = "UTC -09:00"
Me.txtLocal = "Alaska"
End If

Cria a função e coloque o código dentro dela. Vejo que tem alguns campos aí. Crie subs para eles, de modo que você possa referenciar essas subs nos campos aonde esses valores forem ficar.

Eu pensei em algo assim:



Public Function TimeFuso(ByVal DifFuso As Variant, txtGMT As Double)
Dim DifFusoX As Date, DifFusoINIx As Date
Dim DifFusoINI As Double

DifFuso = HrDbl(DifFuso)
DifFusoX = HrStr(DifFuso)

DifFusoINI = HrDbl(Format((txtGMT), "hh:mm"))
DifFusoINIx = HrStr(DifFusoINI)

DifFusoINIx = FormatInterval(DifFusoINIx, "H:MM")
DifFusoX = FormatInterval(DifFusoX, "H:MM")

Dim X As String
Dim Y As String
Dim StrResult As String
X = Left(DifFusoINIx, 5)
Y = Left(DifFusoX, 5)
X = HrDbl(X)
Y = HrDbl(Y)

StrResult = (X - Y)

If Left(StrResult, 1) = "-" Then
StrResult = HrStr(24 + (X - Y))
MsgBox StrResult
'Me.txtTimeZone = Date - 1 & " " & StrResult
Else:
StrResult = HrStr(X - Y)
MsgBox StrResult
'Me.txtTimeZone = Date & " " & StrResult
End If


End Function


e para o form:



Dim Temp As Variant
Temp = ("9:00")
Call TimeFuso(Temp, Me.txtTimeGMT)


Onde Temp é um valor pre- estabelecido
o outro e o valor de uma caixa texto no form..


Tendei aplicar assim.. mas deu erro na palavra em vermelho

Se o código ja estava funfando tente mudar a Variavel Difuso para Double

Public Function TimeFuso(ByVal DifFuso As Variant, txtGMT As Double)

para

Public Function TimeFuso(ByVal DifFuso As Double, txtGMT As Double)

Sds,

Ja tentei mas da erro na hora de chama a função no form... tipos incompatíveis..

Posso postar o exemplo para que possam analizar?

Grato

Larga brasa

Experimente clicar na lista na linha que tem Alaska...

Esta é a unica que apliquei o código e esta funcionado..
como são várias linhas pretendia transformar em função para não ficar muito extenso o módulo do form...


No módulo do form no case Alaska... logo abaixo esta o mesmo case adicionado1(este é o que funciona)

Alaska - Executa função no módulo BasHoras
Alaska1 - Executa código utilizando módulos do BasHoras
'

Para testaer com o que funciona é necessário desbilitar o case alaska e no outro case retirar o 1

Shttp://dl.dropbox.com/u/26441349/GMT.rar

Alguma novidade por aqui?

Saudações

Novidades por aqui??

Grato

Estou realmente precisando de ajuda aqui

Sub SetaFuso(strHora as String,strTimeGMT as string,FrmTimeZone as Form,CtltxtTimeZone as Control,CtltxtDifFusoGMT as Control,CtltxtLocal as Control
Dim DifFuso As Double, DifFusoX As Date
Dim DifFusoINI As Double, DifFusoINIx As Date
DifFuso = HrDbl(strHora)
DifFusoX = HrStr(DifFuso)

DifFusoINI = HrDbl(Format(strTimeGMT, "hh:mm"))
DifFusoINIx = HrStr(DifFusoINI)

DifFusoINIx = FormatInterval(DifFusoINIx, "H:MM")
DifFusoX = FormatInterval(DifFusoX, "H:MM")

Dim X As String
Dim Y As String
Dim StrResult As String
X = Left(DifFusoINIx, 5)
Y = Left(DifFusoX, 5)
X = HrDbl(X)
Y = HrDbl(Y)

StrResult = (X - Y)

If Left(StrResult, 1) = "-" Then
StrResult = HrStr(24 + (X - Y))
Me.FrmTimeZone!CtltxtTimeZone = Date - 1 & " " & StrResult
Else:
StrResult = HrStr(X - Y)
Me.CtltxtTimeZone = Date & " " & StrResult

Me.CtltxtDifFusoGMT = "UTC -09:00"
Me.CtltxtLocal = "Alaska"
End If
End Sub

Caro Alexandre, não estou conseguindo aplicar...

Poderia aplicá-lo neste exemplo que mandei ai acima..

*** Esta parte não vai na função

Me.CtltxtDifFusoGMT = "UTC -09:00"
Me.CtltxtLocal = "Alaska"


Obrigado

Boa tarde, Hary

No exemplo acima, esses valores estão atribuídos directamente, não em função de nenhuma variável.
Ora, os valores atribuídos directamente mantêm-se. Se são variáveis, porquê no código que apresentou não serem variáveis?

Tudo bem.. então é so exclui-los dai, pois em cada case de fuso tem esta definicão

Eu tenho que chamar a função no case de cada Fuso..

Como aplico?

Amigão.. Funcionou assim:


Sub SetaFuso(strHora As String, strTimeGMT As String)
Dim DifFuso As Double, DifFusoX As Date
Dim DifFusoINI As Double, DifFusoINIx As Date
DifFuso = HrDbl(strHora)
DifFusoX = HrStr(DifFuso)

DifFusoINI = HrDbl(Format(strTimeGMT, "hh:mm"))
DifFusoINIx = HrStr(DifFusoINI)

DifFusoINIx = FormatInterval(DifFusoINIx, "H:MM")
DifFusoX = FormatInterval(DifFusoX, "H:MM")

Dim X As String
Dim Y As String
Dim StrResult As String
X = Left(DifFusoINIx, 5)
Y = Left(DifFusoX, 5)
X = HrDbl(X)
Y = HrDbl(Y)

StrResult = (X - Y)

If Left(StrResult, 1) = "-" Then
StrResult = HrStr(24 + (X - Y))
Me.txtTimeZone = Date - 1 & " " & StrResult
Else:
StrResult = HrStr(X - Y)
Me.txtTimeZone = Date & " " & StrResult

End If
End Sub


Obrigado

Boa tarde amigo Alexandre...

Resolvido a função para quando a diferença de fuso é negativa (-1:00,-2:00, etc.)
Estou agora tentando para quando a diferença é positiva...

O que ocorre é que quando faço a operação de diminuição (x-y) o resultado é correto
Mas quando somo (x+y) ela adiciona o valor de Y na casa decimal

Ex.: Se x = 15,3 e y = y me retonar o resultado de: 15,31 quando deveria ser 16,3

Como resolver isso?



Sub SetaFusoPositivo(strHora As String, strTimeGMT As String)
Dim DifFuso As Double, DifFusoX As Date
Dim DifFusoINI As Double, DifFusoINIx As Date
DifFuso = HrDbl(strHora)
DifFusoX = HrStr(DifFuso)

DifFusoINI = HrDbl(Format(strTimeGMT, "hh:mm"))
DifFusoINIx = HrStr(DifFusoINI)

DifFusoINIx = FormatInterval(DifFusoINIx, "H:MM")
DifFusoX = FormatInterval(DifFusoX, "H:MM")

Dim X As String
Dim Y As String
Dim StrResultPositivo As String
X = Left(DifFusoINIx, 5)
Y = Left(DifFusoX, 5)
X = HrDbl(X)
Y = HrDbl(Y)
MsgBox X
MsgBox Y


StrResultPositivo = (X + Y)

'StrResult = HrStr(24 + (X - Y))
'Me.txtTimeZone = Date - 1 & " " & StrResult

StrResultPositivo = HrStr(X + Y)
Me.txtTimeZone = Date & " " & StrResult

End Sub


Grato

Boa tarde, Hary

Está a somar strings!
utilize StrResultPositivo = (CDbl(X) + CDbl(Y))

Mas porque deu certo na diminuição???

Porque aqui deu certo??

StrResult = (X - Y)

If Left(StrResult, 1) = "-" Then
StrResult = HrStr(24 + (X - Y))
Me.txtTimeZone = Date - 1 & " " & StrResult
Else:
StrResult = HrStr(X - Y)

Olha só amigão... o que não entendo.. é que

Se nesta situação diminuo, dá certo

Dim X As String
Dim Y As String
Dim StrResultPositivo As String
X = Left(DifFusoINIx, 5)
Y = Left(DifFusoX, 5)
X = HrDbl(X)
Y = HrDbl(Y)
MsgBox X
MsgBox Y

MsgBox X - Y

StrResultPositivo = HrStr(X - Y)


Se nesta situação somo, não dá certo

Dim X As String
Dim Y As String
Dim StrResultPositivo As String
X = Left(DifFusoINIx, 5)
Y = Left(DifFusoX, 5)
X = HrDbl(X)
Y = HrDbl(Y)
MsgBox X
MsgBox Y

MsgBox X + Y

StrResultPositivo = HrStr(X + Y)

Hary,
Isso é disforme. De qualquer forma, o + é utilizado para concatenação, enquanto o - tem apenas a função matemática e de hífen.
Cumprimentos,

Para somar no vb e no vba, deves usar a instrução Val:

MsgBox Val(X) + Val(Y)

Teste se é isso mesmo.

Apliquei Criquio...

e numa soma de X= 18,95 + Y = 1

Me retornou Valor = 19

E agora?

Devia retornar 19,95

Alexandre.. apliquei o que me recomendou.. e a soma saiu correta.. porem a minha função que converte um Formato Double em um String de horas.. não aceitou a variável



StrResultPositivo = (CDbl(X) + CDbl(Y))

StrResultPositivo = HrStr(StrResultPositivo)

Me.txtTimeZone = Date & " " & StrResultPositivo


Esta é a função


Public Function HrStr(dblHora As Double) As String
'Pega um valor numérico e o converte para Horas/Minutos
'Ex: 123,5 = "123:30"
'Ex: 23,9833333333333 = "23:59"

Dim strHoras As String
Dim strMinutos As String

'Pega as horas (parte inteira)
strHoras = CStr(Fix(dblHora))

'Pega os minutos
strMinutos = Format$(Abs((dblHora - Fix(dblHora)) * 60), "00")

'Verifica se o total de minutos é 60
If strMinutos = "60" Then
strMinutos = "00"
strHoras = CStr(CDbl(strHoras) + 1)
End If

'Concatena os dois
HrStr = strHoras & ":" & strMinutos

End Function

Oh Hary

Esta é do F1
StrResultPositivo = HrStr(CStr(StrResultPositivo))

Ainda dá tipos incompatíveis...

Amigão.. resolvi assim..

Modifiquei o tipo da variável

Dim StrResultPositivo As Variant

Deu certo

Grato

Caros Alexandre e Criquio, agradecendo pela sempre paciência e ajuda... Este tópico está totalmente sanado..

Segue a função para horários positivos..


Sub SetaFusoPositivo(strHora As String, strTimeGMT As String)
Dim DifFuso As Double, DifFusoX As Date
Dim DifFusoINI As Double, DifFusoINIx As Date
DifFuso = HrDbl(strHora)
DifFusoX = HrStr(DifFuso)

DifFusoINI = HrDbl(Format(strTimeGMT, "hh:mm"))
DifFusoINIx = HrStr(DifFusoINI)

DifFusoINIx = FormatInterval(DifFusoINIx, "H:MM")
DifFusoX = FormatInterval(DifFusoX, "H:MM")

Dim X As String
Dim Y As String
Dim StrResultPositivo As String
X = Left(DifFusoINIx, 5)
Y = Left(DifFusoX, 5)
X = HrDbl(X)
Y = HrDbl(Y)

StrResultPositivo = (CDbl(X) + CDbl(Y))
If Left(StrResultPositivo, 2) >= 24 Then
StrResultPositivo = HrStr((StrResultPositivo) - 24)
Me.txtTimeZone = Date + 1 & " " & StrResultPositivo
Else
StrResultPositivo = HrStr(CDbl(StrResultPositivo))
Me.txtTimeZone = Date & " " & StrResultPositivo
End If
End Sub