Imprimir dos decimales de visual basic 6.0

Les cuento necesito imprimir con decimales si ingreso un valor entero, ejemplo
En una caja de texto ingreso el 1 y cuando imprima aparezca 1,00
Soy inexperto en esto
Desde ya muchas gracias

1 respuesta

Respuesta
1
Para imprimir con decimales se utiliza la función Format
Ejemplos :
Text1 = 1
Valor = Val(text1)
Printer.Print Format(Valor, "###,###,###.00")
Print #1 Format(Valor,"###,##,###.00") 
Text2 = Format(Valor,"###,##,###.00")
Suerte !
Ok, pero mira te muestro el código para ver si me aydas, aunque tu idea es bien clara, pero para ver como implementaría esto
Private Sub txt_peso_KeyPress(KeyAscii As Integer)
If Not (KeyAscii = 8) And Not (KeyAscii = 13) Then
pos = InStr(1, "1234567890.", Chr(KeyAscii))
If (pos = 0) Then
KeyAscii = 0
ElseIf KeyAscii = 46 Then
pos = InStr(1, txt_peso.Text, Chr(KeyAscii))
If (pos > 0 Or (pos = 0 And Len(txt_peso.Text) = 0)) Then
KeyAscii = 0
End If
End If
End If
End Sub
Private Sub txt_peso_LostFocus()
If opt_despachaa(0).Value = True And Trim(txt_peso.Text) <> "" Then
cmb_imprimir_Click
End If
Exit Sub
End Sub
Desde ya gracias nuevamente
La rutina para capturar solo números se puede simplificar de esta forma :
Private Sub txt_peso_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case 48 To 57 ' Permite los dígitos
      Case 45 To 46 'Permite - y .
      Case 8 ' Permite el carácter de retroceso
      Case Else
      KeyAscii = 0
     Beep
   End Select
End Sub
Private Sub txt_peso_LostFocus()
   If opt_despachaa(0).Value = True And Val(txt_peso) <> 0 Then
      cmb_imprimir_Click
   End If
End Sub
Suerte !

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas