ftornero

Tienes que tener una IP fija en la oficina, un router con la configuración NAT direccionada a la IP del servidor (Windows 2000 server o algo parecido) y un Firewall que te cagas porque te van a entrar en el servidor hasta los romanos. Ten cuidado...

Toma la función. Te la pase antes pero se corto por el límite de espacio en la respuesta. Saludos Private Function redondearmas(iNumero As Double) As Integer redondearmas = Mid$(iNumero - 0.0001, 1, InStr(iNumero - 0.0001, ",") - 1) + 1 End Function

La IP que se ve desde fuera es la IP del router. Tienes que configurarlo como servidor NAT para redirigir cualquier paquete que llegue al PC. Para ello tienes que entrar en la configurarción de router y crearte una ruta NAT a tu máquina. Cuidado con...

Al no tener servidor que gobierne la red tienes que entrar con el mismo usuario y clave en las dos máquinas. Pon los dos que sean clientes de redes microsoft y entra con el mismo usuario. Luego compartes la impresoa y ya está.

Private Sub Command1_Click() calcularDiasMes 5, 2004 End Sub Private Sub calcularDiasMes(iMes As Integer, iAnno As Integer) Select Case iMes Case 1, 3, 5, 7, 9, 11 iNumeroDias = 31 Case 4, 6, 8, 10, 12 iNumeroDias = 30 Case 2 If iAnno Mod 4 = 0 Then...