Obtendo o próximo dia útil caso a data informada caia em um fim de semana

PorRenato Sanches

Compartilhe :

Function ProximoDiaUtil (dData : TDateTime) : TDateTime;
begin
if DayOfWeek(dData) = 7 then
dData := dData + 2
else
if DayOfWeek(dData) = 1 then
dData := dData + 1;
ProximoDiaUtil := dData;
end;

Delphi

5 Dicas de Desenvolvimento em Delphi

Compartilhe :

Nesta publicação apresentaremos 5 Dicas e truques de Desenvolvimento na Linguagem de Programação Delphi

Ler mais 5 Dicas de Desenvolvimento em Delphi
HTML

Como Inserir Imagens em Páginas HTML

Compartilhe :

Compartilhe :Como Inserir Imagens em Páginas HTML Aprenda a usar a tag <img> para inserir imagens em suas páginas HTML. Descubra a importância dos atributos src, alt, width e height com exemplos práticos. Como Inserir Imagens em Páginas HTML Imagens são elementos visuais importantes que ajudam a enriquecer o conteúdo de um site, tornando-o mais…

Ler mais Como Inserir Imagens em Páginas HTML
Desenvolvimento de Software | Visual Basic

Como Forçar a Digitação de Caracteres Maiúsculos no Visual Basic

Compartilhe :

Compartilhe :Se você deseja que o usuário digite apenas em maiúsculas, independentemente do estado da tecla Caps Lock, pode converter os caracteres no evento KeyPress. Implementação no Evento KeyPress Utilize o seguinte código no evento KeyPress do formulário: Explicação Aplicando a Rotina a Todos os Campos do Formulário Para que esse comportamento seja aplicado a…

Ler mais Como Forçar a Digitação de Caracteres Maiúsculos no Visual Basic
JavaScript

Javascript : Cursos Gratuitos e Exemplos

Compartilhe :

Compartilhe :Neste post vamos descobrir o que é Javascript, para que serve, opções de cursos gratuitos de javascript e exemplos de scripts para você evoluir cada vez mais no aprendizado desta linguagem de programação. Apesar de mais de 20 anos de existência, o Javascript ou JS continua sendo uma das principais linguagens de programação client-side…

Ler mais Javascript : Cursos Gratuitos e Exemplos
Desenvolvimento de Software | Visual Basic

Verificar a existência de placa de som

Compartilhe :

Compartilhe :Verificar a existência de placa de som Private Declare Function waveOutGetNumDevs Lib “winmm.dll” () As Long Dim res As Integer res = waveOutGetNumDevs() If res > 0 Then msgbox “Existe Placa de Som” Else msgbox “Não Existe Placa de Som” End If

Ler mais Verificar a existência de placa de som
Delphi | Desenvolvimento de Software

Obter o username logado no Windows

Compartilhe :

Compartilhe :Como obter o username logado no Windows em Delphi Esta função permite que através da rotina GetUserName da API do Windows seja possível recuperar o usuário (username) que se logou ao windows. function UsuarioLogado : string; var nsize: Cardinal; UserName: string; begin nsize := 25; SetLength(UserName,nsize); if GetUserName(PChar(UserName), nsize) then begin SetLength(UserName,nsize-1); Result…

Ler mais Obter o username logado no Windows

Posts Similares