Conversión del diccionario de fechas

Función BFecha en forma de cadena (Fecha 0 como fecha)

Mostrar s como una cadena

dim nums(9) Como cadena nums(0) = "cero": nums( 1) = "uno": nums (2) = "dos": nums (3) = "tres": nums (4) = "cuatro": nums (5)

nums (6) = "Lu ":nums(7)="Qi":nums(8)="Ba":nums(9)="Jiu" sdate = formato(fecha 0, "aaammdd") para I = 1 a 4.

BDate = BDate & ampnums(Val(Mid(Sdate,I,1)))

Siguiente i

BDate = BDate & ampI = 5 a " Año" de 6

Si I = 5 y Val(Mid(Sdate,I,1)) = 1, entonces

Si Val(Mid(Sdate,I+1, 1 ) = 0, luego

BDate = BDate & nums(0) & nums(Val(Mid(Sdate, I, 1)) y amp "recoger"

Exportar a

Otro

BDate = BDate & ampnums(Val(Mid(Sdate,I,1)) y amp "recogido"

Si... entonces Will end

Otro

BDate = BDate & ampnums(Val(Mid(Sdate,I,1)))

Terminará si...

Siguiente I

BDate = BDate & ampI = "mes" del 7 al 8

Si I = 7 y Val(Mid(Sdate,I,1)) 》 0. = 1 entonces

Si Val(Mid(Sdate, I + 1, 1) = 0, entonces

BDate = BDate & ampnums(0)

BDate = BDate & ampnums(Val(Mid(Sdate,I,1)) y amp "recogido"

Exportar a

Otro

BDate = BDate & ampnums(Val(Mid(Sdate, I, 1)) y amp "recogido"

Terminará si

Otro

BDate = BDate & ampnums(Val(Mid(Sdate,I,1)))

Terminará si...

Siguiente I

BDate = BDate & amp "日"

MsgBox(BDate)

Función final