Y
Specifications
Gauge: 14 AWG
Resistance (per 1000 feet): 2.525 ohms
Vdrop = IR
Sub ObterDataDoSite()
Dim xmlhttp As Object
Dim htmlDoc As Object
Dim data As String
' URL do site de onde você quer extrair a data
Dim url As String
url = "URL_DO_SITE_AQUI"
' Criar uma instância do objeto XMLHTTP
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
' Abrir uma conexão com a URL
xmlhttp.Open "GET", url, False
' Enviar a solicitação
xmlhttp.send
' Verificar se a solicitação foi bem-sucedida
If xmlhttp.Status = 200 Then
' Criar uma instância do objeto HTMLDocument
Set htmlDoc = CreateObject("htmlfile")
' Carregar o conteúdo HTML da resposta
htmlDoc.body.innerHTML = xmlhttp.responseText
' Extrair a data do HTML (ajuste esta parte de acordo com a estrutura do site)
' Neste exemplo, assumimos que a data está dentro de uma tag <span> com o id "data"
data = htmlDoc.getElementById("data").innerText
' Colocar a data na célula B1 da planilha REGRAS
Sheets("REGRAS").Range("B1").Value = data
Else
MsgBox "Falha ao obter a página. Código de status: " & xmlhttp.Status
End If
' Limpar objetos
Set xmlhttp = Nothing
Set htmlDoc = Nothing
End sub
private void tfVSueloKeyReleased(java.awt.event.KeyEvent evt) {
DecimalFormat df = new DecimalFormat("#,###.##");
if (tfVSuelo.getText().length() >= 1) {
tfVSuelo.setText(df.format(Double.valueOf(tfVSuelo.getText().replace(".", ""))) );
}
}