Option Compare Database Option Explicit Const BASEDATE_S = "1899-12-30 " Const BASEDATE_N = "1899-12-31 " Const BASEDATE_X = "2000-1-1 " Type typBand stt1 As Date ent1 As Date stt2 As Date ent2 As Date Tank As Long End Type Dim objBand(0 T…

Function getFunAsa(start_time As Date, end_time As Date) As Integer Dim A As Integer Dim B As Integer Dim start_time_1 As Date Dim end_time_1 As Date Dim start_time_2 As Date Dim end_time_2 As Date start_time_1 = #1/1/2023 4:00:00 AM# end_…

ログをマメに入れよう！ Public Sub copyFileFso(srcFile, destFile) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Call fso.CopyFile(srcFile, destFile) Set fso = Nothing End Sub

Widget timeField4(isEditable, TextEditingController jt, String lbl, fn, {DateTime? initialValue} //add 2023-12-14 初期値指定 ) => Container( padding: const EdgeInsets.all(0), child: DateTimeField( enabled: isEditable, controller: jt, keybo…

Public Function get_idokin(p距離 As Currency) If p距離 = 0 Then 'ガードと言ったり、早期リターン get_idokin = 0 Exit Function End If Dim rs As ADODB.Recordset Set rs = OpenRecordset("select 単価 from T_買い物交通費 where ? >= 距離_from orde…

// 小数点が複数入力された場合、NG とします。 if (value.split('.').length > 2) { return ”小数点が複数あるよ！”; }

来年の話をすると鬼が笑うと言うけれど 来年の自分に期待をしている 期待をしない人生なんてつまらないと思う 今までやって来たことは、次に必ず繋がっている 想像してみて、 今やっていることに全力を尽くす未来と、 ただやっている未来を

Widget nikoText({ required TextEditingController ctler, required String label, required Function(String? newValue) fnc, final List<TextInputFormatter>? inputFormatters, //追加 入力規則 ① final String? Function(String?)? validator, //追加 検査者 ② TextInputTyp</textinputformatter>…