Cita de: ignorantev1.1 en 6 Febrero 2013, 22:19 PMNo, esa es otra diferente, la que menciona se llama L.S.D. y el artista es "Hallucinogen
No se llama "Hallucinogen", creo se llama "Total eclipse", de "Blade Runner"
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: ignorantev1.1 en 6 Febrero 2013, 22:19 PMNo, esa es otra diferente, la que menciona se llama L.S.D. y el artista es "Hallucinogen
No se llama "Hallucinogen", creo se llama "Total eclipse", de "Blade Runner"
Function robEuler1() As Long
Dim i As Integer, suma As Long
For i = 0 To 999
If i Mod 3 = 0 Or i Mod 5 = 0 Then
suma = suma + i
End If
Next i
robEuler1 = suma
End Function
Function robEuler2() As Long
Dim f1 As Long, f2 As Long, contador As Long, resultado As Long, suma As Long
f1 = 0
f2 = 1
resultado = f1 + f2
Do While suma < 4000000
f1 = f2 + resultado
resultado = f2
f2 = f1
contador = contador + 1
If f2 Mod 2 = 0 Then
suma = suma + f2
End If
Loop
robEuler2 = suma
End Function
CitarSeguro que abarca los bytes de un tipo Variant?
Private Sub Form_Load()
Dim x, y As Long
x = 4613732
y = 4613732
MsgBox LenB(x) & " bytes"
MsgBox LenB(y) & " bytes"
End Sub
Cita de: MaLkAvIaN_NeT en 28 Junio 2012, 04:27 AMPor el momento solo aprendizaje y uso personal, tal vez lo implemente en algún software mas complejo en un futuro...
le vas a dar una utilidad en especial?, o es solamente por conocimiento.