Excel VBA - Datas

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planiha vba datadif personalizada Excel planiha vba datadif personalizada

    popular!
    Adicionado em: 11/11/2011
    Modificado em: 11/11/2011
    Tamanho: 85.77 KB
    Downloads: 1130

    Saberexcel - o site de quem precisa aprender macros MS Excel VBA

    Função personalizada "Decorrido" do aplicativo Microsoft Excel VBA, retorna a diferença de datas em duas determinadas datas, essa função é igual a função DATADIF, que retorna também a diferença de datas, Anos, meses, dias.
    Baixe o exemplo de planilha no final da página. Espero que o exemplo possam ajudá-los, Fiquem com Deus. Expedito Marcondes.

    Function Decorrido(DataInicial As Date, DataFinal As Date, TipoRetorno As Integer)
    Dim AnoInicial As Integer
    Dim AnoFinal As Integer
    Dim MesInicial As Integer
    Dim MesFinal As Integer
    Dim DiaInicial As Integer
    Dim DiaFinal As Integer

    AnoInicial = Year(DataInicial)
    MesInicial = Month(DataInicial)
    DiaInicial = Day(DataInicial)
    AnoFinal = Year(DataFinal)
    MesFinal = Month(DataFinal)
    DiaFinal = Day(DataFinal)

    If DiaFinal < DiaInicial Then
    DiaFinal = DiaFinal + (DateSerial(AnoFinal, MesFinal + 1, DiaFinal) - DateSerial(AnoFinal, MesFinal, DiaFinal))
    MesFinal = MesFinal - 1
    End If

    If MesFinal < MesInicial Then
    MesFinal = MesFinal + 12
    AnoFinal = AnoFinal - 1
    End If

    Select Case TipoRetorno
    Case 1 '\ retorna Ano
    Decorrido = AnoFinal - AnoInicial
    Case 2 '\ retorna o mês
    Decorrido = MesFinal - MesInicial
    Case 3 '\ retorna dia
    Decorrido = DiaFinal - DiaInicial

    End Select


    End Function
    USO DAS FUNÇÕES:
    =decorrido($F6;$G$1;1) ' argumento (1) retorna Anos.
    =decorrido($F6;$G$1;2) ' argumento(2) retorna Meses
    =decorrido($F6;$G$1;3) ' argumento(3) retorna dias

    CONCATENANDO DADOS USANDO A FUNÇÃO PERSONALIZADA 'decorrido"
    ="O Sr." &B5&" nascido dia [ "&TEXTO(D5;"dd/mmm/aaaa")&" ] Tem [ "&decorrido($D5;$E$1;1) & " ] Anos, "& decorrido($D5;$E$1;2) & " mese="O Sr." &B5&" nascido dia [ "&TEXTO(D5;"dd/mmm/aaaa")&" ] Tem [ "&decorrido($D5;$E$1;1) & " ] Anos, "& decorrido($D5;$E$1;2) & " meses e "&decorrido($D5;$E$1;3) & " dias"s e "&decorrido($D5;$E$1;3) & " dias"

    ' - - - - - - - - - - - - -- -- - - - - - - - - - - - - -
    USO DA FUNÇÃO DATADIF - APLICATIVO EXCEL
    =DATADIF($F6;$G$1;"y") 'Argumento("y") retorna anos
    =DATADIF($F6;$G$1;"ym") ' Argumento("ym") retorna meses
    =DATADIF($F6;$G$1;"md") 'Argumento("md") retorna dias

    CONCATENANDO DADOS USANDO A FUNÇÃO DO APLICATIVO EXCEL 'DATADIF'
    ="O Sr."&B5&" nascido dia [ "&TEXTO(D10;"dd/mmm/aaaa")&" ] Tem [ "&DATADIF($D5;$E$1;"y")&" ] Anos, "&DATADIF($D5;$E$1;"ym")&" meses e "&DATADIF($D5;$E$1;"md")&" dias"




    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



    Excel planiha vba datas retorna o ultimo dia do mes funcao Excel planiha vba datas retorna o ultimo dia do mes funcao

    popular!
    Adicionado em: 02/04/2011
    Modificado em: 02/04/2011
    Tamanho: 71.2 KB
    Downloads: 945

    Saberexcel - Site de quem precisa aprender Macros MS Excel VBA

    Essas macros e Função do Aplicativo Microsoft Excel VBA( Visual Basic Application ), retornam o útlimo dia do mês da data atual, aproveitando o exemplo, inserí formatação data para que retorne uma mensagem do mês atual (mes texto (Abril)).

    Essas função é muito importante para quem precisa retornar datas, calcular folha de pagamento, calcular pagamentos, vencimentos, taxa de juros, enfim uma infinidade de aplicações úteis onde envolve calculos baseados no último dia do mês. Espero que o exemplo lhe seja útil.
    Fique com Deus, Expedito Marcondes

    Sub Verifica_ultimo_dia_mes_data_atual()
    Dim vDia
    Dim vData
    Dim sb

    vData = Now()
    vDia = DatePart("d", DateAdd("m", 1, DateAdd("d", -Day(vData), vData)))
    sb = "Ultimo dia do do mes de [ " & Format((Now()), "mmmm") & " ] é...: [ " & vDia & " ]"

    MsgBox "Ultimo dia do do mes de [ " & Format((Now()), "mmmm") & " ] é...: [ " & vDia & " ]", vbInformation, "Saberexcel - site das macros"
    MsgBox "Ultimo dia do do mes de " & Format((Now()), "mmmm") & " é " & vDia, vbInformation, "Sem os parênteses"

    [G10].Value = "Ultimo dia do do mes de [ " & Format((Now()), "mmmm") & " ] é...: [ " & vDia & " ]"
    [G11].Value = sb 'retornando valor para célula a partir de uma variável(sb)

    End Sub

    Sub Utimo_dia_do_Mês()
    MsgBox "O último dia do mês de [ " & Format((Now()), "mmmm") & " ] é dia..: [ " & vUltimo_dia_mes(Year(Now()), Month(Now())) & " ]", vbInformation, "Saberexcel - site das macros"
    MsgBox "Mes Atual.....: " & Format((Now()), "mmmm"), vbInformation, "Saberexcel - site das macros"
    End Sub

    'esta função verfica o último dia dos meses
    Private Function vUltimo_dia_mes(vAno As Integer, vMes As Integer, Optional vDia As Integer = 1) As Integer
    Dim vArray_Ultimo_Dia_Meses As Variant

    vArray_Ultimo_Dia_Meses = Array(0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

    If vMes = 2 Then
    If IsDate("29/2/" & vAno) Then
    vUltimo_dia_mes = 29
    Else
    vUltimo_dia_mes = 28
    End If
    Else
    vUltimo_dia_mes = vArray_Ultimo_Dia_Meses(vMes)
    End If

    End Function

    'esta macro limpa as células nomeadas como 'a' - para auxliar o usuário no teste (repetir o teste com facilidade)
    Sub limpar_teste()
    [a].ClearContents
    End Sub




    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA( Visual Basic Application ), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel






    Publicidade
    Compre com segurança, garantia e ótimos preços

    Eletrônicos - Submarino.com.br

    Excel planilha vba data transforma formato texto data Excel planilha vba data transforma formato texto data

    popular!
    Adicionado em: 07/10/2011
    Modificado em: 07/10/2011
    Tamanho: 24.09 KB
    Downloads: 681

    Saberexcel - o site das macros

    Esse procedimento do Aplicativo Microsoft Excel VBA, inserido na folha de planilha e sensizilizado pelo Evento SelectionChange, ao selecionar  copia determinados números com caracteres inválidos para datas, e os transforma em datas válidas, com barras.

    '------------'
    15%07&2012 - será transformado em 15/07/2012
    17(07*2012 - será transformado em 15/07/2012
    19.12.2012 - será transformado em 19/12/2012
    25$07#2012 - será transformado em 25/07/2012
    18!08*2012 - será transformado em 18/08/2012
    26"12£2012 - será transformado em 26/12/2012
    31%12§2012 - será transformado em 31/12/2012


    Private Sub Worksheet_SelectionChange
    (ByVal Target As Range)
    On Error Resume Next
    Saber1.[A1].Value = ActiveCell.Offset(0, -2).Value
    Data_Formato_dia_mes_ano
    End Sub

    'transformando um data formato texto (07.03.2012) no formato (07/03/2012)

    Sub Data_Formato_dia_mes_ano()
    Dim Ano As Integer, Mes As Integer, dia As Integer
    Ano = Right(Range("A1"), 4)
    Mes = Mid(Range("A1"), 4, 2)
    dia = Left(Range("A1"), 2)
    Range("A2") = DateSerial(Ano, Mes, dia)
    End Sub

    Escola Saberexcel VBA Estudos - Treinamentos, Macros, Fórmulas e funções http://www.microsoftexcel.com.br


    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




     

    Excel planilha vba data transforma formato texto data Excel planilha vba data transforma formato texto data

    popular!
    Adicionado em: 07/10/2011
    Modificado em: 07/10/2011
    Tamanho: 24.09 KB
    Downloads: 530

    Saberexcel - o site das macros

    Esse procedimento do Aplicativo Microsoft Excel VBA, inserido na folha de planilha e sensizilizado pelo Evento SelectionChange, ao selecionar  copia determinados números com caracteres inválidos para datas, e os transforma em datas válidas, com barras.

    '------------'
    15%07&2012 - será transformado em 15/07/2012
    17(07*2012 - será transformado em 15/07/2012
    19.12.2012 - será transformado em 19/12/2012
    25$07#2012 - será transformado em 25/07/2012
    18!08*2012 - será transformado em 18/08/2012
    26"12£2012 - será transformado em 26/12/2012
    31%12§2012 - será transformado em 31/12/2012


    Private Sub Worksheet_SelectionChange
    (ByVal Target As Range)
    On Error Resume Next
    Saber1.[A1].Value = ActiveCell.Offset(0, -2).Value
    Data_Formato_dia_mes_ano
    End Sub

    'transformando um data formato texto (07.03.2012) no formato (07/03/2012)

    Sub Data_Formato_dia_mes_ano()
    Dim Ano As Integer, Mes As Integer, dia As Integer
    Ano = Right(Range("A1"), 4)
    Mes = Mid(Range("A1"), 4, 2)
    dia = Left(Range("A1"), 2)
    Range("A2") = DateSerial(Ano, Mes, dia)
    End Sub

    Escola Saberexcel VBA Estudos - Treinamentos, Macros, Fórmulas e funções http://www.microsoftexcel.com.br


    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




     

    Excel planilha vba data usf retorna numero semana Excel planilha vba data usf retorna numero semana

    popular!
    Adicionado em: 05/06/2011
    Modificado em: 05/06/2011
    Tamanho: 99.01 KB
    Downloads: 711

    Saberexcel - o site de quem precisa Aprender macros Microsoft Excel VBA

    Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application) retornam o número da semana em Textboxes, através de userforms,
    também usamos fórmulas para detectar a data do inicio de uma semana baseado no número da Semana.


    Private Sub UserForm_Initialize()
    txtDATA = Format(Now, "dd/mm/yyyy")
    txtMES = Format(txtDATA, "mmmm")
    D = Int(Format(txtDATA, "0"))

    NumSem = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
    NumSem = (D - NumSem - 3 + (Weekday(NumSem) + 1) Mod 7) \ 7 + 3
    txtSEMANA = NumSem
    fraDADOS.Caption = " - Data:[ " & txtDATA & " ] - Mês:[ " & txtMES & " ] - Num Semana: [ " & txtSEMANA & " ]"
    End Sub

    Private Sub cmdFechar_Click()
    Unload Me
    End Sub


    Fórmula retorna a data baseado no múmero da semana
    isto é o inicio da semana(24)
    Formula usada....: =DATA(ANO(HOJE());1;1)+(B1-1)*7-MOD(DATA(ANO(HOJE());1;1)-1;7)

    formula para concatenar esses dados que está na célula (D3)
    =" [ "&B1&"ª. Semana...:"&" ] está entre o intervalo de datas [ "&TEXTO(D1;"dd/mmm/aaaa") & " à "& TEXTO(E1;"dd /mmm/aaaa") & " ]"


    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel





    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    Página 1 de 4

    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA