Extraindo o dia, mês e ano da data atual com VBScript

Confesso que sou um zero a esquerda em VB, e volta e meia preciso realizar alguma tarefa com o Script Task do SSIS. Acabo sempre considerando pequenas tarefas, grandes vitórias, e por isto sempre registro o que fiz pois não sei quando vou precisar de novo. Hoje o incrível “desafio” foi extrair o dia, mês e ano da data atual para concatenação na geração dinâmica do nome de um arquivo, criado em tempo de execução pelo SSIS.

 

O código está abaixo. Adicionei um MsgBox para que seja possível testar o script antes de utilizá-lo.

 

' Microsoft SQL Server Integration Services Script Task

' Write scripts using Microsoft Visual Basic

' The ScriptMain class is the entry point of the Script Task.

 

Imports System

Imports System.Data

Imports System.Math

Imports Microsoft.SqlServer.Dts.Runtime

 

Public Class ScriptMain

 

      ' Código para extrair mês, dia e ano

 

      Public Sub Main()

        '

        ' Add your code here

        '

        Dim agora As DateTime = DateTime.Now

 

        'obtém o ano.

        Dim ano As String = agora.Year.ToString

        Dim mes As String = agora.Month.ToString

        Dim dia As String = agora.Day.ToString

 

  MsgBox(mes & dia & ano)

 

        Dts.TaskResult = Dts.Results.Success

    End Sub

 

End Class

 

Abs e até a próxima!