converter essa funçao para vb.net
03/05/2009
0
Function Datatosqlreli
parameters wdata, whora
private sqldata_,wdata,whora
if PCOUNT() = 1
WHORA = ´00:00:00´
ENDIF
IF EMPTY(WDATA)
SQL_DATA=´NULL´
ELSE
SQL_DATA = STR(YEAR(WDATA), 4)+´-´+ PADL(ALLTRIM(STR(MONTH(WDATA),2)),2´0´)+PADL(ALLTRIM(STR(DAY(WDATA),2)),2 ´0´)+´ ´ +WHORA
ENDIF
RETURN SQL_DATA
Minha dúvida esta no PCOUNT não sei que comando utilizar no vb.net para substituí-lo, a função é do fox pro.
Os outros comando td bem é tranquilo para substituir, só o PCOUNT que eu não sei o que ele faz.
Se alguém puder me dar uma orientação, agradeço !!
parameters wdata, whora
private sqldata_,wdata,whora
if PCOUNT() = 1
WHORA = ´00:00:00´
ENDIF
IF EMPTY(WDATA)
SQL_DATA=´NULL´
ELSE
SQL_DATA = STR(YEAR(WDATA), 4)+´-´+ PADL(ALLTRIM(STR(MONTH(WDATA),2)),2´0´)+PADL(ALLTRIM(STR(DAY(WDATA),2)),2 ´0´)+´ ´ +WHORA
ENDIF
RETURN SQL_DATA
Minha dúvida esta no PCOUNT não sei que comando utilizar no vb.net para substituí-lo, a função é do fox pro.
Os outros comando td bem é tranquilo para substituir, só o PCOUNT que eu não sei o que ele faz.
Se alguém puder me dar uma orientação, agradeço !!
Oliverjer10
Curtir tópico
+ 0
Responder
Posts
04/05/2009
Oliverjer10
Fiz assim, acho que não vai precisar do pcount.
Function Datatosqlreli(ByVal wdata As String)
Dim sql_data As String
Dim whora As String = ´00:00:00´
If wdata = ´´ Then
sql_data = ´DBNull.Value´
Else
sql_data = Trim(Str(Year(wdata))) + ´-´ + Trim(Str(Month(wdata))) + ´-´ + Trim(Str(Day(wdata))) + ´ ´ + whora
End If
Return sql_data
End Function
Function Datatosqlreli(ByVal wdata As String)
Dim sql_data As String
Dim whora As String = ´00:00:00´
If wdata = ´´ Then
sql_data = ´DBNull.Value´
Else
sql_data = Trim(Str(Year(wdata))) + ´-´ + Trim(Str(Month(wdata))) + ´-´ + Trim(Str(Day(wdata))) + ´ ´ + whora
End If
Return sql_data
End Function
Responder
Clique aqui para fazer login e interagir na Comunidade :)
