Igor Silva do Nascimento

Olá turma, Boa noite! Segue a situação: Toda vez que rodar o while, pegar o valor recebido no $teste1 some e ir somando até ter o valor total. Exemplo.: Se o while rodar 3x e cada $teste1 for o número 2, então a soma deles seria 6. Gostaria desse valor total. while ($i = mysqli_fetch_array($query)) { $teste1 = strtotime($i['dt_admissao']); } Não consigo achar uma melhor forma. Preciso da ajuda de vocês. Desde já agradeço! Importante: Considere que existe condições aplicadas na variável $query, nela não daria para somar.

Olá turma, Boa noite! Simulação - Data atual é 06/10/2021, quando convertemos ela pra numero no excel, o valor é 44475. Gostaria de fazer isso no php. Já tentei strtotime e não bate o valor.

Turma, Boa tarde! Preciso de ajuda a fazer referência uma planilha que está em caminhos de rede "não fixos". Sabem me informar algum meio? Ex.: ='C:\Users\user_name\Desktop\[leitura_de_rede.xls]Planilha1'!$A4 ='C:\Users\user_name\Desktop\[leitura_de_rede.xls]Planilha1'!$A5 ... ... ...

@Midori Não entendi... Modificar o tipo da variável? Se sim, para qual?

Turma, estou quebrando a cabeça com algo básico, mas que não está funcionando. Preciso executar uma função SE o arquivo não existir no caminho (variável $D$5), mas caso exista, o arquivo não deve mover. Obrigado desde já! Segue o código que preciso da ajuda: Dim INDICE_DOC As String Dim Antigo As String Dim Documento As String Dim fso Dim strOrigem As String Dim strDestino As String Dim arquivo As String, cont As Integer, nome As String, extensao As String 'Caminho de Origem (Com arquivo no nome) strOrigem = Range("D3").Value arquivo = Mid(strOrigem, InStrRev(strOrigem, "\") + 1) 'Caminho de Destino (Terminando com barra) strDestino = Range("D4").Value Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next 'Verifica se os caminhos existem If Not fso.FileExists(strOrigem) Then MsgBox strOrigem & " Caminho inválido para o arquivo de origem.", vbInformation, "Erro" ElseIf Not fso.FolderExists(strDestino) Then MsgBox strDestino & " Caminho inválido para a pasta de destino.", vbInformation, "Erro" ElseIf Not fso.FileExists(strDestino & arquivo) Then fso.MoveFile (strOrigem), strDestino Else cont = InStrRev(arquivo, ".") nome = Left(arquivo, cont - 1) extensao = Mid(arquivo, cont + 1) cont = 2 Do While fso.FileExists(strDestino & nome & " (" & cont & ")." & extensao) cont = cont + 1 Loop fso.MoveFile (strOrigem), strDestino & nome & " (" & cont & ")." & extensao End If If Err.Number = 53 Then MsgBox "Ficheiros não encontrados..." Set fso = Nothing 'New - Fecha o formulário Unload Me 'Abre o formulário INDICE_DOCUMENTO.Show End Sub

Turma, bacana? Preciso de uma MACRO VBA (excel) para SALVAR COMO a minha planilha em XLS (97-2003). Importante - Local a ser salvo deve ser definido pelo usuário (ou salvar na área de trabalho - porém o usuário de rede/pc é variável); NOME da planilha deve ser FIXO = Importação em massa. Tentei várias macros que encontrei na net e nenhuma funciona. Estou perdido.