Útil cuando obtenemos una fecha y la queremos formatear para establecer instrucciones en sentencias SQL

 

Código VB6:

lFechaStr =( Year(D)*100 + Month(D) )*100 + day(D)
'otra Forma:
lFechaStr = Year(CDate (lFechaI)) & Right("00" & Month(CDate (lFechaI)),2) & Right("00" & day(CDate (lFechaI)),2)


Código C#:

using AhoraCore.VBA;

namespace AhoraScriptsVacia
{
    public class Script_65 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            System.DateTime fecha = System.DateTime.Now;
            int lFechaStr = (fecha.Year * 100 + fecha.Month) * 100 + fecha.Day;

            AhoraCore.VBA.Interaction.MsgBox("1: " + lFechaStr);
        }
    }
}