76
General / Re:¡La Pregunta Del Millón De Dólares!
« en: Marzo 09, 2015, 11:39:11 am »
Aca reportandome para la lista listo hasta para asaltar un banco jeje
Mostrar Mensajes
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
77
Visual Basic 6 / Programa para Carniceria
« en: Marzo 02, 2015, 06:26:41 pm »
Hola, estoy vendiendo a un cliente mi sistema de stock que va usar para carniceria.
El problema que tengo es que el cliente no compra la carne no por unidad, si no una vaca entera y de ese entero se saca
Carnaza de primera
Carnaza de segunda
Puchero
Costilla
etc etc...
Como ustedes harían para registrar el stock en su articulo. El por ejemplo quiere poner compre una vaca tiene 800 kilos, no describe cuanto kilo de primera ni de segunda compro.
Ojala me entiendan...
El problema que tengo es que el cliente no compra la carne no por unidad, si no una vaca entera y de ese entero se saca
Carnaza de primera
Carnaza de segunda
Puchero
Costilla
etc etc...
Como ustedes harían para registrar el stock en su articulo. El por ejemplo quiere poner compre una vaca tiene 800 kilos, no describe cuanto kilo de primera ni de segunda compro.
Ojala me entiendan...
78
Visual Basic 6 / Re:Problemas con Funcion que devuelve Edad (usando datediff)
« en: Febrero 11, 2015, 11:52:12 am »
Aca esta otro ejemplo, este si funciona.
Código: (VB) [Seleccionar]
Function Calcular_Edad(Fecha_Nacimiento As Variant) As Integer
Dim Años As Variant
' comprueba si el valor no es nulo
If IsNull(Fecha_Nacimiento) Then
Calcular_Edad = 0
Exit Function
End If
Años = DateDiff("yyyy", Fecha_Nacimiento, Now)
If Date < DateSerial(Year(Now), Month(Fecha_Nacimiento), Day(Fecha_Nacimiento)) Then
Años = Años - 1
End If
Calcular_Edad = CInt(Años)
End Function
Private Sub Command2_Click()
Dim fecha As Date
fecha = "11/02/1994"
' le pasa la fecha de nacimiento como parámetro
MsgBox Calcular_Edad(fecha), vbInformation, fecha
End Sub
79
Visual Basic 6 / Re:Problemas con Funcion que devuelve Edad (usando datediff)
« en: Febrero 11, 2015, 11:38:59 am »
Yo lo que entiendo ahí es que solo esta restando el año
Ejemplo 2015 - 1994 = 21
Sin importar los meses.
Lo que podes hacer es maquilar o algo asi yo lo hice esta forma no justamente lo que vos queres pero podes probarlos.
En un Timer
Ejemplo 2015 - 1994 = 21
Sin importar los meses.
Lo que podes hacer es maquilar o algo asi yo lo hice esta forma no justamente lo que vos queres pero podes probarlos.
En un Timer
Código: (VB) [Seleccionar]
Private Sub Timer1_Timer()
On Error Resume Next
Dim año As Integer
Dim mes As Integer
Dim dia As Integer
Dim xaño As String
Dim xmes As String
Dim xdia As String
año = Mid$(anosMesesDias(CDate(Text1.Text), Now), 1, 4)
mes = Mid$(anosMesesDias(CDate(Text1.Text), Now), 5, 2)
dia = Mid$(anosMesesDias(CDate(Text1.Text), Now), 7, 2)
If Val(año) <= 0 Then
xaño = ""
Else
xaño = año & " años "
End If
If Val(mes) <= 0 Then
xmes = ""
Else
If Val(mes) > 1 Then
xmes = mes & " meses "
Else
xmes = mes & " mes "
End If
End If
If Val(dia) <= 0 Then
xdia = ""
Else
xdia = dia & " dias"
End If
If xaño = "" And xmes = "" And xdia = "" Then
Command1.Caption = "Algunas Horas..."
Else
Command1.Caption = xaño & xmes & xdia
End If
End Sub
80
Visual Basic 6 / Re:Problemas con Funcion que devuelve Edad (usando datediff)
« en: Febrero 10, 2015, 10:14:15 pm »
Hola, si el DateDif me creo el mismo problema como a vos hace poco esta probando sobre fechas para un reporte encontre esta funcion y me va bien.
Como Usar
Fuente: http://www.ajpdsoft.com/modules.php?name=Foros&file=viewtopic&t=898
Otros Ejemplos.
http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm#fecha-hora
http://es.kioskea.net/forum/affich-194090-calculo-fecha-en-visual-basic
Código: (VB) [Seleccionar]
Option Explicit
Function anosMesesDias(fechaInicio As Date, _
fechaFin As Date) As String
Dim anos, meses, dias, m As Integer
anos = Year(fechaFin) - Year(fechaInicio)
If Month(fechaInicio) > Month(fechaFin) Then
anos = anos - 1
End If
If Month(fechaFin) < Month(fechaInicio) Then
meses = 12 - Month(fechaInicio) + Month(fechaFin)
Else
meses = Month(fechaFin) - Month(fechaInicio)
End If
If Day(fechaFin) < Day(fechaInicio) Then
meses = meses - 1
If Month(fechaFin) = Month(fechaInicio) Then
anos = anos - 1
meses = 11
End If
End If
dias = Day(fechaFin) - Day(fechaInicio)
If dias < 0 Then
m = CInt(Month(fechaFin)) - 1
If m = 0 Then
m = 12
End If
Select Case m
Case 1, 3, 5, 7, 8, 10, 12
dias = 31 + dias
Case 4, 6, 9, 11
dias = 30 + dias
Case 2
If (Year(fechaFin) Mod 4 = 0 And _
Year(fechaFin) Mod 100 <> 0) _
Or Year(fechaFin) Mod 400 = 0 Then
dias = 29 + dias
Else
dias = 28 + dias
End If
End Select
End If
anosMesesDias = CStr(anos) + " años, " + CStr(meses) _
+ " meses, " + CStr(dias) + " días "
End FunctionComo Usar
Código: (VB) [Seleccionar]
Private Sub Command1_Click()
MsgBox anosMesesDias(CDate("01-01-2000"), Now)
End Sub
Fuente: http://www.ajpdsoft.com/modules.php?name=Foros&file=viewtopic&t=898
Otros Ejemplos.
http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm#fecha-hora
http://es.kioskea.net/forum/affich-194090-calculo-fecha-en-visual-basic
81
General / Re:Grupo Whatsapp
« en: Febrero 09, 2015, 08:20:25 pm »
Ahi ya cree, dale amigos animence pue, ya le agregue a Yacosta y a ssccaann43
82
General / Grupo Whatsapp
« en: Febrero 06, 2015, 12:18:11 pm »
Hola, que les parece si tenemos un grupo de whatsapp, para tirar cualquier cosa ahí ya que somos de paises diferentes seria bueno aprender cosas nuevas.
Tiren aca su numero de Whatsapp, por si le interesa yo les agrego al grupo.
Tiren aca su numero de Whatsapp, por si le interesa yo les agrego al grupo.
83
Visual Basic 6 / Re:Pasar codigo de mi programa en visual basic 6.0 a word 2007.
« en: Febrero 05, 2015, 10:22:00 am »
Hola, hay otra solucion amigo no te desesperes, jeje
Screen
http://snag.gy/gsYqI.jpg
Selecciona todo el texto en el Notepad++, despues apretas ALT + c
Te va a salir esta ventanita.
Screen
http://snag.gy/49roB.jpg
Y ahí le pones tu numero inicial, y el incremento que quieres sumar al inicial.
Saludos...
Screen
http://snag.gy/gsYqI.jpg
Selecciona todo el texto en el Notepad++, despues apretas ALT + c
Te va a salir esta ventanita.
Screen
http://snag.gy/49roB.jpg
Y ahí le pones tu numero inicial, y el incremento que quieres sumar al inicial.
Saludos...
84
Visual Basic 6 / Re:Pasar codigo de mi programa en visual basic 6.0 a word 2007.
« en: Febrero 04, 2015, 11:03:25 am »
Encontré otra solución y creo que es la que estas buscando.
Instalas el Notepad++
Link para descargar.
http://notepad-plus-plus.org/
1 - Instala el Notepad++ como cualquier otro programa
2 - Copia tu codigo en el Notepad++
3 - Despues en el Menu Lenguaje del Notepad ++ Elegis V...> VB
4 - Despues en el Menu Plugins del Notepad++ Elegis NppExport y Export to RTF o bien Copy RTF to Clipboard.
5 - Abris con Microsoft Word el que Exportaste con Export RTF, o bien pegas si elegiste Copy RTF to Clipboard
A mi me funciono de lujo asi.
Saludos...
Instalas el Notepad++
Link para descargar.
http://notepad-plus-plus.org/
1 - Instala el Notepad++ como cualquier otro programa
2 - Copia tu codigo en el Notepad++
3 - Despues en el Menu Lenguaje del Notepad ++ Elegis V...> VB
4 - Despues en el Menu Plugins del Notepad++ Elegis NppExport y Export to RTF o bien Copy RTF to Clipboard.
5 - Abris con Microsoft Word el que Exportaste con Export RTF, o bien pegas si elegiste Copy RTF to Clipboard
A mi me funciono de lujo asi.
Saludos...
85
Visual Basic 6 / Re:Pasar codigo de mi programa en visual basic 6.0 a word 2007.
« en: Febrero 04, 2015, 10:30:28 am »
Hola, aca explica como hace con el LibreOffice con el plugins COOoder, hojala te sirva amigo.
http://www.gambas-es.org/viewtopic.php?p=18752
Saludos...
http://www.gambas-es.org/viewtopic.php?p=18752
Saludos...
86
General / Re:Duda al querer comprar un Programa.
« en: Enero 30, 2015, 05:47:28 pm »
Hola, la verdad necesito de este programa por mas que sea que no se pongan en contacto conmigo si lo pago y me dan el serial seria buenisimo.
Aca creo que dice en unos de sus foros.
http://www.miniframe.com/knowledge-base.html?catid=5&kbartid=231
After the purchase is completed:
1. An email (including your original license key) will be sent to us.
2. We will upgrade your license key to your purchased upgrade and send you an upgrade confirmation email.
3. You will need to reactivate your original license key to enjoy the additional seats.
El 3r punto es el que me interesa dice que hay que volver a activar, a activar seguro se refiere a volver a poner el codigo y activarlo desde internet no? sin pagar ya nada.
Aca creo que dice en unos de sus foros.
http://www.miniframe.com/knowledge-base.html?catid=5&kbartid=231
After the purchase is completed:
1. An email (including your original license key) will be sent to us.
2. We will upgrade your license key to your purchased upgrade and send you an upgrade confirmation email.
3. You will need to reactivate your original license key to enjoy the additional seats.
El 3r punto es el que me interesa dice que hay que volver a activar, a activar seguro se refiere a volver a poner el codigo y activarlo desde internet no? sin pagar ya nada.
87
General / Re:¿Alguien usa MalwareBytes?
« en: Enero 29, 2015, 09:04:24 pm »
Si creo que es asi coco, pero los anteriores estaban en VB6
88
General / Re:Duda al querer comprar un Programa.
« en: Enero 28, 2015, 12:49:29 pm »
Es el problema le escribi varios correos pero no responden. 
89
General / Duda al querer comprar un Programa.
« en: Enero 28, 2015, 11:19:30 am »
Hola amigos del foro estoy queriendo comprar este programa SoftXpand Duo Pro para Windows 7, y tengo algunas dudas para comprar.
1 - Al comprar el de 3 user el de 59$ voy a poder crear 3 terminales de windows mas el windows que yo ya tengo antes de comprar con esa compra tendria 3 sesiones o solo 2.
2 - Al comprar si de repente cambio de computadora o por que tuve que formatear la pc por cualquier caso se prodra volver a usar el serial que creo que me van a proveer de donde compre.
3 - Al poner en el carrito como para comprar dice que se puede Añadir un CD de seguridad al pedido por $7.95 USD, Gastos de envío y manipulación aplicables
Este es la pagina del Producto.
http://www.miniframe.com/
1 - Al comprar el de 3 user el de 59$ voy a poder crear 3 terminales de windows mas el windows que yo ya tengo antes de comprar con esa compra tendria 3 sesiones o solo 2.
2 - Al comprar si de repente cambio de computadora o por que tuve que formatear la pc por cualquier caso se prodra volver a usar el serial que creo que me van a proveer de donde compre.
3 - Al poner en el carrito como para comprar dice que se puede Añadir un CD de seguridad al pedido por $7.95 USD, Gastos de envío y manipulación aplicables
Este es la pagina del Producto.
http://www.miniframe.com/
90
General / Re:¿Alguien usa MalwareBytes?
« en: Enero 27, 2015, 04:11:00 pm »
Si esta hecho en vb6, yo la verdad hace mucho sabia que estaba en vb6.
Y se ve que esta poderoso como cualquier antivirus de otro fabricante.
Y se ve que esta poderoso como cualquier antivirus de otro fabricante.