Format string numerik masukan seperti 20041219 menjadi tipe tanggal

Penulis：Eve Cole Waktu Pembaruan：2009-06-30 16:11:36

redupkan strin sebagai string,strout sebagai string

strin="20051219"

strout=kiri(strin,4)

strout=strout & "/" & mid(strin,5,iif(len(strin)=8,2,1))

strout =strout & "/" & kanan(strin,2)

strout=format(strour,"yyyy/mm/dd")

kotak pesan(strout)