a função formatar data

[marvazoler 0]

Olá galera beleza?

 

estou usando ASP x Access

 

bom tenho a seguinte escrita:

 

<% function formataData( datai )
com = cDate(datai)
d = Day(com)m = Month(com)
a = Year(com) 
if d < 10 then d = "0"& d 
if m < 10 then m = "0"& m 
formataData = m &"/"& d &"/"& a
end function %> 

<% function formataData( dataf )
com = cDate(dataf)
d = Day(com)m = Month(com)
a = Year(com) 
if d < 10 then d = "0"& d 
if m < 10 then m = "0"& m 
formataData = m &"/"& d &"/"& a
end function %> 

mas tó com dúvida de como usá-la, pois tenho uma tela em .html com os campos textfield dataI e
dataF, e faço um select com between na página .asp para pegar a data que o usuário digita.

olha minha escrita
<%
Dim oConn 
Dim oRs 
Dim filePath 
Dim Index 
Dim vardataI
Dim vardataF
filePath = Server.MapPath("banco\banco.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
vardataI = Request.Form("txtdataI")
vardataF = Request.Form("txtdataF")
Set oRs = oConn.Execute("SELECT * from tbl_reclam WHERE tbl_reclam.data BETWEEN #"&vardataI&"# AND #"&vardataF&"# ")
do while not oRs.eof
%>

 

só que não sei onde colocar a função

 

alguem pode me ajuda?

 

desde já agradeço

[jrcardozo 4]

vardataI = formatadata(request.Form("txtdataI"))

vardataF = formatadata(Request.Form("txtdataF"))

[Mário Monteiro 179]

e voce so precisa de uma dessas

 

<% function formataData( datai )

com = cDate(datai)

d = Day(com)m = Month(com)

a = Year(com)

if d < 10 then d = "0"& d

if m < 10 then m = "0"& m

formataData = m &"/"& d &"/"& a

end function %>

 

<% function formataData( dataf )

com = cDate(dataf)

d = Day(com)m = Month(com)

a = Year(com)

if d < 10 then d = "0"& d

if m < 10 then m = "0"& m

formataData = m &"/"& d &"/"& a

end function %>

 

ai chama passando as datas diferentes como o jonh mostrou

[Mário Monteiro 179]

ainda pode diminuir o tamanho da funcao

 

<% function formataData( data )
formataData = RIGHT("0" & MONTH(data),2) & "/" & RIGHT("0" & DAY(data),2)  & "/" & YEAR(data)
end function %>