Como converter uma string em data

International Português
1

Tenho um textfield que armazena uma data, meu campo em uma tabela mysql e do tipo date

Como eu pego o conteúdo do textfield e transformo em data ?

Se fosse em Visual Fox ficaria assim:

x = ctod(Meutextfield) // função que transforma string em data.

Como seria em XOJO ?

Obrigado.

2

Use ParseDate.

http://documentation.xojo.com/index.php/ParseDate

Ex:

Dim d as New Date
Dim b as Boolean

b = ParseDate("01/15/2014", d)
3

O exemplo acima deveria falhar numa maquina Brasileira. ParseDate usa os “Regional Settings” da mquina, e no Brasil deveria ser algo como “DD/MM/AAAA” e no exemplo foi entrado o formato americano “MM/DD/AAAA”.

4

Meu problema que depois disso eu quero grava em uma tabela do MySQL e esta me retornando erro somente no campo data, o cdigo esta assim:

Prnome = Lnome
PrBairro = Lbairro
Prcelular=Lcelular
Prcep=Lcep
Prcidade=Lcidade
Prcnpj=Lcnpj
Prcodmun=Lcodmun
Premail=Lemail
Prendereco=Lendereco
Prfisicajuridica=Lfisicajuridica
Prinsc=LInsc
Prmasfem=Lmasfem
Prnascimento=Lnascimento
Prnumero=Lnumero
Prtelefone=Ltelefone
Prteltrab=Lteltrab
Pruf=Luf

Dim Vdata As New Date
Dim vcerto As Boolean
Vcerto = ParseDate(Prnascimento,Vdata)

Dim linha As New DatabaseRecord

linha.Column(“nome”)=Prnome
linha.Column(“endereco”)=Prendereco
linha.Column(“numero”)=Prnumero
linha.Column(“bairro”)=PrBairro
linha.Column(“cod_mun”)=Prcodmun
linha.Column(“cidade”)=Prcidade
linha.Column(“uf”)=Pruf
linha.Column(“cep”)=Prcep
linha.Column(“fisica_juridica”)=Prfisicajuridica
if vcerto Then
linha.Column(“nascimento”)=vcerto \\ Este o campo data que esta dando erro
End if
linha.Column(“ident_insc”)=Prinsc
linha.Column(“cpf_cnpj”)=Prcnpj
linha.Column(“telefone”)=Prtelefone
linha.Column(“celular”)=Prcelular
linha.Column(“tel_trab”)=Prteltrab
linha.Column(“email”)=Premail
linha.Column(“mas_fem”)=Prmasfem
conn.InsertRecord(“clientes”, linha)

if conn.Error Then
MsgBox "Erro na gravaao na tabela clientes " + conn.ErrorMessage
Return
End if

MsgBox “Registro gravado com Sucesso”

Esta me retornando erro na compilao
erro: Parameters are not compatible with this function

Estou pegando Lnascimento que uma String e colocando em uma Propriedade da classe que uma String tambm e depois fazendo o Parse.