La fecha del formulario es texto como convertir a numero

Si tienes un textbox o un control de fecha, puedes utilizar la función CDate( )

Por ejemplo:

    Sheets("Hoja2").Range("B2") = CDate(TextBox1.Value)
    Sheets("Hoja2").Range("B4") = CDate(DTPicker1.Value)

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Hola Dante

buenas noches por favor donde tendría que colocar la función que me indicas

Te adjunto la macro en la cual estoy trabajando, es en excel 2003

Private Sub UserForm_Activate()

Calendar1.Value = Date
End Sub

Private Sub Calendar1_Click()

TextFecha.Value = Calendar1.Value

'oculta el calendar
Calendar1.Value = False

End Sub

Private Sub TextFecha_Change()

largo_entrada = Len(Me.TextFecha)
Select Case largo_entrada
Case 2
Me.TextFecha.Value = Me.TextFecha.Value & "/"
Case 5
Me.TextFecha.Value = Me.TextFecha.Value & "/"
End Select

Calendar1.Value = True

End Sub

Private Sub jcinsertar_Click()

Dim Fecha As String 'Variable para almacenar valores de Fecha

Dim Cliente As String 'Variable para almacenar valores de cliente

Dim Destino As String 'Variable para almacenar valores de Destino

Dim Localidad As String 'Variable para almacenar valores de Localidad

Dim Importe As String 'Variable para almacenar valores de Importes

Dim Combustible As String 'Variable para almacenar valores de Combustible

Dim UltimaFila As Double 'Variable que almacena ultima fila

Fecha = TextFecha.Value 'Paso del formulario a la variable

Cliente = TextCliente.Value 'Paso del formulario a la variable

Destino = TextDestino.Value 'Paso del formulario a la variable

Localidad = TextLocalidad.Value 'Paso del formulario a la variable

Importe = TextCosto.Value 'Paso del formulario a la variable

Combustible = TextCombustible.Value 'Paso del formulario a la variable

UltimaFila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count

Cells(UltimaFila + 1, 1) = Fecha

Cells(UltimaFila + 1, 2) = Cliente

Cells(UltimaFila + 1, 3) = Destino

Cells(UltimaFila + 1, 4) = Localidad

Cells(UltimaFila + 1, 5) = Importe

Cells(UltimaFila + 1, 6) = Combustible

TextFecha = Empty
TextCliente = Empty
TextDestino = Empty
TextLocalidad = Empty
TextCosto = Empty
TextCombustible = Empty

TextFecha.SetFocus

Calendar1.Value = True

End Sub