Um dos problemas e a formatação de datas e números, e para facilitar estou postando hoje todas as formatações do format().
'% Porcentagem Exibe o caractere de porcentagem (%)
'E + 0, E - 0, e + 0, e - 0 Exponencial Formata a saída na notação exponencial
'\ Caractere literal Usado com formatação tradicional \n(nova linha)
'"" literal string Exibe qualquer string dentro de aspas simples ou duplas
'; Separador de seção Especifica uma saída diferente se o valor numérico a
'ser formatado é positivo, negativo ou zero
'Exemplos
' Format(Val(Label.text), "000000000") 'Retorna "000001234"
' Dim Valor As Integer
' Valor=42492.45
' Valor.ToString("R$ #,###.00") 'Retorna "R$ 42.492,45"
' Valor=0.2678
' 2- Valor.ToString("0.000") 'Retorna 0,268
' Valor=-24.95
' 3- Valor.ToString("R$ #,###.00;(R$ #,###.00)") 'Retorna (R$ 24,95)
Formatação de datas
'String Retorna
'DTStr = Now.ToLongDateString 'long date format-terça-Feira, 23 de maio de 2016.
'DTStr = Format(Now(), "Long Time") 'time in the system-defined long time format.
'DTStr = Format(Now(), "Long Date") 'date in the system-defined long date format.
'DTStr = Format(Now(), "D") 'using the single letter code for the format.
'DTStr = Format(DTDate , "h:m:s") '"5:4:23".
'DTStr = Format(DTDate , "hh:mm:ss tt") '"05:04:23 PM".
'DTStr = Format(DTDate , "dddd, MMM d yyyy") '"Saturday, Jan 27 2001".
'DTStr = Format(DTDate , "HH:mm:ss") '"17:04:23".
'DTStr = Format(23) '"23".
'DTStr = Format(5459.4, "##,##0.00") '"5,459.40".
'DTStr = Format(val("334.9"), "###0.00") '"334.90".
'DTStr = Format(5, "0.00%") '"500.00%".
'Exemplos:
'Dim DTDate As Date = Now
'Dim Valor as String
'Dim DTStr As String
'Dias = DateTime.DaysInMonth(Year(Now), Mes)
'para formatar data tem que converter para data
'Dim XDatataNova As Date = Data_a_ser_Corrigida ou "02/04/2015"
'Format(XDatataNova, "MM/dd/yyyy") 'Obs para formatar data tem que converter para data, a variavel tem que ser data
Nenhum comentário:
Postar um comentário