Início
Convidado Qui 21 Jul 2011, 12:07 amAlguem sabe faze a conversão de um pequeno código VB.net em VBA?
Grato
Grato
[Resolvido]VB Net em VBA
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Posta o bruto aí para a gente ver.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Convidado- Convidado
Ei-lo!
Public Class Tester
Public Shared Sub Main
Dim phaseDay As Double
Dim result As String
phaseDay = MoonPhase ( Now.ToUniversalTime )
result = "UTC is now: " & _
Now.ToUniversalTime.ToString ( "u" ) & vbNewLine & vbNewLine
If ( phaseDay < 0 ) Then
result &= "Approx days until new moon: " & _
( -phaseDay ) .ToString ( "F1" )
Else
result &= "Approx days since new moon: " & _
phaseDay.ToString ( "F1" )
End If
Console.WriteLine ( result )
End Sub
Public Shared Function MoonPhase ( ByVal dateUtc As Date ) As Double
Dim days As Double = dateUtc.Subtract ( # 1 / 1 / 1600 # ) .TotalDays
Dim cycles As Double = days * 0.03386319 - 12.5
Return Math.IEEERemainder ( cycles, 1.0 ) * 29.53059
End Function
End Class
Public Class Tester
Public Shared Sub Main
Dim phaseDay As Double
Dim result As String
phaseDay = MoonPhase ( Now.ToUniversalTime )
result = "UTC is now: " & _
Now.ToUniversalTime.ToString ( "u" ) & vbNewLine & vbNewLine
If ( phaseDay < 0 ) Then
result &= "Approx days until new moon: " & _
( -phaseDay ) .ToString ( "F1" )
Else
result &= "Approx days since new moon: " & _
phaseDay.ToString ( "F1" )
End If
Console.WriteLine ( result )
End Sub
Public Shared Function MoonPhase ( ByVal dateUtc As Date ) As Double
Dim days As Double = dateUtc.Subtract ( # 1 / 1 / 1600 # ) .TotalDays
Dim cycles As Double = days * 0.03386319 - 12.5
Return Math.IEEERemainder ( cycles, 1.0 ) * 29.53059
End Function
End Class
Convidado- Convidado
Darei por encerrado este pois encontrei outro código que me atende..
Depois postarei o exemplo no repositório..
Grato
Depois postarei o exemplo no repositório..
Grato
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Uai, o tópico tinha descido, eu não o vi mais 
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Convidado- Convidado
De boa.. encontrei um código em VB e consegui adaptá-lo...
Saudações
Saudações
Tópicos semelhantes
» [Resolvido]ao lancar se turno ja existir na data atual (já estava resolvido, mas parou de funfar a funçao?!?)
» [Resolvido]Resolvido Combinar dados de subformulário em caixa de listagem
» [Resolvido]Concatenando DMax no critério de DLookup Problema resolvido
» [Resolvido]resolvido! Como atualizar um campo num subformulario
» [Resolvido]select não lista todos os dados[RESOLVIDO]
» [Resolvido]Resolvido Combinar dados de subformulário em caixa de listagem
» [Resolvido]Concatenando DMax no critério de DLookup Problema resolvido
» [Resolvido]resolvido! Como atualizar um campo num subformulario
» [Resolvido]select não lista todos os dados[RESOLVIDO]